Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $ConnectedSocket, $szData
Local $szIPADDRESS = "178.0.0.1"
Local $nPORT = 9999
TCPStartup()
$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
Else
$szData = "0x0000000860030A0474657374"
TCPSend($ConnectedSocket, $szData)
EndIf
EndFunc ;==>Example