vbs整人代码-输入指定的话不然不关闭
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
循环次数自己设定。
停止的话，关掉任务管理器里那个Wscript.exe进程就可以了。
您可能感兴趣的文章：
vbs整人代码-输入指定的话不然不关闭
vbs恶作剧(整人代码)-感人的文章(我是猪)
访问外部文本文件的vbs方法及例子
vbscript基础教程-什么是vbscript
vbs 音乐播放实现代码总结
vbs整人代码-定时关机
vbs 多线程下载的代码举例
vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等
vbs整人代码-2009QQ整人代码
vbs恶作剧(整人代码)-死循环 讲故事等