php自动关机代码,HTML_可以定时自动关机的vbs脚本，复制代码 代码如下:Dim mytime,myo - phpStudy...

可以定时自动关机的vbs脚本

复制代码 代码如下:

Dim mytime,myout1,myout2

mytime=null

mytime=InputBox("请输入定时时间(格式20：10：05)"&vblf&"如果想倒计时关机，请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx'可以马上关机"&vblf&"退出点‘取消'","定时关机","1")

Set wshshell=wscript.createobject("wscript.shell")

If IsNumeric(mytime)=False Then

If IsDate(mytime)=True Then

wshshell.run "at "&mytime&" shutdown -s" '定时关机在任务列表中

myout1=MsgBox("定时成功！电脑将在"&mytime&"关机！放弃关机请点‘取消'！",vbokcancel,"定时关机")

If myout1=vbcancel Then

wshshell.run "at /delete /y"

MsgBox "关机已取消！",64,"定时关机"

End If

Else

If mytime="xxx" Then

wshshell.run "shutdown -s -t 0"

End If

MsgBox "输入错误！请重新输入！",64,"定时关机"

End If

Else

If mytime>600 Or mytime<=0 Then

MsgBox "输入错误！倒计时不能多于10小时(600分钟)！",64,"定时关机"

wscript.quit

End If

wshshell.run "shutdown -s -t "&mytime*60

myout2=MsgBox("设置成功！电脑将在"&mytime&"分钟后关机！放弃关机请点‘取消'！",vbokcancel,"定时关机")

If myout2=vbcancel Then

wshshell.run "shutdown -a"

MsgBox "关机已取消！",64,"定时关机"

End If

End If

复制代码 代码如下:

set diaolei=createobject("wscript.shell")

dim shijian,guanji,hua

shijian=time

hua=inputbox("请输入你要用什么单位关机 1 代表分钟 2 代表小时 3 代表天")

if hua=1 then

guanji=inputbox("请输入你要几分钟后关机")

if datediff("m",shijian,time)>=guanji then

diaolei.run "rundll32.exe user.exe,exitwindows"

diaolei.run "shutdown -s -t 0"

elseif hua=2 then

guanji=inputbox("请输入你要几小时后关机")

if datediff("h",shijian,time)>=guanji then

diaolei.run "rundll32.exe user.exe,exitwindows"

diaolei.run "shutdown -s -t 0"

elseif hua=3 then

guanji=inputbox("请输入你要几天后关机")

if datediff("d",shijian,time)>=guanji then

diaolei.run "rundll32.exe user.exe,exitwindows"

diaolei.run "shutdown -s -t 0"

endif相关阅读:

一家之言的经验之谈php＋mysql扎实个人基本功

linux下为php添加curl扩展的方法

开发大型php项目的方法

php简单封装了一些常用JS操作

document.onreadystatechange事件的用法分析

(一)画个瓢

搭建Access为主的Mdb数据库

ASP.NET(VB) 给图片增加水印文字

FreeBSD的基本系统下Shell设置

在64位Linux下编译dtAgeiaPhysX

SQLServer2005数据转换服务常见设计问题

用DOS命令判断磁盘分区是否为NTFS格式

手把手教你：企业服务器SQL Server弱口令测试

MYSQL数据库最大连接数100怎么增大连接数