最新最全-VBS整人小程序大全
100只羊-关机
CPU温度过高-重复
定时关机-22：00
哥哥-关机
我是猪-从前有个庙
一小时关机重启-1
直接关机
重复-无聊
阻止关机
等等，还有很多小程序，都有源代码，自己下载下来慢慢研究吧！
1:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true
dim a
do while(a <> "哥哥")
a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)
msgbox chr(13) + chr(13) + chr(13) + a,5000,"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) + "又没让你叫老公"
msgbox chr(13) + chr(13) + chr(13) + "记住了,死神,是你""哥哥""呀!"
msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?"
msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!"
msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"
msgbox chr(13) + chr(13) + chr(13) + "记住了""死神""?"
msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"
msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"
msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"
msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"
/*************************************************************************************
**************************************************************************************/
2:
do
msgbox "准备安装right table1.0"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup "正在安装，"&vbcrlf;&"请等待，请不要按确认！！"&vbcrlf;&"请不要按确认",5,"安装过程"
WshShell.Popup "安装完成，请按确认启动",,"安装完成"
msgbox "请准备"
x=inputbox ("1启动，0关闭","是否启动？","1")
if x=1 then
z=inputbox ("请输入1或2","请选择功能")
end if
if z=1 then
do until i=10
i=i+1
msgbox "CPU温度过高，系统出现严重误！",16+4096,"系统错误"
wscript.sleep 1000*60 '时间可以自己改
loop
elseif z=2 then
a=InputBox("快说“我是笨蛋”，一个停顿都不能有，不然我就关机！","老公我爱你","我是，笨蛋")
If a="我是笨蛋" Then
Msgbox"这就对了嘛！",0,"我是笨蛋"
msgbox"进入"
msgbox"sorry,your computer is &*(^*&%"
Elseif a="我是，笨蛋" Then
Msgbox"一个停顿也不许有，没看见呀？",16,"我是笨蛋"
Else
Msgbox"还不说？你再不说我就关机了！",16,"我是笨蛋"
End If
end if
if x=0 then
msgbox "真的要退出吗?"
y=inputbox ("返回1，退出0","真的要退出吗?","1")
end if
if y=1 then
msgbox "笨蛋这下后悔也来不及了！"
do while 1
msgbox "现在就永远管不了了！"
loop
elseif y=0 then
msgbox "现在关闭"
exit do
end if
loop
/***********************************************************************************
************************************************************************************/
5
711
13KB
2012-01-04
17
