就这么Easy，定时关机DIY~~

        

             唉，现在大学生啊，要么是把电脑关掉，要么是电脑关掉你的大脑！

呵呵，其实外面的世界很精彩~~可是关掉你的上电脑有那么困难不，其实也不啊~~~~

 

　　　Ｆｉｒｓｔ打开你的ｎｏｔｅｐａｄ，Ctrl+C.Ctrl+V以下内容：

 

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

 

 

 

 　　

 

 

　　　Ｓｅｃｏｎｄｌｙ　另存为ＯＦＦＭｅ.vbs，一切ＯＫ～～以后控制不了自己 就ＯＦＦＭｅ！

效果如图

 

（ＢＯＢＯ是偶的名字兼我埃及的名字 (*^__^*) 嘻嘻……）

 

 

　　　Ｔｈｉｒｄｌｙ　有问题请举手　（娃哈哈～～～）

　Ｔｅｌ　ＱＱ　Ｅｍａｉｌ…………　？（保密）