Global $sLog = @ScriptDir&"\log.txt"

TCPStartup()

print("try connecting to server...")
Do
	$iSocket = TCPConnect(@IPAddress1, 1234)
Until $iSocket>0
print("connected successfully to server on socket "&$iSocket)

Sleep(1000)

print("closing tcp socket")
TCPCloseSocket($iSocket)

Sleep(1000)

print("call TCPShutdown()")
TCPShutdown()

print("exit")
Exit

Func print($sText)
	FileWrite("log.txt",  StringFormat("[%i:%i:%i:%i] CLIENT: %s\r\n", @HOUR, @MIN, @SEC, @MSEC, $sText))
EndFunc