Здравствуйте.
Помогите разобраться
Нужно,чтобы каждый четверг компьютер не выключался (но в то же время оставалась возможность его выключить).
Для Windows XP есть код
Для Windows 7 нужно как-то определить, что курсор мыши навели на кнопку Завершение работы и не дать ее нажать, а вывести сообщение:
-Вы точно хотите завершить работу компьютера?
и три варианта ответа: Выключить, Перезагрузить, Отмена
И совсем будет идеально совместить код для Win XP и Win7, чтобы и там и там работало
В поиске на форуме нашел только действия после нажатия на кнопку Завершение работы
Помогите разобраться
Нужно,чтобы каждый четверг компьютер не выключался (но в то же время оставалась возможность его выключить).
Для Windows XP есть код
Код:
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
opt("TrayIconHide", 1)
$distr = @ScriptDir & "\" & @ScriptName
$title = "Завершение работы Windows"
$hGUI = GUICreate(" ***Сообщение*** ", 460,100)
$button_1 = GUICtrlCreateButton ("Выключить", 30, 35, 120, 40)
$button_2 = GUICtrlCreateButton ("Перезагрузить", 170, 35, 120, 40)
$button_3 = GUICtrlCreateButton ("Отмена", 310, 35, 120, 40)
$gruppa_1 = GUICtrlCreateGroup ("Сообщение!!! Вы точно хотите выключить ПК? Выберите действие.", 10, 10, 440, 80)
Do
WinWait ($title, "Выберите")
If @WDAY = 5 Then
While 1
GUISetState ()
$msg = GUIGetMsg()
Select
Case $msg = $button_1
Shutdown (1)
Exit
Case $msg = $button_2
Shutdown (2)
Exit
Case $msg = $button_3
Run ($distr)
Exit
EndSelect
WEnd
EndIf
Until @HOUR=20
Для Windows 7 нужно как-то определить, что курсор мыши навели на кнопку Завершение работы и не дать ее нажать, а вывести сообщение:
-Вы точно хотите завершить работу компьютера?
и три варианта ответа: Выключить, Перезагрузить, Отмена
И совсем будет идеально совместить код для Win XP и Win7, чтобы и там и там работало
В поиске на форуме нашел только действия после нажатия на кнопку Завершение работы