yucatan
Active Members-
Posts
561 -
Joined
-
Last visited
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
yucatan's Achievements
Universalist (7/7)
0
Reputation
-
i have an external hex editor in which i can edit something in the hex of a file. is it possible do edit the hex of a file with autoit? if this is possible how this can be done? Thanks in advance.
-
how to talk from udp server to udp client.
yucatan replied to yucatan's topic in AutoIt General Help and Support
water how exacly do you mean ? you mean the UDPSend($socket[1], "ÿÿÿÿchallengeResponse 1425526264") in the server? -
how to talk from udp server to udp client.
yucatan replied to yucatan's topic in AutoIt General Help and Support
the problem i'm having is that when i from the server send data towards the socket then the server recieves its own sended data instead of it has been sended towards the client -
how to talk from udp server to udp client.
yucatan replied to yucatan's topic in AutoIt General Help and Support
i think i already found the problem i'm sending towards an socket but thats not working in UDP i think i should be sending toward ip:port gonna check it out tomorrow Kind regards -
how to talk from udp server to udp client.
yucatan replied to yucatan's topic in AutoIt General Help and Support
Water is this only with autoit applications or is this just the UDP protocol? because for example call of duty uses udp to communicate between client een server but ofcrouse people that play call of duty dont have port forwarding. but still a call of duty server is able to send data towards call of duty players. and i'm sure this is done by udp do you maby have an explaination for that? -
how to talk from udp server to udp client.
yucatan replied to yucatan's topic in AutoIt General Help and Support
water i did take a look in the help filed but the help files only explaine how the client can send to the server that part i got working but i'm unable to use that same socket to send data from the server towards the client -
how to talk from udp server to udp client.
yucatan posted a topic in AutoIt General Help and Support
Hello i'm building an udp server with an udp client but i seems i cant get it working to send a message from the udp server to the udp client Anyone any help? client: UDPStartup() ;188.165.40.108:29022 $socket = udpopen("127.0.0.1", 65532) If @error <> 0 Then ConsoleWrite(@error) Exit EndIf ;$cdkey = $argv[3] ;$cdkeypart = substr($cdkey, 0, 16) ;$pbguid = "123456789abcdef1234567890abcdefa" ;ÿÿÿÿgetKeyAuthorize 0 XHU6E7666HHJPAP3 PB 123456789abcdef1234567890abcdefa WL3ZW7QJXJA3P3GE8DE3 $data = "" $auth = udpsend($master, "ÿÿÿÿgetKeyAuthorize 0 P7XLP5EH6A5HJL7L PB 123456789abcdef1234567890abcdefa") $status = udpSend($socket, 'ÿÿÿÿgetchallenge 0') While 1 $data = udpRecv($socket, 99999) if $data <> "" Then ConsoleWrite($data & @CRLF) exitloop EndIf WEnd $challange = StringMid($data, 22, 20) ConsoleWrite($challange&@LF) $challange = StringReplace($challange, " ", "") ConsoleWrite($challange&@lf) UDPSend($socket, "ÿÿÿÿconnect \cg_predictItems\1\cl_anonymous\0\cl_punkbuster\1\cl_voice\1\cl_wwwDownload\1\rate\25000\snaps\20\name\yorickispro\protocol\118\challenge\"&$challange&"\qport\30336") ;ÿÿÿÿconnect "\cg_predictItems\1\cl_anonymous\0\cl_punkbuster\1\cl_voice\1\cl_wwwDownload\1\rate\25000\snaps\20\name\FMNZRIMY\protocol\118\challenge\-1350344700\qport\30336" While 1 $data = udpRecv($socket, 99999) if $data <> "" Then ConsoleWrite($data & @CRLF) ;exitloop EndIf WEnd ;ConsoleWrite($teller & @CRLF) ;until $henk=0 server: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <Array.au3> UDPStartup() OnAutoItExitRegister("Cleanup") ; Bind to a SOCKET ;============================================== Local $socket = UDPBind("127.0.0.1", 65532) If @error <> 0 Then Exit Local $file, $btn, $msg, $myedit, $msg GUICreate("My GUI edit",700,700) ; will create a dialog box that when displayed is centered $file = GUICtrlCreateInput("", 10, 650, 300, 20) $myedit = GUICtrlCreateEdit("" & @CRLF, 0, 0, 600, 600, $ES_AUTOVSCROLL + $WS_VSCROLL) $handle = GUICtrlGetHandle ( $myedit ) GUICtrlSetData($myedit, "UDP server started"&@crlf,"1") GUISetState() ; Run the GUI until the dialog is closed While 1 $data = "" $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Local $data = UDPRecv($socket, 99999) If $data <> "" Then UDPSend($socket[1], "ÿÿÿÿchallengeResponse 1425526264") GUICtrlSetData($myedit, $data &@crlf,"1") WEnd GUIDelete() exit While 1 WEnd sleep (100) $data = "" While 1 Local $data = UDPRecv($socket, 99999) If $data <> "" Then ConsoleWrite($data & @LF) EndIf Sleep(100) WEnd Func Cleanup() UDPCloseSocket($socket) UDPShutdown() EndFunc ;==>Cleanup -
ÿÿÿÿINoAmmo.co.uk | #4 Dust2 Deathmatch Hello peole i try to transelate this string into reable text. alot you guys cant see because its binary. this is the return format: Data Type Comment Type byte Should be equal to 'I' (0x49) Version byte Network version. 0x07 is the current Steam version. Goldsource games will return 48 (0x30), also refered to as protocol version. Server Name string The Source server's name, eg: "Recoil NZ CS Server #1" Map string The current map being played, eg: "de_dust" Game Directory string The name of the folder containing the game files, eg: "cstrike" Game Description string A friendly string name for the game type, eg: "Counter Strike: Source" AppID short Steam Application ID Number of players byte The number of players currently on the server Maximum players byte Maximum allowed players for the server Number of bots byte Number of bot players currently on the server Dedicated byte 'l' for listen, 'd' for dedicated, 'p' for SourceTV OS byte Host operating system. 'l' for Linux, 'w' for Windows Password byte If set to 0x01, a password is required to join this server Secure byte if set to 0x01, this server is VAC secured Game Version string The version of the game, eg: "1.0.0.22" Extra Data Flag (EDF) byte if present this specifies which additional data fields will be included if ( EDF & 0x80 ) short The server's game port # is included if ( EDF & 0x10 ) long long The server's SteamID is included if ( EDF & 0x40 ) short string The spectator port # and then the spectator server name are included if ( EDF & 0x20 ) string The game tag data string for the server is included [future use] if ( EDF & 0x01 ) long long The server's 64-bit GameID is included this is my code now: UDPStartup() #include <Array.au3> $socket = udpopen("78.129.189.57", 27030) ;: If @error <> 0 Then ConsoleWrite(@error) Exit EndIf $status =UDPSend($socket, "ÿÿÿÿTSource Engine Query"& Chr("0")) While 1 $data = UDPRecv($socket, 99999) If $data <> "" Then ConsoleWrite($data) ExitLoop EndIf WEnd $result = StringTrimLeft($data, 3) $i=0 for $i=0 to 200 $extract = BinaryMid($data, $i, 200) $buffer = BinaryToString($extract) ConsoleWrite(@CRLF & $buffer) next
-
hello peole i'm trying to send this to a server : FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69 ÿÿÿÿTSource Engi 6E 65 20 51 75 65 72 79 00 ne Query but u just dunno what is wrong on my code. here a little sample of my code now UDPStartup() #include <Array.au3> $socket = udpopen("176.9.111.100", 29021) ;176.9.111.100:29021 If @error <> 0 Then ConsoleWrite(@error) Exit EndIf $teller=0 $henk=1 $teller +=1 $data = "" $status = udpSend($socket, "ÿÿÿÿTSource Engine Query") While 1 $data = udpRecv($socket, 99999) If $data <> "" Then ConsoleWrite($data & @CRLF) exit EndIf WEnd
-
i'm now trying this on a cod4 server. here is my code : UDPStartup() $socket = udpopen("176.9.111.100", 29067) If @error <> 0 Then ConsoleWrite(@error) Exit EndIf $teller=0 $henk=1 $teller +=1 $data = "" $status = udpSend($socket, "xFFxFFxFFxFFgetstatus/n") While 1 $data = udpRecv($socket, 99999) If $data <> "" Then ConsoleWrite($Data & @CRLF) EndIf WEnd ;ConsoleWrite($teller & @CRLF) but it keeps sending me yyyydisconnect
-
Hello guys i'm making a tool so that i can query my CS 1.6 server UDPStartup() OnAutoItExitRegister("Cleanup") $socket = udpopen("84.27.142.137", 27015) If @error <> 0 Then ConsoleWrite(@error) Exit EndIf $teller=0 $henk=1 $teller +=1 $status = udpSend($socket, "ÿÿÿÿTSource Engine Query") While 1 $data = udpRecv($socket, 99999) i already got a working sample for CS source. but i would like to use it for 1.6 Local Const $RCON_SERVERDATA_AUTH = 3 Local Const $RCON_SERVERDATA_EXECCOMMAND = 2 Local Const $RCON_TERMINATOR = Binary(Chr(0) & Chr(0)) TCPStartup() $server = _RconConnect("176.9.125.87", "29018", "test") If @error Then ConsoleWrite("Error with connecting or authorisation" & @CRLF) Exit EndIf While 1 $status = _RconCommand($server, "status") If @error Then ConsoleWrite("Connection closed by server" & @CRLF) ExitLoop EndIf ConsoleWrite(@CRLF & ">Result from status: " & @CRLF & @CRLF & $status & @CRLF) Sleep(5000) WEnd Exit Func _RconCommand($hSocket, $command) TCPSend($hSocket, _RconCreateCommand(0, $RCON_SERVERDATA_EXECCOMMAND, $command)) If @error Then ; Connection closed by remote server Return SetError(1, 0, -1) EndIf $len = Number(_RconGetReply($hSocket, 1)) + 3 If @error Then Return SetError(2, 0, -1) EndIf $packet = _RconGetReplyMinLen($hSocket, $len) If @error Then Return SetError(2, 0, -1) EndIf $packet = BinaryMid($packet, 12) Return BinaryToString($packet) EndFunc Func _RconConnect($ip, $port, $password) Local $hSocket = TCPConnect($ip, $port) If @error Then ; No connection could be made Return SetError(1, 0, -1) EndIf TCPSend($hSocket, _RconCreateCommand(0, $RCON_SERVERDATA_AUTH, $password)) $reply = _RconGetReply($hSocket, 28) If $reply = "" Then ; This happens if the connection is forcibly closed. Probably user is banned. Return SetError(3, 0, -1) EndIf $flag = Number(BinaryMid($reply, 19, 4)) If $flag <> 0 Then ; Invalid password Return SetError(2, 0, -1) EndIf Return $hSocket EndFunc Func _RconGetReplyMinLen($hSocket, $length) Local $packet = Binary("") While 1 $data = TCPRecv($hSocket, $length) If @error Then ExitLoop $packet = Binary($packet) + Binary($data) If BinaryLen($packet) >= $length Then ExitLoop EndIf WEnd Sleep(200) ; Read any other junk $data = TCPRecv($hSocket, 1024) $packet = Binary($packet) + Binary($data) Return $packet EndFunc Func _RconGetReply($hSocket, $length) Local $packet = Binary("") While 1 $data = TCPRecv($hSocket, $length) If @error Then ExitLoop $packet = Binary($packet) + Binary($data) If BinaryLen($packet) >= $length Then ExitLoop EndIf WEnd Return $packet EndFunc Func _RconCreateCommand($requestId, $serverData, $command) Return Binary(StringLen($command) + 10) + Binary($requestId) + Binary($serverData) + Binary($command) + $RCON_TERMINATOR EndFunc If $data <> "" Then ConsoleWrite($Data & @CRLF) EndIf WEnd anyone got an idea why this isnt working ?
-
_IECreateEmbedded and new window
yucatan replied to yucatan's topic in AutoIt General Help and Support
yeah u are missing something.i wanne display a google ad that uses javascript. but if u click on it it needs to be opened in a new window here is mij code: ; ******************************************************* ; Example 1 - Trap COM errors so that 'Back' and 'Forward' ; outside of history bounds does not abort script ; (expect COM errors to be sent to the console) ; ******************************************************* ; #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> _IEErrorHandlerRegister () $oIE = _IECreateEmbedded () GUICreate("Embedded Web control Test", 640, 580, _ (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _ $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360) $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30) GUISetState() ;Show GUI _IENavigate ($oIE, "http://freegamehosting.nl/ad.php") ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home _IENavigate ($oIE, "http://freegamehosting.nl/ad.php") Case $msg = $GUI_Button_Back _IEAction ($oIE, "back") Case $msg = $GUI_Button_Forward _IEAction ($oIE, "forward") Case $msg = $GUI_Button_Stop _IEAction ($oIE, "stop") EndSelect WEnd GUIDelete() Exit -
can i embed a page but if a link in that page is clicked it opens the new window in ur normale browser?
-
Hello guys. I'm trying to send a information query from autoit to a counter strike source server and request some basic information howmany players are connected etc this is my code until now. #include <Array.au3> UDPStartup() OnAutoItExitRegister("Cleanup") $socket = UDPOpen("84.27.55.62", 27015) If @error <> 0 Then Exit $buffer = StringToBinary("TSource Engine Query\0") $status = UDPSend($socket, $buffer) ConsoleWrite($socket[1] & @CRLF) $teller = "0" While 1 $teller +=1 if $teller = 300 then exit $data = UDPRecv($socket, 9999) If $data <> "" then Exit sleep(100) WEnd Func Cleanup() UDPCloseSocket($socket) UDPShutdown() EndFunc here is discribed how the UDP package should be build i'm pretty sure i'm doing something wrong. http://developer.valvesoftware.com/wiki/Server_Queries Here is a php version script that i tested and works. http://diktaturen.net/sqs/php-serverquery11.zip i dont know why but for some reason it just dont work. there is a counter strike server active on 84.27.55.62:27015 u can use that ip to test. this is the function we are trying to build : A2S_INFO Basic information about the server. Thanks. Greetz Yucatan