VBS и RAdmin :: Прикладное программирование :: Компьютерный форум Ru.Board

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VBS и RAdmin

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки

Numufar Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подробнее...
	Всего записей: 4 \| Зарегистр. 01-06-2016 \| Отправлено: 12:21 01-06-2016

NeoAnomaly Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Numufar, а если проверять результат функции AppActivate? Тогда организовав цикл можно дожидаться нужного окна. Добавлено: еуые
	Всего записей: 418 \| Зарегистр. 23-03-2010 \| Отправлено: 13:00 01-06-2016 \| Исправлено: NeoAnomaly, 13:25 01-06-2016

Numufar

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

NeoAnomaly а можно поподробнее, как это организовать?

Что-то вроде такого?

Код:

Do While False
WshShell.AppActivate(WshExec.ProcessID)
WScript.Sleep 1000
Loop

И ещё, что в скрипте не так? Почему запускается проводник, и почти всегда радмин запускается дважды?

Всего записей: 4 | Зарегистр. 01-06-2016 | Отправлено: 10:27 02-06-2016 | Исправлено: Numufar, 11:52 02-06-2016

NeoAnomaly

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Примерно так:

Код:

...

Dim timeout
timeout = 10

Do
If WshShell.AppActivate("Заголовок окна Radmin, которое ожидаем") Then

WshShell.SendKeys "admin"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "admin"
WshShell.SendKeys "{ENTER}"

Exit Do
End If

If timeout = 0 Then
WScript.Echo "Waiting for Radmin failed"
Exit Do
End If

WScript.Sleep 1000
timeout = timeout - 1
Loop

Всего записей: 418 | Зарегистр. 23-03-2010 | Отправлено: 13:02 02-06-2016

Numufar Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подробнее...
	Всего записей: 4 \| Зарегистр. 01-06-2016 \| Отправлено: 15:23 02-06-2016

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VBS и RAdmin

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC