|
Создание программ на языках JavaScript и VBScript. [администратор рассылки: Megaloman (Советник)] Лучшие эксперты в этом разделе
Уважаемые эксперты, кто знает простой способ управления авто-закрытием окон в Консольном режиме VBScript ?
В больших программах очень удобно обозревать ход процесса в большом окне с прокруткой. Но когда мой скрипт авто-перезапускается из графического окна в консоль, то утрачивается возможность видеть сообщения об ошибках, тк в случае ошибки CScript-окно мигом закрывается ("вылет из проги", что это было?).
Я стал делать перезапуск в Cmd-окно, а внутри него запускаю CScript-окно. Код вроде простой:
Set FSO=CreateObject("Scripting.FileSystemObject") 'подключил объект FileSystemObject .
Set oShel=CreateObject("WScript.Shell") : Argums="" 'аргументы скрипта, в данном примере - пустая строка.
if LCase(FSO.GetBaseName(WScript.FullName))="wscript" then 'если режим ещё графический, то перезапускаю
oShel.Run "Cmd /c Title Заголовок окна &CScript /NoLogo MyScript.vbs " & Argums &_
"&Echo Готово! Жми любую клавишу закрыть окно.&Pause>nul &Exit"
WScript.Quit(0) 'Закончил исполнени в графи-окне, скрипт пере-запущен в Консоль-режим.
End if
WScript.Echo "Мы в Консоли. Тут у меня прокручивается много экранов."
MsgBox "Стоп-задержка авто-закрытия окна." & vbLf & "Жми ОК, и управлени возвратится в Cmd",,"Конец скрипта."Всё было хорошо много месяцев. Почти каждый мой скрипт в начале проверяет наличие параметра QuickEdit в реестр-разделе HKCU\Console\%SystemRoot%_system32_cmd.exe и при необходимости окультуривает свойства Cmd-окна, чтоб оно стало почти на весь экран с удобным шрифтом и возможностями копи-вставки. Но в более сложных программах приходится запускать дочерние окна (закачка антивир-баз в локальную папку, Rar-упаковка…). Мне не трудно закрыть родитель-окно вручную, но пользователей моих скриптов раздражает доп-окно или его кнопка в Панели задач. Чтоб программно закрыть родитель-окно я перед [&Echo Готово!…] дописал условный без-паузный выход [&&Exit ] . А сразу после команды вызова дочернего окна добавил команду WScript.Quit(0) . После неё Родитель передаёт пра-родителю Cmd КодВозврата=0 , и Cmd-окно закрывается мигом. Работает т-ко одно дочернее окно. А в случае ошибки CScript возвращает в Cmd КодВозврата<>0, и пользователь видит причину ошибки в НЕ-закрытом окне. Но что-то не доработал Microsoft, некоторые ошибки (деление на 0, чтение несуществующего элемента массива…) закрывают CScript с кодом=0 , от него моё Cmd-окно закрывается мигом, не отобразив причину ошибки. Мне пришлось в случае успеха закрывать CScript НЕ-нулевым уникальным Кодом выхода 555 [командой WScript.Quit(555) ], и заменить "Cmd /c… &&Exit …" на более сложную распознавалку:
"Cmd /v:on /c Title Заголовок окна &CScript /NoLogo MyScript.vbs " & Argums &_
" &Echo Готово! Жми любую клавишу закрыть окно.&if not !errorlevel!==555 Pause>nul &Exit Ошиб-вылеты прекратились, прог-закрытие окна стало управляемо, скрипт работает и радует, но слишком много конструкций. Может, кто подскажет метод по-изящнее?
Состояние: Консультация закрыта
Здравствуйте, Алексеев Владимир!
Восползьуйтесь библиотекой AutoItX3.dll из пакета языка AutoIt.
Возможности библиотеки можно реализовать через VBScript.
Пример запуска приложения и закрытие окна по тексту в заголовке:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.Run "Calc.exe"
oAutoIt.Sleep 5000
oAutoIt.WinKill "Калькулятор", ""
 |
Консультировал: PsySex (Профессионал)
Дата отправки: 25.04.2016, 11:39
5
Большое Спасибо за помощь!
-----
Дата оценки: 25.04.2016, 14:37 |
|
Алексеев Владимир Николаевич
Мастер-Эксперт
ID: 259041
# 1
0
 отменить
редактирование
|
Модераторам: Удалите пожалуйста повтор-строки 01…08 в нижнем тэг-блоке Код.
Я вставлял в этот блок т-ко 2 строки, получившие NN 09 и 10. В моём черновике даже выделение осталось на копируемом фрагменте. Но произошёл глюк, возможность Предпросмотра отсутствует в форме Вопроса, редактировать / удалить вопрос тоже невозможно. |
 Лысков Игорь Витальевич
Старший модератор
ID: 7438
# 2
0
отменить
редактирование
|
Алексеев Владимир Николаевич:  =====
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен |
Алексеев Владимир Николаевич
Мастер-Эксперт
ID: 259041
# 3
0
отменить
редактирование
|
Лысков Игорь Витальевич: Спасибо, Игорь Витальевич, за правку текста моего Вопроса!
Я тут один программирую в 100-километровом окружении, обменяться опытом НЕ с кем. Я подумал, неужели и программисты Microsoft городят в своём прог-продукте такой же огород, чтоб переходить из окна в др консоль-окно со страховкой НЕ-вылета в случае ошибки? Может, я просто чего не знаю? |
 PsySex
Профессионал
ID: 848
# 4
0
отменить
редактирование
|
Алексеев Владимир Николаевич: Чтобы не придумывать костыли, лучше перейдите на более продвинутый скриптовый язык. Например AutoIt, русскоязычный форум, он обладает интуитивно понятным бейсико-подобным синтаксисом. На выходе возможно получать готовые EXE файлы не требующие дополнительные библиотеки. |
Алексеев Владимир Николаевич
Мастер-Эксперт
ID: 259041
# 5
0
отменить
редактирование
|
PsySex: Спасибо Вам за доброе желание помочь.
"На выходе возможно получать готовые EXE файлы" - я год назад окончил курс "Программирование на Lazarus" на www.intuit.ru/studies/courses/13745/1221/info и что-то разочаровался в exe-файлах. Они объёмные и плохо-сжимаемые, требуют компилятора, где-то вне дома подправить свою exe-прогу проблематично. А компактный vbs прост, содержит встроенные легко-читаемые комменты и доступен везде!
На предложенном Вами рус-форуме http://autoit-script.ru/ отображаются какие-то далёкие от моих нужд темы: Автоматизация IE и Web-интерфейса, Поиск цвета пикселя на полупрозрачной картинке, хук сетевых функций в целевом процессе…
Нужной мне темы по работе с файлами и папками я не увидел, в строке поиска я задал "Список файлов". Мне в ответ: "Из-за большой загрузки сервера, функция поиска временно отключена".
Я верю Вам, что AutoIt имеет больше возможностей. Изучать их - потребуется много времени и сил при отсутствии систематизированого учебника (искать нужное по темам). Боюсь, у меня будет "каша в голове", а что я получу?
Чтоб сравить простоту и удобство простейшей файловой операции м-ду языками VBScript и AutoIt я опробовал VBS-код:
f1="C:\Temp\МойФайл.lst" 'проверка существования файла (правее апострофа - коммент).
if FSO.FileExists(f1) then WScript.Echo "Файл",f1,"существует." : Else : WScript.Echo "Файл",f1,"НЕ существует."
Всего 2 строки на VBS. Как это будет на AutoIt ? - придётся объявлять переменные? Создавать exe - НЕ обязательно? Будет ли работать AutoIt-скрипт на чужом компе без установки AutoIt-ПО? Вряд ли? |
|
PsySex
Профессионал
ID: 848
# 6
0
отменить
редактирование
|
Алексеев Владимир Николаевич:Всего 2 строки на VBS. Как это будет на AutoIt ?
If FileExists("C:\windows\notepad.exe") Then
MsgBox(0,"Сообщение","Файл есть")
Else
MsgBox(0,"Сообщение", "Файла нет")
EndIf
Создавать exe - НЕ обязательно? Будет ли работать AutoIt-скрипт на чужом компе без установки AutoIt-ПО? Вряд ли?
Да, здесь возникает основное неудобство. Если AutoIt установлен на машине, то скрипты запускаются без компиляции. Для запуска на чужой машине нужен будет ЕХЕ и тогда скрипт невозможно будет редактировать.
Думаю да, это Вам будет сложнее для изучения, т.к. русскоязычную документацию еще и поискать придется... |
Алексеев Владимир Николаевич
Мастер-Эксперт
ID: 259041
# 7
0
отменить
редактирование
|
PsySex: На www.script-coding.com/AutiItX.html предложен компромиссный вариант использования инструментов AutoIt простым и привычным синтаксом VBScript . Достаточно импортирвть доп-dll в system32\ и зарегистрирвть её , это можно за 1 секунду пуском своего скрипта.
Как Вы думаете, корректно ли этот AutoItX3.dll закрывает окна? |
|
PsySex
Профессионал
ID: 848
# 8
0
отменить
редактирование
|
Алексеев Владимир Николаевич: через AutoItX3.dll доступны не все возможности этого языка.
пример
В архив я положил хелп-файл в котором описаны возможности через AutoItX3.dll.
Батник install установит и зарегестрирует библиотеку AutoItX3.dll в систему, после этого ей можно будет пользоваться через VBScript.
Так же приложил пример, который делает запуск калькулятора и закртие окна окна по заголовку. |
Алексеев Владимир Николаевич
Мастер-Эксперт
ID: 259041
# 9
0
отменить
редактирование
|
PsySex: Большое Спасибо Вам за предоставленные файлы и советы! Хорошо, если Вы оформите Ответ, и тогда читателям рассылки тоже пригодится Ваш метод для закрытия приложений, не предоставляющих программисту закрыв-команд.
Я опробовал Ваш test.vbs с предвари-открытыми 2мя окнами Калькулятора. Вопреки моему предположению test.vbs ч-з 5 секунд работы закрыл не все 3 Calc-окна (как ранее-опробованные мною утилиты), а только то, кот-е он открыл сам. Я закомментировал 2ю строку скрипта, чтоб он не запускал, а только закрывал Calc-окна. И снова он неожиданно закрыл одно окно, последнее из мною-открытых (а не оба и не нуль).
В моей Cscript-ситуации надо закрывать не последнее активное Cmd/Cscript-окно, а первое (Родительское, отработавшее). Поскольку я не знаю логику работы команды oAutoIt.WinKill , то для моего случая лучше всё-таки использовать мой "костыль", в котором Cmd закрывает сам себя по недвусмысленному Коду возврата из дочернего Cscript .
Для этого приходится городить доп-строку-распознавалку
" &Echo Готово! Жми любую клавишу закрыть окно.&if not !errorlevel!==555 Pause>nul &Exit"
Но её можно 1 раз присвоить в переменную qExit и использовать для нескольких перезапусков. А её объём 0,1кБ - в тысячи раз меньше доп-библиотеки AutoItX3.dll в 445кБ.
Меня удивляет политика корпорации Microsoft, кот-я продемонстрировала своё умение и желание создать удобнейший инструм Wscript , кот-й даже если работает "молча" (программист задал долгую обработку *.vbs без вывода на экран), то всё равно в случае ошибки он открывает окно и сообщает, в которой строке/операторе скрипта обнаружена ошибка - что очень радует после работы в cmd-файлах. Но при пере-запуске в консольный Cscript - почему-то происходит обратная ситуация: в сразу-открытом окне всё прекрасно отображается, но как только ошибка - вылет с сокрытием инфо об ошибке.
В литературе и сети предложен способ обработки Исключительных ситуаций (попытка зачитать несуществующий параметр сис-реестра) без вылета. Но там если не вставлять доп-команду анализа if Err.Number<>0 , то Cscript просто не исполняет ошиб-команду, нарушая этим алгоритм программы. Изредка случаются непредусмотренные ошибки, где "соломку не подстелил" (не вставил блок On Error Resume Next…)
Я ещё поискал в интернете в надежде, может кто знает "Недокументированные возможности" запуска Cscript . Но все русские Cscript-программисты либо страдают от ошиб-вылетов, либо перенаправляют вывод в лог, либо запускают Cscript в Cmd-оболочке. | | |
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.
|
Консультация онлайн # 189235
Раздел: • JavaScript / VBScript
цитировать
профиль
пейджер