hta实现的定时关机小程序

当前位置：首页 > 范文|应用文 > IT技术专栏 > 脚本栏目

hta实现的定时关机小程序

来源：阅读：1073 次日期：2016-06-24 10:14:29

温馨提示：小编为您整理了“hta实现的定时关机小程序”,方便广大网友查阅！

定时关机小程序

界面：

代码如下:

<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>

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

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>

<br>

自定义时间（分钟）：<p>

<br>

<br>

</body>

上一篇：jquery中$.post和$.ajax的用法小结

下一篇：vbs 自动登录论坛的实现代码

手机网站地址：hta实现的定时关机小程序

由于各方面情况的不断调整与变化，提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！