定时关机小程序
界面：
代码如下:
<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" value="30 分钟后关闭计算机" name="run_button" onClick="OneSub"><p> </div></center>
<center><div><input type="button" value="45 分钟后关闭计算机" name="run_button" onClick="TwoSub"><p> </div></center>
<center><div><input type="button" value="60 分钟后关闭计算机" name="run_button" onClick="ThrSub"><p> </div></center>
<br>
自定义时间（分钟）：<p>
<input type="text" name="text" id="text"/>
<input name="Submit" TYPE="Submit" value="确定" onClick="OK"><p>
<br>
<center><div><input type="button" value="取消计划中的注销" name="run_button" onClick="EShutDown"><p> </div></center>
<center><div><input type="button" 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>
- 感谢父母的英语作文(带翻译)
- 感谢父母的英语作文5篇
- 关于手机的英语作文高三
- 关于手机的英语作文高中
- 关于手机的英语作文范文5篇
- 高中关于旅游的英语作文范文
- 关于旅游的英语作文高三
- 2020高中学习英语的方法精选
- 高中学习英语的方法指导
- 高中英语语法大全
- 关于高中英语怎么学
- 高中英语怎么学_英语学习方法
- 高中英语语法知识点
- 2020高三英语教学计划范文
- 2020高三英语复习计划汇总
- 老师针对高三英语的复习计划
- 英语高考作文万能套用开头
- 高三英语教学计划范文集锦
- 高三英语教学计划精选
- 高考英语必考语法知识点汇总
- 最新高考英语语法与知识点
- 高考英语必备的知识点大全
- 2020年最新高考英语重点知识点归纳
- 高考英语必背语法填空知识
- 2020年最新高考英语知识点
- disturbance events
- disturbed
- disturbed area
- disturbed habitat
- disturbed person
- disturbed sleep
- disturbed soil
- disturbing
- disturbing aspect
- disturbing element
- 照猫画虎
- 照理
- 照登
- 照直
- 照相
- 照相弹
- 照相机
- 照相枪
- 照相版
- 照相纸
- 浙江万里学院2018年全国硕士研究生招生工作管理规定
- 浙江万里学院2018年全国硕士研究生招生公告
- 山东师范大学2018年全国研究生招生宣传咨询会(济南)
- 中国美术学院2018年攻读硕士研究生招生简章
- 山东理工大学2018年全国硕士研究生招生考试公告
- 浙江财经大学2018年管理类联考MPA考试大纲已发布我居然不知道有这样的变化！
- 浙江财经大学2018年MBA招生第一号通知(网报流程)
- 浙江财经大学2018年MBA第三批提前批面试通知
- 浙江财经大学2018年接收推荐免试硕士研究生章程
- 浙江财经大学2017级研究生报到接站等事宜的通知