Управление проектором Mitsubishielectric EW270U по RS-232 (or virtual COM over USB)

Sub bb()
Open "COM1:115200,N,8,1" For Output As #1
Print #1, vbCr; "*pow=on#"; vbCr;
Close #1
End Sub

' Mitsubishielectric_Projector_EW270U.VBS
' Демонстрационный скрипт включения-выключения проектора Mitsubishielectric EW270U over RS-232 через пробел (Space) c голосовым сопровождением
'
' Разработчик: Бадло Сергей Григорьевич aka raxp
' H-page: [url]http://raxp.radioliga.com[/url]
' Разработка и тестирование универсального скрипта регистрации COM-сервера DynWrapX: Станислав aka Dragokas 
' H-page: [url]http://Dragokas.16mb.com[/url]
' Автор DynwrapX library ver 2.0: U. Popov aka YMP
' H-page: [url]http://script-coding.com[/url]
'
' Зависимости: 
' · Win OS 32/64-bit 
' · COM-сервер DynWrapx.dll
' · SAPI (для озвучивания используется интерфейс по-умолчанию)
' · ActiveX-класс для работы с COM-портом MSCOMM32.OCX с лицензией (в комплекте)
' · Физический RS-232 or virtual COM over USB
' · Подключенный проектор Mitsubishielectric моделей EW270U/EW230U-ST/EX240U/ES200U
'
' Региcтрация интерфейсов (обязательно первично однократно): 
' · в данном скрипте задайте порт подключения проектора
' · запустите regdynwrapx.bat 
' Использование: запустите run_Mitsubishielectric_Projector_EW270U.cmd
 
 
 
' подключаем голосовое сопровождение
Dim Speak
b = true
Set Speak = CreateObject("sapi.spvoice")
' регистрируем COM объект DynamicWrapperX в тихом режиме
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("regsvr32.exe dynwrapx.dll /s"),3, true
' создаем объект DynamicWrapperX
Set Wrap = CreateObject("DynamicWrapperX.2")
Wrap.Register "user32.dll", "GetAsyncKeyState", "i=l", "f=s", "r=l"
 
' Настройка порта COM6, на котором проектор
Set MSComm1 = CreateObject("MSCommLib.MSComm")
MSComm1.CommPort = 6
MSComm1.Settings = "115200,N,8,1"
MSComm1.PortOpen = true
 
' Информируем пользователя о начале работы
Speak.Speak "Готов измываться над проектором."
 
' запускаем бесконечный цикл с задержкой
Do
WScript.Sleep 1000 'кол-во миллисекунд
res = Wrap.GetAsyncKeyState(32)
 
if (res = "1") then 
 b = not b
 
 if (b = false) then 
  ' активируем проектор
  cmd = "*pow=on#"
  MSComm1.Output =  chr(13) & cmd & chr(13)
  ' при надоедливости голоса комментируем его
  Speak.Speak "Проектор включен."
 End if
 
 if (b = true) then 
  ' вырубаем проектор
  cmd = "*pow=off#"
  MSComm1.Output =  chr(13) & cmd & chr(13)
  ' при надоедливости голоса комментируем его
  Speak.Speak "Проектор выключен."
 End if
 
End if
Loop
Wrap.CloseHandle(hFile)

' Настройка порта COM6, на котором проектор
Set MSComm1 = CreateObject("MSCommLib.MSComm")
MSComm1.CommPort = 1
MSComm1.Settings = "115200,N,8,1"
MSComm1.PortOpen = true
 
 
 
 
  ' активируем проектор
  cmd = "*pow=on#"
  MSComm1.Output =  chr(13) & cmd & chr(13)
  ' при надоедливости голоса комментируем его