Проблемы со скриптом (#include <CommInterface.au3>)

[BlackPhreaker]

Не удается подключится к com port(у) /!\ :stars:

Нужна помощь специалистов :beer:

#include <CommInterface.au3>
#include <MsgBoxConstants.au3>

Local Const $iPort = InputBox('Приветствую.', 'Укажите COM-порт.', '')

Local Const $iBaud = 115200 ;9600
Local Const $iParity = 0
Local Const $iByteSize = 8
Local Const $iStopBits = 1

$step = 5
$boost = 50
$left_hand = False

$last_step_value = $step
Local $hFile =_CommAPI_OpenCOMPort($iPort, $iBaud, $iParity, $iByteSize, $iStopBits)
_CommAPI_ClearCommError($hFile)
_CommAPI_PurgeComm($hFile)

if $hFile <> 0 Then
   ConsoleWrite("Connected to COM" & $iPort & " successfully.")
   MsgBox($MB_SYSTEMMODAL, "/!\ ОК /!\", "Подключено успешно.")
Else
   MsgBox($MB_SYSTEMMODAL, "/!\ ERROR /!\", "Не удалось подключиться.")
   Exit
EndIf

While 1
$data = _CommAPI_ReceiveString($hFile, 1, 0)
$mouse = MouseGetPos()
Switch $data
;Case "BL"
Case "1FE48B7" ; HEX=1FE48B7 BOOT=Power
   ; ctrl-shift-esc ##/!\## by balckPhreaker
   Send("^+{ESC}")
Case "BR"
   ;Send("^+{ESC}")
   ConsoleWrite(TEST BR)
Case "BM"
   ConsoleWrite(TEST BM)
Case "CL"
   ConsoleWrite(TEST CL)
Case "CR"
   ConsoleWrite(TEST CR)
Case "CU"
   ConsoleWrite(TEST CU)
Case "CD"
   ConsoleWrite(TEST CD)
Case "-"
   ConsoleWrite(TEST )
   ;Send("{BACKSPACE}")
EndSwitch
;ConsoleWrite($data)
Sleep ( 20 )
WEnd

 

[BlackPhreaker]

Неужели не кто не работал с библиотекой??? :stars:

#include <CommInterface.au3>

Уже весь монуал перерыл не могу найти в чем ошибка...

Другие программы смело конектятся к девайсу а через скрип нет и все :stars:

 

[ra4o]

Когда то работал с СОМ портом с библиотекой "CommMG" , посмотрите, может с ней получится ?

 

[BlackPhreaker]

Да с ней все работает!!! :laugh:

Спасибо :IL_AutoIt_1:

но все таки хочется понять в чем причина??? В это скрипте...