Может кто встречал такую программу, неделю "копаю" инет - ничего путнего не попадается.
Сыльно надо..
Код: Выделить всё
If OpenSerialPort(0, "COM1", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 256, 256)
Repeat
If GetSerialPortStatus(0, #PB_SerialPort_CTS)<>0
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
EndIf
Delay(200)
ForEver
Else
MessageRequester("", "Ошибка открытия порта.")
EndIf