Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для icq99999999

Пользователь


Сообщения: 86
Благодарности: 3

Профиль | Отправить PM | Цитировать


наверное так->
PHP код: Выделить весь код

set fs CreateObject("Scripting.FileSystemObject"
Dim MsgStyleTitleResponseMyString

Msg 
"Вы хотите запустить приложение?"
Style vbYesNo vbQuestion vbDefaultButton2 
Title 
"e-Rus.l" 
Response MsgBox(MsgStyleTitle)
If 
Response vbYes Then  
MyString 
"Да"  
Set WshShell CreateObject("WScript.Shell"
WshShell.Run "start.bat"0false
Else  
MyString "Нет"  
End If 

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:46, 24-01-2014 | #2