Что нового

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

Rjevsky

Новичок
Сообщения
102
Репутация
4
Версия AutoIt: 3.3.0.0

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: Winlirc UDF

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

Rjevsky

Новичок
Сообщения
102
Репутация
4
Сам поставил задачу - сам её и решил. :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()


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