lox-ness
17-07-2019, 10:52
Добрый День!
Цель - обязать пользователя сделать выбор на перезагрузку ПК и не дать ему возможности отказаться (любым способом)в данном исполнении у пользователя есть возможность закрыть окно из панели задач
Можно как-то запретить закрывать окно из Панели задач или может будут другие предложения. Спасибо за ранее
<html id="appHTML">
<head>
<meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>Выбор времени ожидания</title>
<hta:Application
Icon = "MyIco.ico"
Id="oHTA"
ApplicationName="Выбор времени перезагрузки"
Border="normal"
BorderStyle="normal"
Caption="yes"
ContextMenu="no"
InnerBorder="yes"
MaximizeButton="no"
MinimizeButton="no"
Navigable="no"
Scroll="auto"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="yes"
SingleInstance="yes"
SysMenu="no"
Version="0.2"
WindowState="normal"
/>
<style>
body {background: #DDD;}
select{width:100px;}
.setbutton {margin-top: 2px;width:3px;}
.edit {border:1px solid #9E9E9E;}
.disabled{border:1px solid #9E9E9E;background: #EEE;}
</style>
<script language="VBScript">
Option Explicit
Sub SetOk_click()
Dim VMBuildStep
VMBuildStep = document.getElementById("Wait").value
Select Case VMBuildStep
Case "30"
createobject("WScript.Shell").run "shutdown.exe /r /t 1800 /f"
Case "60"
createobject("WScript.Shell").run "shutdown.exe /r /t 3600 /f"
Case "120"
createobject("WScript.Shell").run "shutdown.exe /r /t 7200 /f"
End Select
Window.Close()
End Sub
Function Document_onKeyDown() ' Запретить нажимать Alt+F4
Dim alt
alt = window.event.altKey
Select Case window.event.keyCode
Case 27,116
window.event.keyCode = 0
window.event.cancelBubble = true
Document_onKeyDown = False
Case 115
If alt Then
window.event.keyCode = 0
window.event.cancelBubble = true
Document_onKeyDown = False
End If
Case Else
Document_onKeyDown = True
End Select
End Function
Sub Window_Onload ()
Dim idTimer
idTimer = window.setTimeout("reset", 10000, "VBScript")
End Sub
Sub reset ()
createobject("WScript.Shell").run "shutdown.exe /r /t 3600 /f"
Window.Close()
End Sub
</script>
</head>
<body>
<span id="lblChoice">Необходимо выбрать время перезагрузки:
<select name="Wait" id="Wait" size="1">
<option value="30" selected>30 минут
<option value="60">1 часа
<option value="120">2 часа
</select> </span>
<input type="Button" name="OK" value="OK" onclick="SetOk_click">
</ span>
</body>
<SCRIPT type="text/vbscript" language="vbscript">
' Do the window sizing early so user doens't see the window move and resize
Window.resizeTo 500, 200
</SCRIPT>
</html>
Цель - обязать пользователя сделать выбор на перезагрузку ПК и не дать ему возможности отказаться (любым способом)в данном исполнении у пользователя есть возможность закрыть окно из панели задач
Можно как-то запретить закрывать окно из Панели задач или может будут другие предложения. Спасибо за ранее
<html id="appHTML">
<head>
<meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>Выбор времени ожидания</title>
<hta:Application
Icon = "MyIco.ico"
Id="oHTA"
ApplicationName="Выбор времени перезагрузки"
Border="normal"
BorderStyle="normal"
Caption="yes"
ContextMenu="no"
InnerBorder="yes"
MaximizeButton="no"
MinimizeButton="no"
Navigable="no"
Scroll="auto"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="yes"
SingleInstance="yes"
SysMenu="no"
Version="0.2"
WindowState="normal"
/>
<style>
body {background: #DDD;}
select{width:100px;}
.setbutton {margin-top: 2px;width:3px;}
.edit {border:1px solid #9E9E9E;}
.disabled{border:1px solid #9E9E9E;background: #EEE;}
</style>
<script language="VBScript">
Option Explicit
Sub SetOk_click()
Dim VMBuildStep
VMBuildStep = document.getElementById("Wait").value
Select Case VMBuildStep
Case "30"
createobject("WScript.Shell").run "shutdown.exe /r /t 1800 /f"
Case "60"
createobject("WScript.Shell").run "shutdown.exe /r /t 3600 /f"
Case "120"
createobject("WScript.Shell").run "shutdown.exe /r /t 7200 /f"
End Select
Window.Close()
End Sub
Function Document_onKeyDown() ' Запретить нажимать Alt+F4
Dim alt
alt = window.event.altKey
Select Case window.event.keyCode
Case 27,116
window.event.keyCode = 0
window.event.cancelBubble = true
Document_onKeyDown = False
Case 115
If alt Then
window.event.keyCode = 0
window.event.cancelBubble = true
Document_onKeyDown = False
End If
Case Else
Document_onKeyDown = True
End Select
End Function
Sub Window_Onload ()
Dim idTimer
idTimer = window.setTimeout("reset", 10000, "VBScript")
End Sub
Sub reset ()
createobject("WScript.Shell").run "shutdown.exe /r /t 3600 /f"
Window.Close()
End Sub
</script>
</head>
<body>
<span id="lblChoice">Необходимо выбрать время перезагрузки:
<select name="Wait" id="Wait" size="1">
<option value="30" selected>30 минут
<option value="60">1 часа
<option value="120">2 часа
</select> </span>
<input type="Button" name="OK" value="OK" onclick="SetOk_click">
</ span>
</body>
<SCRIPT type="text/vbscript" language="vbscript">
' Do the window sizing early so user doens't see the window move and resize
Window.resizeTo 500, 200
</SCRIPT>
</html>