Jump to content

Remote control for Call of Duty 2

Erik.
 Share

Recommended Posts

Erik. Universalist

Erik.

Posted
Posted

Hallo, i think you will know about it: Call of Duty 2

For almost every game you have an rcon: remote control

whit rcon you can control the game on distance

Now do i want to make some for fun.

here is a code you will need to send something to a server and to recieve:

UDPStartup()
$socket = UDPBind("172.27.183.213", 28960)
UDPOpen("172.27.183.213", 28960)
UDPSend($socket,"ÿÿÿÿ rcon password")
While 1
    $data = UDPRecv($socket,99999999)
    If $data <> "" Then
        MsgBox(0, "UDP DATA", $data)
    EndIf
    sleep(100)
WEnd
Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

Only whit that you can not make a program that everyone can use...

Now did i make this whit koda:

#Include <GUIConstants.au3>
#Include <GuiListView.au3>
#Include <File.au3>
#include <Date.au3>
#include <Array.au3>
#include <Date.au3>
#include <string.au3>


$Form1_1 = GUICreate("Remote control for Call of Duty 2", 827, 598, 191, 101)
$Label1 = GUICtrlCreateLabel("Server address", 8, 16, 75, 17)
$Label2 = GUICtrlCreateLabel("Port", 120, 16, 23, 17)
$Label3 = GUICtrlCreateLabel("Rcon password", 176, 16, 78, 17)
$connect = GUICtrlCreateButton("Connect", 272, 40, 129, 25, 0)
GUICtrlSetTip(-1, "Press to connect to a server")

$serverip = GUICtrlCreateInput("", 8, 40, 81, 21)
GUICtrlSetTip(-1, "Full in the server ip address")
$serverport = GUICtrlCreateInput("", 112, 40, 41, 21)
GUICtrlSetTip(-1, "Full in the server port")
$serverpassword = GUICtrlCreateInput("", 168, 40, 89, 21)
GUICtrlSetTip(-1, "Full in the server rcon")

$Label4 = GUICtrlCreateLabel("Response from server", 136, 112, 107, 17)
$response = GUICtrlCreateEdit("", 8, 136, 393, 321, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetTip(-1, "In this window you can see what the server response is")

$command = GUICtrlCreateInput("", 96, 472, 241, 21)
GUICtrlSetTip(-1, "You can enter a direct command to the server")
$Label5 = GUICtrlCreateLabel("Direct command", 8, 472, 81, 17)
$sendcommand = GUICtrlCreateButton("Send", 352, 472, 49, 25, 0)
GUICtrlSetTip(-1, "Press to send the direct command")
$Label6 = GUICtrlCreateLabel("Name for message", 8, 80, 92, 17)
$message = GUICtrlCreateInput("", 112, 80, 129, 21)
GUICtrlSetTip(-1, "If you full in you name will be displayed when you type a message")
$serverinfo = GUICtrlCreateButton("Server info", 16, 504, 89, 25, 0)
GUICtrlSetTip(-1, "Get the server information")
$serverstatus = GUICtrlCreateButton("Server status", 112, 504, 89, 25, 0)
GUICtrlSetTip(-1, "Get the server status")
$sendmessage = GUICtrlCreateButton("Send message", 211, 504, 89, 25, 0)
GUICtrlSetTip(-1, "Send a message to all players in the game")
$Label7 = GUICtrlCreateLabel("Messages", 8, 544, 52, 17)
GUICtrlCreateEdit("", 80, 536, 337, 33, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$tab = GUICtrlCreateTab(424, 16, 393, 513, $TCS_TOOLTIPS, $TCS_EX_FLATSEPARATORS)
$Servertab = GUICtrlCreateTabItem("Server")
GUICtrlCreateButton("Get info from server", 437, 53, 145, 33, 0)
GUICtrlSetTip(-1, "Press this button to get the server information")
GUICtrlCreateButton("Send to server", 603, 53, 145, 33, 0)
GUICtrlSetTip(-1, "Press this button to send the information to the server")
$Label8 = GUICtrlCreateLabel("Server password", 445, 120, 83, 17)
$Input1 = GUICtrlCreateInput("", 541, 117, 105, 21)
GUICtrlSetTip(-1, "if you want a server password full in this box and press Set")
$Button1 = GUICtrlCreateButton("Set", 653, 117, 57, 25, 0)
GUICtrlSetTip(-1, "Add a server password")
$Button2 = GUICtrlCreateButton("Remove", 725, 117, 57, 25, 0)
GUICtrlSetTip(-1, "Remove the server password")
$Label9 = GUICtrlCreateLabel("Server name", 445, 157, 64, 17)
$Label10 = GUICtrlCreateLabel("Max. clients", 445, 197, 60, 17)
$Label11 = GUICtrlCreateLabel("Max. Ping", 581, 197, 51, 17)
$Label12 = GUICtrlCreateLabel("Max. Rate", 445, 237, 53, 17)
$Label13 = GUICtrlCreateLabel("Team icons", 581, 237, 59, 17)
$Label14 = GUICtrlCreateLabel("Allow voting", 669, 237, 61, 17)
$Checkbox1 = GUICtrlCreateCheckbox("", 645, 237, 17, 17)
GUICtrlSetTip(-1, "Check to set team icons on")
$Checkbox2 = GUICtrlCreateCheckbox("", 733, 237, 17, 17)
GUICtrlSetTip(-1, "Check to set voting on")
$Input2 = GUICtrlCreateInput("", 517, 197, 49, 21)
GUICtrlSetTip(-1, "Max. clients that can enter the sever")
$Input3 = GUICtrlCreateInput("", 637, 197, 57, 21)
GUICtrlSetTip(-1, "Max. ping that clients can have")
$Input4 = GUICtrlCreateInput("", 517, 237, 49, 21)
GUICtrlSetTip(-1, "Max. rate that clients can have")
$Input5 = GUICtrlCreateInput("", 517, 157, 193, 21)
GUICtrlSetTip(-1, "Enter here the server name")
$Group1 = GUICtrlCreateGroup("Common Settings", 437, 93, 361, 185)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label15 = GUICtrlCreateLabel("Kill Cam", 445, 309, 41, 17)
$Label16 = GUICtrlCreateLabel("Free Look", 445, 347, 52, 17)
$Label17 = GUICtrlCreateLabel("Team Balance", 587, 307, 73, 17)
$Label18 = GUICtrlCreateLabel("Enemy Spectate", 587, 349, 82, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 513, 307, 17, 17)
GUICtrlSetTip(-1, "Check to set kill cam on")
$Checkbox4 = GUICtrlCreateCheckbox("", 513, 346, 17, 17)
GUICtrlSetTip(-1, "Check to set free look on")
$Checkbox5 = GUICtrlCreateCheckbox("", 685, 306, 17, 17)
GUICtrlSetTip(-1, "Check to set team balance on")
$Checkbox6 = GUICtrlCreateCheckbox("", 685, 344, 17, 17)
GUICtrlSetTip(-1, "Check to set enemy spectate on")
$Button3 = GUICtrlCreateButton("Set friendly fire", 445, 429, 113, 33, 0)
GUICtrlSetTip(-1, "Press to set friendly fire ,Off, On, Reflecteed, Shared")
$Checkbox7 = GUICtrlCreateCheckbox("Off", 565, 437, 41, 17)
GUICtrlSetTip(-1, "Press to set firendlyfire off")
$Checkbox8 = GUICtrlCreateCheckbox("On", 613, 437, 41, 17)
GUICtrlSetTip(-1, "Press to set friendly fire on")
$Checkbox10 = GUICtrlCreateCheckbox("Shared", 741, 437, 57, 17)
GUICtrlSetTip(-1, "Press to set friendly fire shared")
$Checkbox9 = GUICtrlCreateCheckbox("Reflected", 661, 437, 73, 17)
GUICtrlSetTip(-1, "Press to set friendly fire reflected")
$Group2 = GUICtrlCreateGroup("Friendly fire", 429, 413, 377, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$modestab = GUICtrlCreateTabItem("Modes")
$Button5 = GUICtrlCreateButton("Search & Destroy", 441, 59, 113, 25, 0)
$Button6 = GUICtrlCreateButton("Death Match", 566, 60, 113, 25, 0)
$Button7 = GUICtrlCreateButton("Team Death Match", 687, 60, 113, 25, 0)
$Button8 = GUICtrlCreateButton("Capture the Flag", 440, 100, 113, 25, 0)
$Button9 = GUICtrlCreateButton("Headquaters", 565, 100, 113, 25, 0)
$Label19 = GUICtrlCreateLabel("Grace Period", 445, 157, 66, 17)
$Label20 = GUICtrlCreateLabel("Score Limit", 445, 193, 56, 17)
$Label21 = GUICtrlCreateLabel("Round Length", 562, 157, 72, 17)
$Label22 = GUICtrlCreateLabel("Map Time Limit", 562, 193, 75, 17)
$Label23 = GUICtrlCreateLabel("Round Limit", 686, 157, 60, 17)
$Label24 = GUICtrlCreateLabel("Map score Limit", 445, 245, 78, 17)
$Label25 = GUICtrlCreateLabel("Time Limit", 586, 245, 51, 17)
$Label26 = GUICtrlCreateLabel("Map score Limit", 445, 315, 78, 17)
$Label27 = GUICtrlCreateLabel("Time Limit", 586, 315, 51, 17)
$Label28 = GUICtrlCreateLabel("Map score Limit", 445, 380, 78, 17)
$Label29 = GUICtrlCreateLabel("Time Limit", 586, 380, 51, 17)
$Label30 = GUICtrlCreateLabel("Map score Limit", 445, 446, 78, 17)
$Label31 = GUICtrlCreateLabel("Time Limit", 586, 446, 51, 17)
$Input6 = GUICtrlCreateInput("50", 526, 245, 33, 21)
$Input7 = GUICtrlCreateInput("30", 644, 244, 33, 21)
$Input8 = GUICtrlCreateInput("100", 526, 311, 33, 21)
$Input9 = GUICtrlCreateInput("30", 644, 311, 33, 21)
$Input10 = GUICtrlCreateInput("5", 526, 377, 33, 21)
$Input11 = GUICtrlCreateInput("30", 644, 377, 33, 21)
$Input12 = GUICtrlCreateInput("450", 526, 443, 33, 21)
$Input13 = GUICtrlCreateInput("30", 644, 443, 33, 21)
$Input14 = GUICtrlCreateInput("15", 518, 158, 33, 21)
$Input15 = GUICtrlCreateInput("10", 518, 189, 33, 21)
$Input16 = GUICtrlCreateInput("4", 644, 158, 33, 21)
$Input17 = GUICtrlCreateInput("0", 644, 189, 33, 21)
$Input18 = GUICtrlCreateInput("0", 761, 158, 33, 21)
$Group3 = GUICtrlCreateGroup("Instant game mode switch", 429, 45, 377, 89)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Set", 685, 189, 49, 25, 0)
$Button11 = GUICtrlCreateButton("Defaults", 741, 189, 57, 25, 0)
$Button12 = GUICtrlCreateButton("Set", 685, 244, 49, 25, 0)
$Button13 = GUICtrlCreateButton("Set", 685, 311, 49, 25, 0)
$Button14 = GUICtrlCreateButton("Set", 685, 377, 49, 25, 0)
$Button15 = GUICtrlCreateButton("Set", 685, 443, 49, 25, 0)
$Button16 = GUICtrlCreateButton("Defaults", 741, 244, 57, 25, 0)
$Button17 = GUICtrlCreateButton("Defaults", 741, 311, 57, 25, 0)
$Button18 = GUICtrlCreateButton("Defaults", 741, 377, 57, 25, 0)
$Button19 = GUICtrlCreateButton("Defaults", 741, 443, 57, 25, 0)
$Group4 = GUICtrlCreateGroup("Seach & Destroy settings", 429, 141, 377, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Team Death Match settings", 429, 357, 377, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Headquaters settings", 429, 421, 377, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Death Match settings", 429, 229, 377, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Team Death Match settings", 429, 293, 377, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$weaponstab = GUICtrlCreateTabItem("Weapons")
$Checkbox11 = GUICtrlCreateCheckbox("M1 Carabine", 445, 85, 153, 17)
$Checkbox12 = GUICtrlCreateCheckbox("M1 Garand", 445, 111, 153, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Thompson", 445, 139, 153, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Browing Auto Rfle", 641, 85, 153, 17)
$Checkbox15 = GUICtrlCreateCheckbox("Springfield", 641, 111, 153, 17)
$Checkbox16 = GUICtrlCreateCheckbox("Greace gun", 641, 139, 153, 17)
$Checkbox17 = GUICtrlCreateCheckbox("Lee Enfield", 445, 190, 81, 17)
$Checkbox18 = GUICtrlCreateCheckbox("Scoped Lee Enfield", 445, 216, 113, 17)
$Checkbox19 = GUICtrlCreateCheckbox("Sten", 445, 242, 41, 17)
$Checkbox20 = GUICtrlCreateCheckbox("Bren LMG", 445, 268, 73, 17)
$Checkbox21 = GUICtrlCreateCheckbox("PPSH", 641, 190, 49, 17)
$Checkbox22 = GUICtrlCreateCheckbox("Mosin Naqant", 641, 216, 89, 17)
$Checkbox23 = GUICtrlCreateCheckbox("Scoped Mosin Naqant", 641, 242, 129, 17)
$Checkbox24 = GUICtrlCreateCheckbox("MP40", 445, 336, 57, 17)
$Checkbox25 = GUICtrlCreateCheckbox("MP44", 445, 361, 57, 17)
$Checkbox26 = GUICtrlCreateCheckbox("Kar98", 445, 387, 49, 17)
$Checkbox27 = GUICtrlCreateCheckbox("Scoped Kar98", 445, 412, 89, 17)
$Checkbox28 = GUICtrlCreateCheckbox("G43", 641, 336, 41, 17)
$Checkbox29 = GUICtrlCreateCheckbox("PPS 42", 641, 361, 57, 17)
$Checkbox30 = GUICtrlCreateCheckbox("Shotgun", 641, 387, 65, 17)
$Checkbox31 = GUICtrlCreateCheckbox("SVT 40", 641, 412, 65, 17)
$Button20 = GUICtrlCreateButton("Get from server", 437, 45, 153, 25, 0)
$Button21 = GUICtrlCreateButton("Send to server", 607, 45, 153, 25, 0)
$Group9 = GUICtrlCreateGroup("Allies", 429, 69, 369, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("British", 429, 173, 169, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("Russian", 613, 173, 177, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group12 = GUICtrlCreateGroup("German", 429, 317, 169, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group13 = GUICtrlCreateGroup("Other", 613, 317, 177, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$playerstab = GUICtrlCreateTabItem("Players")
$othertab = GUICtrlCreateTabItem("Other")
$Button22 = GUICtrlCreateButton("Get from server", 445, 61, 129, 33, 0)
$Button23 = GUICtrlCreateButton("Send to server", 605, 61, 129, 33, 0)
$Checkbox32 = GUICtrlCreateCheckbox("Frag Granades", 445, 125, 97, 25)
$Checkbox33 = GUICtrlCreateCheckbox("Smoke Granades", 605, 125, 129, 25)
$Group14 = GUICtrlCreateGroup("Other settings", 429, 109, 369, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet1 = GUICtrlCreateTabItem("Punkbuster")
GUICtrlCreateTabItem("")
$Button4 = GUICtrlCreateButton("Disconnect", 272, 73, 129, 25, 0)
GUICtrlSetTip(-1, "Press to disconnect from a server")
$MenuItem4 = GUICtrlCreateMenu("&File")
$MenuItem5 = GUICtrlCreateMenuItem("Save message log", $MenuItem4)
$MenuItem6 = GUICtrlCreateMenuItem("Clear message log", $MenuItem4)
$MenuItem7 = GUICtrlCreateMenuItem("Save rcon log", $MenuItem4)
$MenuItem8 = GUICtrlCreateMenuItem("Clear rcon log", $MenuItem4)
$MenuItem9 = GUICtrlCreateMenuItem("Exit", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenu("&Common tasks")
$MenuItem14 = GUICtrlCreateMenuItem("Restart map", $MenuItem3)
$MenuItem15 = GUICtrlCreateMenuItem("Fast restart", $MenuItem3)
$MenuItem13 = GUICtrlCreateMenuItem("Friendly fire on", $MenuItem3)
$MenuItem12 = GUICtrlCreateMenuItem("Friendly fire off", $MenuItem3)
$MenuItem11 = GUICtrlCreateMenuItem("Friendly fire reflected", $MenuItem3)
$MenuItem10 = GUICtrlCreateMenuItem("Friendly fire shared", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("&Game mode")
$MenuItem16 = GUICtrlCreateMenuItem("Search & Destroy", $MenuItem2)
$MenuItem17 = GUICtrlCreateMenuItem("Deathmatch", $MenuItem2)
$MenuItem18 = GUICtrlCreateMenuItem("Capture the flag", $MenuItem2)
$MenuItem19 = GUICtrlCreateMenuItem("Team Deathmatch", $MenuItem2)
$MenuItem20 = GUICtrlCreateMenuItem("Headquaters", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Help")
$MenuItem21 = GUICtrlCreateMenuItem("MenuItem21", $MenuItem1)
$MenuItem22 = GUICtrlCreateMenuItem("MenuItem22", $MenuItem1)
$MenuItem23 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetState(@SW_SHOW)


While 1
    UDPStartup()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        Case $connect
        connect()       
        Case $Button23
    
        Case $tab
    EndSwitch
WEnd    
    
    
    
Func connect()

    If GUICtrlRead($serverip) = "" or GUICtrlRead($serverport) = "" or GUICtrlRead($serverpassword) = ""Then
        MsgBox(48,"Error","Please full in all forms to connect to a server")            
    Else
        $ip = GUICtrlRead($serverip)
        $port = GUICtrlRead($serverport)
        $password = GUICtrlRead($serverpassword)
        $socket = UDPBind($ip, $port)
        UDPOpen($ip,$port)
        UDPSend($socket,"ÿÿÿÿ rcon" & $password)        
        
    EndIf   
EndFunc

As you can see i made a func...

Only it does not work..

It needs to read the ip,port and password and then send it to the server.

What am i doing wrong?

Some who can help me?

I know there is here an topic for quake mabey he can help me?

I little problem, hard to find and fix

Link to comment
Share on other sites
Erik. Universalist

Erik.

Posted
  • Author
Posted

Deleted... :)

I hope you can help me here and do not close this topic..

it has noting whit bots, or gaming only how to control a server so nothing whit wallhacks aimbot ect..

I little problem, hard to find and fix

Link to comment
Share on other sites
i542 Universalist

i542

Posted
Posted

Deleted... :)

I hope you can help me here and do not close this topic..

it has noting whit bots, or gaming only how to control a server so nothing whit wallhacks aimbot ect..

I think Remote Admin Project (by Mandar) can help you...

i542

I can do signature me.

Link to comment
Share on other sites
Erik. Universalist

Erik.

Posted
  • Author
Posted

can not found it whit the search...link?

Mabey someone can help me whit this?

I am trying it about 2 days but i can not found what i am doing wrong

I little problem, hard to find and fix

Link to comment
Share on other sites
Erik. Universalist

Erik.

Posted
  • Author
Posted

The only problem is..

i need to send a command whit a password and wait till i get a message back and put it into a guictrlcreatetext

I little problem, hard to find and fix

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...