VetlteV

Yes that's because in udf there is bind function. This function is not supported in standard tcp. I was miserable before I found it. I am very grateful for someone who wrote this udf. Thanks P/S: Maybe other function =)))

Wow it's work any host. Thanks you.

Oh no it's not like that. Host need test. Global $iConnect = _connect($iSock, "3.1.168.177", 7103) Data to send Global $sToSend = "0xec0108900f1ae6010a0408131001520408031000520408051000720a08021206332e31342e31726c0814126865326130386133616162323432666562343638633862336433376434643432332362636131373139626339613034393032233837343236383937323130353632353233353632233030313031313030393331313433372330303a31453a45343a30303a36443a3637720508a501120072120815120e636f6d2e686474742e6e706c6179720408161200721a081712166656566a75705547536869647249796932746a774133720408181200720e088d0112094d6e63414844593536720508df011200" And result need or like that. 0xBA2508E9071AB425520408061001721F080A121BC490C4836E67206E68E1BAAD70207468C3A06E682063C3B46E6720FA01892508E8361283250AD1030A04082410000A04085410010A04085210000A04085310005208080F10ABE5ADDE03520E08D10F10FFFFFFFFFFFFFFFFFF01520E08E10F10FFFFFFFFFFFFFFFFFF015204082010005204084010005205089E011000520508A7011000520508A9011014520508B0011000520508A8011001520508B1011000520508AB011001520508B7011000520508CB011000520408481000520508CD0110005204080610015204080510005204083F10005A0608071080B5185A0508900110005A09082310E2BE88DBD92F5A04085210005A04085310005A0608AA0110D00F5A0508910110005A0508920110006A0B083911000000000000000072100809120C4E506C61793130353634373172330808122F68747470733A2F2F7374617469632E6E706C61792E6D6F62692F646C632F6176617461722F467265652F312E706E677204080D12007204081012007204080E12007204081912007204081A120072100851120C6E706C617931303536343731720408611200720408601200720508D3011200720508D4011200720508D501120072120815120E636F6D2E686474742E6E706C6179721F080A121BC490C4836E67206E68E1BAAD70207468C3A06E682063C3B46E6720CA010508D6011200CA0104083A12000A595204083D10005204084710005204083E1000520408481000520408201000520408401000520508B10110005204083F10005A080849108090FBD30962070842150000803FCA01120846120E0A0CF403D00FC03EA8C301F093090A5BFA0158086E12540A0C5204086F10005204087010010A0C5204086F10015204087010010A0C5204086F10025204087010010A0C5204086F10035204087010010A0C5204086F10045204087010000A0C5204086F10055204087010010A8705FA018305083C12FE040A660A04084410000A04084B10005204082010005204083D10005204083E10005204083F100052040840100052040841100052040845100A5A0908D701108090FBD3095A0808D8011080B8992962070842150000803F62070843150000803F6207084E15000000000A670A04084410000A04084B10015204082010015205083D10F4035204083E107D5204083F10015204084010005204084110055204084510145A0908D701108090FBD3095A0808D8011080F4EE0662070842150000C03F62070843150000C03F6207084E15000020410A680A04084410000A04084B10015204082010025205083D10D00F5205083E10F4035204083F100252040840100052040841100A5204084510325A0908D7011080D8F8BD0E5A0808D8011080F4EE066207084215000000406207084315000000406207084E15000070410A680A04084410000A04084B10015204082010035205083D10C03E5205083E10D00F5204083F100352040840100152040841100F5204084510645A0908D7011080A0F6A7135A0808D8011080F4EE066207084215000040406207084315000040406207084E150000A0410A6A0A04084410010A04084B10015204082010045206083D10A8C3015205083E10EA305204083F1004520408401002520408411014520508451096015A0908D7011080D0E7A3305A0808D8011080F4EE066207084215000080406207084315000080406207084E150000C8410A6B0A04084410010A04084B10015204082010055206083D10F093095206083E10E0A8015204083F100552040840100352040841101E5205084510F4035A0908D7011080D8C4BD755A0808D8011080F4EE0662070842150000A04062070843150000A0406207084E150000F0410A1F5204082E10005204082F100A520408331014520408201001FA0104082712000AC91A520508D4171000520508F2171002FA01AA

I tried with attached but nothing change. You can post your code for me. i'm tired.

Thanks for reply @funkey, I tried again but the result is still the same. I test again on another server and return the same result. #include "socket_UDF.au3" _WSAStartup() Global $iSock = _socket($AF_INET, $SOCK_STREAM, $IPPROTO_TCP) ConsoleWrite("Socket: " & $iSock & @CRLF) Global $tTimeVal = DllStructCreate("DWORD timeout") DllStructSetData($tTimeVal, "timeout", 5000) ; Timeout 200ms $iSockError = _setsockopt($iSock, $SOL_SOCKET, $SO_RCVTIMEO, $tTimeVal) ; set Timeout for recv If $iSockError Then ConsoleWrite("SetSockOpt error setting recv timeout!. Windows Sockets Error Codes: " & _WSAGetLastError() & @CRLF) _closesocket($iSock) TCPShutdown() ;WSACleanup EndIf ;~ Global $iBind = _bind($iSock, @IPAddress1, 20000) ;local IP-Address and port to use ;~ ConsoleWrite("Bind error: " & $iBind & @CRLF) ; 0 is OK Global $iConnect = _connect($iSock, "184.168.101.36", 80) ConsoleWrite("Connect error: " & $iConnect & @CRLF) ; 0 is OK If $iConnect Then ConsoleWrite("Windows Sockets Error Codes: " & _WSAGetLastError() & @CRLF) _closesocket($iSock) TCPShutdown() ;WSACleanup EndIf Global $sToSend = "GET /getip.php HTTP/1.1" & @CRLF & "Host: updatevng.com" & @CRLF & @CRLF Global $tSendBuffer = DllStructCreate("char[" & StringLen($sToSend) & "]") DllStructSetData($tSendBuffer, 1, $sToSend) Global $iSend = _send($iSock, $tSendBuffer) ConsoleWrite("Bytes sent: " & $iSend & @CRLF) Global $tRecvBuffer = DllStructCreate("char["&10*1024&"]") Global $iRecv = _recv($iSock, $tRecvBuffer) ConsoleWrite("Bytes received: " & $iRecv & @CRLF) ConsoleWrite("Data received: " & DllStructGetData($tRecvBuffer, 1) & @CRLF) ;input1;OFF _closesocket($iSock) _WSACleanup() TCPStartup() Opt("TCPTimeout",5000) $SK_2 = TCPConnect("184.168.101.36", 80) TCPSend($SK_2,$sToSend) $Rev = TCPRecv($SK_2,10*1024) ConsoleWrite("Rev:"&$Rev &@CRLF) TCPCloseSocket($SK_2) TCPShutdown()

Thanks funkey for good UDF. Sorry for bad english. I have a problem with socket_UDF. I don't know different of UDF and TCP from autoit but my script return different. This is console return. This is my script. #include "socket_UDF.au3" _WSAStartup() Global $iSock = _socket($AF_INET, $SOCK_STREAM, $IPPROTO_TCP) ConsoleWrite("Socket: " & $iSock & @CRLF) Global $tTimeVal = DllStructCreate("DWORD timeout") DllStructSetData($tTimeVal, "timeout", 5000) ; Timeout 200ms $iSockError = _setsockopt($iSock, $SOL_SOCKET, $SO_RCVTIMEO, $tTimeVal) ; set Timeout for recv If $iSockError Then ConsoleWrite("SetSockOpt error setting recv timeout!. Windows Sockets Error Codes: " & _WSAGetLastError() & @CRLF) _closesocket($iSock) TCPShutdown() ;WSACleanup EndIf ;~ Global $iBind = _bind($iSock, @IPAddress1, 20000) ;local IP-Address and port to use ;~ ConsoleWrite("Bind error: " & $iBind & @CRLF) ; 0 is OK Global $iConnect = _connect($iSock, "3.1.168.177", 7103) ConsoleWrite("Connect error: " & $iConnect & @CRLF) ; 0 is OK If $iConnect Then ConsoleWrite("Windows Sockets Error Codes: " & _WSAGetLastError() & @CRLF) _closesocket($iSock) TCPShutdown() ;WSACleanup EndIf Global $sToSend = "0xec0108900f1ae6010a0408131001520408031000520408051000720a08021206332e31342e31726c0814126865326130386133616162323432666562343638633862336433376434643432332362636131373139626339613034393032233837343236383937323130353632353233353632233030313031313030393331313433372330303a31453a45343a30303a36443a3637720508a501120072120815120e636f6d2e686474742e6e706c6179720408161200721a081712166656566a75705547536869647249796932746a774133720408181200720e088d0112094d6e63414844593536720508df011200" Global $tSendBuffer = DllStructCreate("char[" & StringLen($sToSend) & "]") DllStructSetData($tSendBuffer, 1, $sToSend) Global $iSend = _send($iSock, $tSendBuffer) ConsoleWrite("Bytes sent: " & $iSend & @CRLF) Global $tRecvBuffer = DllStructCreate("char[64]") Global $iRecv = _recv($iSock, $tRecvBuffer) ConsoleWrite("Bytes received: " & $iRecv & @CRLF) ConsoleWrite("Data received: " & DllStructGetData($tRecvBuffer, 1) & @CRLF) ;input1;OFF _closesocket($iSock) _WSACleanup() TCPStartup() Opt("TCPTimeout",5000) $SK_2 = TCPConnect("3.1.168.177", 7103) TCPSend($SK_2,$sToSend) $Rev = TCPRecv($SK_2,10*1024) ConsoleWrite("Rev:"&$Rev &@CRLF) TCPCloseSocket($SK_2) TCPShutdown()