работа с Winlirc - приём комманд с пульта ДУ

[Rjevsky]

Версия AutoIt: 3.3.0.0

Описание:
Приём комманд с пульта дистанционного управления с помощью WinLirc сервера.
Примечания:
Тут информация для разработчиков с оф. странички WinLirc
Тут Java Api с оф. странички WinLirc
Тут скрипт для Autohotkey

 

[kaster]

Re: Winlirc UDF

Предупреждение

Тему не помешало бы переименовать на что-нибудь более понятное со стороны, без необходимости читать всю тему

 

[Rjevsky]

Сам поставил задачу - сам её и решил. :laugh:

#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()

Подправьте меня, если код не очень красивый.