Flasher
|
Posted: Sun Sep 16, 2012 17:38 Post subject: |
|
|
Ладно, тогда ждать остальных не будем, добавил рекурсию.
Теперь тебе придётся опять параметры править.
LonerD wrote: | Каким образом "рисовать окно с кнопками Пассивная/Активная" и присваивать переменной определённое значение при нажатии на одну или вторую кнопку - пока не знаю. | WSO/HTA.
LonerD wrote: | "Enter Source File or Dir:" & vbNewLine &_
"1 - Source file in Target panel" | Вас-вас? Ихь ферштэе нихьт, ворюбэр гейт ди Рэдэ! Майн Копф эксплодирт!
vbNewLine меняй на L.
Да, и опциональный выбор сам по себе бестолковый. Просто сделай себе вывод в окне, да и всё, а последний параметр убери. Тебе-то зачем плодить то, чем ты не будешь пользоваться?
On Error Resume Next лишнее, и, коли используешь, обнулять нужно обязательно, иначе все ошибки в скрипте будут игнорироваться. И, конечно, лучше не выходить при ошибке ввода, а снова показывать то же окно:
Code: | Do Until Source = 1 Or Source = 2
Source = InputBox("Допустимые значения ввода:" &L&L& "1 (если источник в активной панели)" &L&L&_
"2 (если источник в пассивной панели)", " Присвоение даты и времени выбранным элементам")
If Trim(Source) = "" Then WScript.Quit
Loop |
LonerD wrote: | Кстати, а если без Хэлпера, то можно ведь обойтись и nircmd. Прописать выполнение команды Nircmd sendkeypress tab
перед и после присвоения параметров. | Не понял, как относится эмуляция Tab (которую легко можно сделать штатными средствами) к возможности брать список пассивной панели. Параметры кнопки TC преобразуются ещё до запуска приложения. Так что бесполезно (уже много раз обсуждалось). |
|