Серый форум — VBS: Не получается активировать окно внутри запущенной программы

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Mon, 21 Dec 2015 10:38:11 +0000

Пришёл на работу, то же самое, окно не активирует и успешно вставляет в блокнот, если он активен

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (Flasher) — Mon, 21 Dec 2015 09:48:36 +0000

palexa
На основе попробуйте.

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Sun, 20 Dec 2015 20:10:06 +0000

Возможно это правильный вариант, хоть и не идеальный, можно подловить момент, но у меня из 10 раз получилось только 1,
на всякий случай запишу здесь

Dim objShell
set objShell = Wscript.CreateObject("WScript.Shell")
PassWord = "PaSSw0rd1234"

objShell.Run """c:\Progra~1\x2goclient\x2goclient.exe"" --session=internet --no-menu --no-session-edit"""

Do Until Success = True
    Success = objShell.AppActivate(+ "@192.168.100.101:22")
Loop

If Activated = 0 Then
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.AppActivate ("X2Go Client") , true 
    WshShell.Sendkeys PassWord & "{ENTER}"
End If

Wscript.Quit

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Sun, 20 Dec 2015 19:13:01 +0000

Запускаю первый скрипт
start1.vbs

Dim objShell
set objShell = Wscript.CreateObject("WScript.Shell")

objShell.Run """c:\Progra~1\x2goclient\x2goclient.exe"" --session=internet"""
Do Until Success = True
    Success = objShell.AppActivate(+ "@192.168.100.101:22")
Loop

Wscript.Quit

Для чистоты эксперемента открываю блокнот (активное окно)

Запускаю второй скрипт

start2.vbs

PassWord = "PaSSw0rd1234"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ("X2Go Client") , true 

WshShell.Sendkeys PassWord & "{ENTER}"

Wscript.Quit

Скрипт активирует окно X2Go Client и вставляет пароль

Вот только уже голову сломал как объединить эти файлы в один VBS

Точнее если объединить, то всё опять повторяется, вставляет в блокнот

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Sun, 20 Dec 2015 17:44:23 +0000

Не работает на простейшем примере

Set WshShell = CreateObject("WScript.Shell") 
Set WshExec = WshShell.Exec("calc") 

WScript.Sleep 10000 

Res = WshShell.AppActivate(WshExec.ProcessID) 
If Res Then WshShell.SendKeys("2*2=")

Открывается калькулятор
пауза на 10 секунд
Открываю блокнот (он теперь активный)

По идее, после паузы, должен стать активным калькулятор, в который вставляется 2*2=

Но увы, калькулятор не активируется и 2*2= вставляется в блокнот

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Sun, 20 Dec 2015 17:19:20 +0000

Если мышкой активировать главное окно, то активным стаёт дочерное окно

Но не работает скрипт

Re: VBS: Не получается активировать окно внутри запущенной программы

null@example.com (mozers) — Sun, 20 Dec 2015 14:36:52 +0000

2palexa
AppActivate работает только если в качестве параметра задано имя или ProcessId основного окна приложения. Тебе же надо писать в дочернее окно.
Не факт что оно активируется при активации основного окна (но попробовать можно).
Да и функция SendKeys может вместо заданного пароля вставить всякую ерунду, т.к. текст зависит от текущей раскладки клавиатуры.
Я бы посоветовал использовать AutoIt или AutoHotkey - они заточены под такие задачи. Или, самое простое и доступное - замечательную утилитку nircmd.

VBS: Не получается активировать окно внутри запущенной программы

null@example.com (palexa) — Sun, 20 Dec 2015 12:53:02 +0000

Привет!

Надо запустить программу и вставить автоматически пароль, но не получается

Вот код файла vbs

Dim objShell
set objShell = Wscript.CreateObject("WScript.Shell")

'Пароль который надо вставить
PassWord = "PaSSw0rd1234"

'запуск программы с ключом
objShell.Run """c:\Progra~1\x2goclient\x2goclient.exe"" --session=internet"""
'После запуска программы отрывается основное окно программы с заголовком X2Go Client

Do Until Success = True
'После успешного соединения с сервером поверх основного окна отрывается окошко с именем user@192.168.100.101:22
'Надо активировать это окншко, (на случай, если будет поверх открыт блокнот для перехвата пароля) и вставить пароль в нужное окошко
    Success = objShell.AppActivate("user@192.168.100.101:22")
Loop
objShell.Sendkeys PassWord & "{ENTER}"

Wscript.Quit

Окно не активируется, и пароль успешно вставляется в блокнот, который отрыт поверх программы

Скриншот в файле

Может поможете ?