Прослушка Serial-порта Arduino средствами VBS/WSH

' RunGetKeyboardSetcom.VBS
' Пример простейшего скрипта определения RUS-LAT раскладки 
' + контроля DTR or RTS порта COM (or virtual COM over USB) на VBS
' + голосового сопровождения при переключении раскладки
' через COM-сервер DynWrapx.dll
' Разработчик: Бадло Сергей Григорьевич
' H-page: [url]http://raxp.radioliga.com[/url]
' Ограничения: Win OS
 
 
' подключаем голосовое сопровождение
Dim Speak
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", "GetKeyboardLayout", "i=l", "f=s", "r=l"
Wrap.Register "user32.dll", "GetForegroundWindow", "f=s", "r=l"
Wrap.Register "user32.dll", "GetWindowThreadProcessId", "i=ll", "f=s", "r=l"
' регистрируем функи для работы с портом
Wrap.Register "KERNEL32.DLL", "CreateFile", "i=sllllll", "r=l"
Wrap.Register "KERNEL32.DLL", "WriteFile", "i=lllll", "r=l"
Wrap.Register "KERNEL32.DLL", "CloseHandle", "i=l", "r=l"
Wrap.Register "KERNEL32.DLL", "EscapeCommFunction", "i=hu", "r=l"
' забиваем аттрибуты
GENERIC_WRITE = 1073741824
FILE_SHARE_READ = 1
FILE_SHARE_WRITE = 2
OPEN_EXISTING = 3
FILE_ATTRIBUTE_NORMAL = 128
' пин 7
SETRTS = 3 ' Set RTS high
CLRRTS = 4 ' Set RTS low
' пин 4
SETDTR = 5 ' Set DTR high
CLRDTR = 6 ' Set DTR low
' открываем нужный нам порт COM1
hFile = Wrap.CreateFile("COM1", GENERIC_WRITE, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
' отключаем сигналы
s = Wrap.EscapeCommFunction(hFile, 4)
s = Wrap.EscapeCommFunction(hFile, 6)
' определяем для активной нити
hWindow = Wrap.GetForegroundWindow()
idProcess = Wrap.GetWindowThreadProcessId(hWindow, 0)
res = Wrap.GetKeyboardLayout(idProcess)
 
' активируем нужный сигнал до цикла
if (res = "67699721") then 
 s = Wrap.EscapeCommFunction(hFile, SETRTS)
 s = Wrap.EscapeCommFunction(hFile, CLRDTR)
 Speak.Speak "Установлена английская раскладка клавиатуры."
End if
if (res = "68748313") then 
 s = Wrap.EscapeCommFunction(hFile, SETDTR)
 s = Wrap.EscapeCommFunction(hFile, CLRRTS)
 Speak.Speak "Установлена русская раскладка клавиатуры."
End if
 
' запускаем бесконечный цикл с задержкой
Do
WScript.Sleep 1000 'кол-во миллисекунд
hWindow = Wrap.GetForegroundWindow()
idProcess = Wrap.GetWindowThreadProcessId(hWindow, 0)
res2 = Wrap.GetKeyboardLayout(idProcess)
if (res2 <> res) and (res2 = "67699721") then 
 s = Wrap.EscapeCommFunction(hFile, SETRTS)
 s = Wrap.EscapeCommFunction(hFile, CLRDTR)
 ' при надоедливости голоса комментируем его
 Speak.Speak "English."
End if
if (res2 <> res) and (res2 = "68748313") then 
 s = Wrap.EscapeCommFunction(hFile, SETDTR)
 s = Wrap.EscapeCommFunction(hFile, CLRRTS)
 ' при надоедливости голоса комментируем его
 Speak.Speak "Rus."
End if
res = res2
Loop
Wrap.CloseHandle(hFile)