[решено] кнопочное диалоговое окно - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] кнопочное диалоговое окно (http://forum.oszone.net/showthread.php?t=203357)

кнопочное диалоговое окно

Доброго времени суток всем!

помогите решить одну задачку

мне нужно подкорректировать листинг моего скрипта таким образом, чтобы два bat'ника выполнялись не посредствам нажатия кнопок YES NO в msgbox
а выскакивало окно с двумя кнопками (или 2 check-box'a) где на каждую кнопку (на каждый чек-бокс) была назначена функция выполнения определенного bat'ника:

PHP код:


		
			
dim zz

set zz = wscript.createobject("wscript.shell")



iRes = MsgBox("ONE or TWO?", vbYesNo+64, "Select")



If iRes=6 Then



z = zz.run ("cmd.exe /k ONE.bat")



Else



z = zz.run ("cmd.exe /k TWO.bat")



End If

wscript.quit

а если возможно написать тоже самое в батнике - было бы очень замечательно :)

спасибо

caustic, ты про это?

Код:

result = MsgBox ("Сделайте выбор." & Chr(10) & "Нажмите любую кнопку.", vbYesNoCancel, "Запуск 2-х батников")

Select Case result

 Case vbYes 

  WScript.echo "Была нажата кнопка ""Да""" 

 Case vbNo 

  WScript.echo "Была нажата кнопка ""Нет"""

 Case vbCancel 

  WScript.echo "Была нажата кнопка ""Отмена""" 

End Select

или так:

Код:

Set objShell = CreateObject ("WScript.Shell")

intReturn = objShell.Popup("Нажмите кнопку Да или Нет!", 7, "Запуск 2-х батников.", vbYesNo + vbQuestion) 



If (intReturn = vbYes) Then

  Wscript.Echo "Была нажата кнопка ДА." 

End If 

If (intReturn = vbNo) Then 

  Wscript.Echo "Была нажата кнопка НЕТ."

End If 

If (intReturn = -1) Then 

  Wscript.Echo "Время ожидания окончено!" 

End If

не совсем.

я бы хотел знать, какой именно батник будет выполнятся после нажатия на ту или иную кнопку, т.е. кнопки "Да" и "Нет" не несут никакой логической информации. мне нужны кнопки с произвольными названиями.

вот как должно выглядеть диалоговое окно:

Цитата:

Цитата caustic

вот как должно выглядеть диалоговое окно: »

Без привлечения сторонних средств в vbs такого не добьёшься.
Попробуй другие языки, наприме HTA или LangMF. Или погугли, какую-нибудь DLLку для VBS.
Успехов...

тогда ограничемся msgbox. и на этом спасибо :)