VBS Windows. Не знаю как реализовать идею сумашедшего

Здравствуйте. Не знаю как реализовать идею сумашедшего. Есть скрипт написанный на vbs который запускает программу на которой нажимает определённую комбинацию, проблема в том, когда я её завожу в фоновом режиме, программу, комбинация перестаёт работать, то есть, идёт просто запуск программы
WScript.Interactive = False
Dim WshShell, WshExec
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("prog", 0)
WScript.Sleep 1000
blnResult = WshShell.AppActivate(WshExec.ProcessID)
If blnResult Then
WshShell.SendKeys "^s"
WScript.Sleep 1000
WshShell.SendKeys ("text.txt")
WScript.Sleep 1000
WshShell.SendKeys "~"
Else
WScript.Echo "Не удалось активировать окно заданного приложения."
End If
Set WshExec = Nothing
Set WshShell = Nothing
WScript.Quit 0

Чтобы реализовывать идеи сумасшедшего надо быть сумасшедшим.

SendKeys работает только на активном окне иного способа отправить в VBS нет (ну если не пользоваться сторонними ActiveX прибамбасами или программами) + VBS не умеет работать с WINAPI => Вызов SendMessage так-же недоступен.

Добавить комментарий