#include <GUIConstantsEx.au3>
$szIPADDRESS = @IPAddress1
$nPORT = 8765
GUICreate("Winlirc", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()
TCPStartup()
$Socket = TCPConnect($szIPADDRESS, $nPORT)
If @Error Then
GUICtrlSetData($edit, "Не могу подключиться. WinLirc запущен?")
Else
GUICtrlSetData($edit, "Подключение с WinLirc установлено")
EndIf
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$winlirc = TCPRecv($Socket, 2048)
If $winlirc <> "" Then GUICtrlSetData($edit, " > " & $winlirc & @CRLF & GUICtrlRead($edit))
WEnd
TCPCloseSocket($Socket)
TCPShutdown()