当前位置:源码库-建站教程-脚本之家-vbs-vbs整人代码:电脑会在你设定的时间内关机(解除不关机的办法)

vbs整人代码:电脑会在你设定的时间内关机(解除不关机的办法)

文章TAG:vbs整人代码 关机
时间:2016-03-07来源:www.aspku.com 作者:脚本之家文章热度:

如果把他发给你的QQ好友,他不懂的话,如果不输我是猪,电脑就会在你设定的时间内关机,我设置的是3分钟,只要输入就解除了,当然如果不输的话也有解除的办法。

代码如下:

 

  1. on error resume next  
  2. dim WSHshellA  
  3. set WSHshellA = wscript.createobject("wscript.shell")  
  4. WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪,不说我是猪就一分钟关机,不信,试下···"" ",0 ,true  
  5. dim a  
  6. do while(a <> "我是猪")  
  7. a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","",8000,7000)  
  8. msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"  
  9. loop  
  10. msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"  
  11. dim WSHshell  
  12. set WSHshell = wscript.createobject("wscript.shell")  
  13. WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
  14. msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖" 

新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设 这个脚本启用cmd 里的关机程序

如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已

经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK

了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

vbs整人代码使用方法:新建txt记事本,然后将vbs整人代码复制到里面,保存为***.vbs格式文件即可。[ 如:显示500个对话框.vbs ]

相关vbs
相关资源下载
热门标签