Серый форум — VBS: не срабатывает событие MSComm_onComm

Re: VBS: не срабатывает событие MSComm_onComm

2011-03-24T13:11:02Z

Xameleon пишет:

2 dandyd:
Уточню. The gray Cardinal обращает ваше внимание на то что надо бы:
Set MSComm = WScript.CreateObject("MSCommLib.MSComm","MSComm_")
вместо
Set MSComm = CreateObject("MSCommLib.MSComm")

Спасибо. В этом варианте заработало.
Тема закрыта.

Re: VBS: не срабатывает событие MSComm_onComm

2011-03-24T13:07:01Z

2 dandyd: Функция CreateObject и WScript.CreateObject это не одно и тоже. Работают по разному. Вам нужен второй вариант.

Re: VBS: не срабатывает событие MSComm_onComm

2011-03-24T13:04:21Z

The gray Cardinal пишет:

http://www.script-coding.com/WSH/WScript.html#3.4.

Там вроде бы все правильно расписано, но при этом подходе скрипт выдает ошибку:

D:\comm11-1.vbs(3, 1) Ошибка выполнения Microsoft VBScript: Компьютер удаленного сервера не существует или недоступен: 'CreateObject'

И PrimalScript при создании строки "Set MSComm = CreateObject(" выдает подсказку - "CreateObject(servername.typename[,location])".
Т.е. почему-то получается, что второй параметр - это имя компьютера, откуда надо брать mscomm32.ocx.

Dim MSComm
Set wshShell = CreateObject("WScript.Shell")
Set MSComm = CreateObject("MSCommLib.MSComm","evt_")
MSComm.CommPort = 11
MSComm.Settings = "115200,N,8,1"
MSComm.InputLen = 0 'max input lenght
MSComm.Handshaking = 2
MSComm.CDHolding = True
MSComm.DTREnable = True
MSComm.RTSEnable = True
MSComm.RThreshold = 1
MSComm.SThreshold = 1
MSComm.NullDiscard = False 'Null char received
MSComm.InputMode = 0 '0/1 text/bin

wscript.Echo cstr(MSComm.PortOpen)
If Not MSComm.PortOpen then
  MSComm.PortOpen = True
End If
wscript.Echo cstr(MSComm.PortOpen)

While True
  WScript.sleep 5000
  WScript.Echo "."
wend

MSComm.PortOpen = False
'---------------------------------
Sub evt_OnComm()
  WScript.Echo MSComm.CommEvent
End Sub

Re: VBS: не срабатывает событие MSComm_onComm

2011-03-24T13:01:17Z

2 dandyd:

Уточню. The gray Cardinal обращает ваше внимание на то что надо бы:

Set MSComm = WScript.CreateObject("MSCommLib.MSComm","MSComm_")

вместо

Set MSComm = CreateObject("MSCommLib.MSComm")

Re: VBS: не срабатывает событие MSComm_onComm

2011-03-24T12:42:26Z

http://www.script-coding.com/WSH/WScript.html#3.4.

VBS: не срабатывает событие MSComm_onComm

2011-03-24T12:33:25Z

Добрый день.

Уперся в проблему - в скрипте не срабатывает событие MSComm_OnComm.

COMM11 - виртуальный USB Serial port, на железке стоит микросхема FT232R фирмы FTDI (VID_0403 PID_6001).
Порт открывается/закрывается, данные посылаются/считываются(Input/Output) и с параметрами по умолчанию, но событие MSComm_OnComm не cрабатывает.
http://msdn.microsoft.com/en-us/library … S.60).aspx читал.

Может быть кто сталкивался.
Видимо как-то не так устанавливаю параметры порта при открытии.

Код:

Dim MSComm
Set wshShell = CreateObject("WScript.Shell")
Set MSComm = CreateObject("MSCommLib.MSComm")
MSComm.CommPort = 11
MSComm.Settings = "115200,N,8,1"
MSComm.InputLen = 0 'max input lenght
MSComm.Handshaking = 2
MSComm.CDHolding = True
MSComm.DTREnable = True
MSComm.RTSEnable = True
MSComm.RThreshold = 1
MSComm.SThreshold = 1
MSComm.NullDiscard = False 'Null char received
MSComm.InputMode = 0 '0/1 text/bin

wscript.Echo cstr(MSComm.PortOpen)
If Not MSComm.PortOpen then
  MSComm.PortOpen = True
End If
wscript.Echo cstr(MSComm.PortOpen)

While True
  WScript.sleep 5000
  WScript.Echo "."
wend

MSComm.PortOpen = False
'---------------------------------
Private Sub MSComm_OnComm()
  WScript.Echo MSComm.CommEvent
End Sub

Заранее спасибо