Автоматическое закрывание запросов при поиске в конфигуратореПоиск по папке с внешними отчетами и обработками иногда натыкается на ошибки и запароленные файлы, и тогда возникает окно с ошибкой или запросом пароля. Если поиск длительный, то бывает утомительно ждать появления этих окон - поэтому я решил автоматизировать этот процесс. | | Автор статьи: romix | Редакторы: Последняя редакция №3 от 12.12.07 | История URL: http://kb.mista.ru/article.php?id=616 | |
Этот текст надо поместить в файл с расширением .vbs, и запустить его на выполнение. Прекратить его работу можно из диспетчера задач.
Set WshShell = CreateObject("WScript.Shell")
While 1=1 'бесконечный цикл
WScript.Sleep 1000' пауза в миллисекундах
Res = WshShell.AppActivate("Доступ ограничен") 'Для окошек с паролем
If Res Then WshShell.SendKeys "{ENTER}" 'Здесь надо указать пароль перед словом {ENTER}
Res = WshShell.AppActivate("Конфигуратор") 'Для окошек типа общая файловая ошибка
If Res Then WshShell.SendKeys "{ENTER}"
Wend
Пример полезного применения AppActivate и SendKeys. |