[решено] кнопочное диалоговое окно

[caustic]

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

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

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

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


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

спасибо

[OSArev]

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]

не совсем.

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

вот как должно выглядеть диалоговое окно:
http://i063.radikal.ru/1103/24/92166383b560.gif (http://www.radikal.ru) http://s013.radikal.ru/i324/1103/e8/7eb933e8de9c.gif (http://www.radikal.ru)

[OSArev]

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

[caustic]

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