Программное переключения KVM (aten 1784a)

[Greenbur]

Доброго времени суток.
У оператора имеется 4 машины выведенные через KVM (aten cs1784a) на монитор. Нужно путем нажатия 1-ой клавиши осуществить переключение между машинами.
Я планировал на 4 программируемые клавиши повесить 4 исполнительных файла, которые заменили бы нажатие {ScrolLock}{ScrolLock}{1или2 или3 или 4}{ENTER}. Но честно сказать мои попытки были тщетны.
Пробовал так:
Код:

numpad9::SendPlay {F1} 
Dim WshShell, WshExec 
Set WshShell = CreateObject("WScript.Shell") 
blnResult = WshShell.AppActivate(WshExec.ProcessID) 
If blnResult Then 
    WshShell.SendKeys "{ScrollLock}{ScrollLock}{ENTER}" 
Else 
    WScript.Echo "Не удалось активировать окно заданного приложения." 
End If 
Set WshExec = Nothing 
Set WshShell = Nothing 
WScript.Quit 0

но квмка игнорит такой способ. Подскажите пожалуйста что и как можно сделать для переключения.

[raxp]

...в смысле игнорит эмуляцию нажатий? Маловероятно. А физически кликать - не игнорит?

[waleri]

Непонятно как WScript.Shell делает емуляцию нажатий...
Лучше смотреть в сторону http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Greenbur]

Сообщение от raxp

...в смысле игнорит эмуляцию нажатий? Маловероятно. А физически кликать - не игнорит?

Игнорит, всмысле срабатывание эмуляции есть и индикация нажатия есть, а квмке это нажатие побоку.

Сообщение от raxp

Непонятно как WScript.Shell делает емуляцию нажатий...
Лучше смотреть в сторону http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Буду пробовать.

[Greenbur]

Вот что получилось:

void SetSCROLLLOCK( BOOL )
keybd_event VK_SCROLL, 0, 0, 0
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0
Application.ProcessMessages
Sleep(300)
keybd_event VK_SCROLL, 0, 0, 0
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0
Application.ProcessMessages
Sleep(300)
keybd_event VK_NUMPAD1, 0, 0, 0
keybd_event VK_NUMPAD1, 0, KEYEVENTF_KEYUP, 0
Application.ProcessMessages
Sleep(300)
keybd_event VK_RETURN, 0, 0, 0
keybd_event VK_RETURN, 0, KEYEVENTF_KEYUP, 0

Только я не знаю как это дело засунуть в исполняемый файл, если просто тхт поменять на vbs, то появляется ошибка строка 1, символ 1 (Несоответствие типов 'SetScrolllock'). Подскажите кто знает.

[raxp]

...может для начала ознакомитесь с синтаксисом VBS, не?

[Greenbur]

Сообщение от raxp

...может для начала ознакомитесь с синтаксисом VBS, не?

Меня направили на сталью я и переделал под себя.
А на vbs:

WShshell.SendKeys "{SCROLLLOCK}"
WScript.Sleep "300"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep "300"
WshShell.SendKeys "{Enter}"

Но это не работает.

[Greenbur]

По моему проблема заключается в том, что как направить данные нажатия на квмку.

[s-andriano]

Насколько я понимаю, нужно, чтобы в КВМ сигнал пришел со стороны клавиатуры.
Если можно заставить чип клавиатуры выдать такой сигнал - все нормально. Если нет - с этой идеей можно распрощаться, т.к. аппаратные проблемы программными средствами не решаются.

[Greenbur]

Сообщение от s-andriano

Насколько я понимаю, нужно, чтобы в КВМ сигнал пришел со стороны клавиатуры.
Если можно заставить чип клавиатуры выдать такой сигнал - все нормально. Если нет - с этой идеей можно распрощаться, т.к. аппаратные проблемы программными средствами не решаются.

Есть предложения как это сделать?
Силы и желание начинают потихоньку угасать, так что еще чуть чуть и я точно забью на эту идею.