hta实现的定时关机小程序
2018-10-12 13:59
423 查看
定时关机小程序
界面:
实现代码:
<head>
<title>定时关机小程序</title>
<HTA:APPLICATION
APPLICATIONNAME="HTA Test"
Borde="thin"
BorderStyle="raised"
ICON="C:\WINDOWS\SYSTEM32\control.exe"
SCROLL="no"
SINGLEINSTANCE="yes"
MaximizeButton="no"
MinimizeButton="no"
WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
Sub Window_onLoad
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 240) / 2
intTop = (intVertical - 500) / 2
window.resizeTo 240,500
window.moveTo intLeft, intTop
End Sub
Sub OneSub
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -s -f -t 1800", 0, TRUE)
End Sub
Sub TwoSub
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -s -f -t 2700", 0, TRUE)
End Sub
Sub ThrSub
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -s -f -t 3600", 0, TRUE)
End Sub
Sub OK
If IsNumeric(Text.Value) Then
OverTime = Text.Value * 60
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -s -f -t " & OverTime, 0, TRUE)
Else
MsgBox "请输入一个有效的数字。"
End If
End Sub
Sub ShutDown
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -s -t 0", 0, TRUE)
End Sub
Sub EShutDown
set objectShell=CreateObject("wscript.shell")
iReturn = objectShell.Run("shutdown -a", 0, TRUE)
End Sub
</script>
<body>
<br>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="30 分钟后关闭计算机" name="run_button" onClick="OneSub"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="45 分钟后关闭计算机" name="run_button" onClick="TwoSub"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="60 分钟后关闭计算机" name="run_button" onClick="ThrSub"><p> </div></center>
<br>
自定义时间(分钟):<p>
<input type="text" name="text" id="text" style="height:23px;width:120px;line-height:20px;border:1px solid #aaa;"/>
<input name="Submit" TYPE="Submit" style="width:50px;height:23px;line-height:20px;border:1px solid #aaa;" value="确定" onClick="OK"><p>
<br>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="取消计划中的注销" name="run_button" onClick="EShutDown"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value=" 关闭计算机 " name="run_button" onClick="ShutDown"><p> </div></center>
<br>
<center><div><a href="http://www.enun.net/">http://www.enun.net/</a></div></center>
</body>
打包下载:dsgj_jb51.rar
相关文章推荐
- 定时关机小程序通过BAT脚本实现
- vbs,hta中选择文件夹对话框实现代码
- 用hta与ajax实现的五笔字型编码查询工具
- hta实现的笨狼XSLT练习器
- 用hta+javascript实现替换网站被下木马网页中的iframe
- hta实现的笨狼树状节点查看器
- hta实现涂鸦效果代码
- hta 定时关机重启实现代码
- vbs+hta 实现同时关闭多个系统进程
- HTA+VBS实现的话单核查小工具
- hta实现的定时重启或关闭计算机的小工具
- VBS 调用 HTA 实现进度条加载
- hta实现的二进制文件转换为文本
- 用hta实现的桌面漂浮flash
- hta 实现的五子棋界面
- 用hta实现制作的无殇 - 快书V1.1打包下载了第1/2页
- 自动关机HTA桌面小程序实现源码
- hta实现的涂鸦效果
- vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码