$sIp = '123.123.123.123'
$iPort = 12345
Global $sData = 'test'
TCPStartup()
Global $socket = TCPConnect($sIp, $iPort)
If Not @error Then
MsgBox(0, 'Done', 'Соединние успешно установлено!')
HotKeySet('+g', '_send')
HotKeySet('+п', '_send')
HotKeySet('+e', '_exit')
HotKeySet('+у', '_exit')
While 1
Sleep(10)
WEnd
Else
MsgBox(0, 'Error', 'Не удалось соединиться с сервером!')
EndIf
TCPShutdown()
Func _send()
TCPSend($socket, $sData)
If @error Then
MsgBox(0, 'Error', 'Не удалось отправить данные!')
TCPShutdown()
Exit
EndIf
EndFunc
Func _exit()
TCPShutdown()
Exit
EndFunc