Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Голосование за лучший ответ
Pentagon
(9605)
10 месяцев назад
А если так?
Dim Message
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s /d p:0:0 /t 60")
Message = MsgBox("Вы хотите закончить свой рабочий день с последующим выключением компьютера?",4+16,"Выключение компьютера")
If strMbox = 6 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s /d p:0:0 /t 60")
else
WSHShell.Run ("shutdown /s")
end if
foxЗнаток (442)
10 месяцев назад
Так просто выключение не отменяется
Pentagon
Мыслитель
(9605)
fox,
Dim Message
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s /d p:0:0 /t 60")
Message = MsgBox("Вы хотите закончить свой рабочий день с последующим выключением компьютера?",4+16,"Выключение компьютера")
If strMbox = 7 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s")
end if
Похожие вопросы
Dim Message
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s /d p:0:0 /t 60")
Message = MsgBox("Вы хотите закончить свой рабочий день с последующим выключением компьютера?",4+16,"Выключение компьютера")
If strMbox = 6 Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run ("shutdown /s /d p:0:0 /t 60")
else
WSHShell.Run ("shutdown /a")
end if
Он запрограммирован на то что при нажатии "ДА" компьютер выключается через минуту, а при нажатии "НЕТ" винда выдает "выключение отменено" но мне нужно наоборот, чтобы он выключался при нажатии "НЕТ", побовал менять код из if и else местами, скрипт перестает работать, как и strmbox менял на 7, что вроде означает нажатие "нет", но скрипт так же не работает, подскажите куда копать, ради минутного троллинга не хочется лопатить VBS