告诉你们一个整蛊代码！
1、我是猪
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
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)
do while(a <> "我是猪")

msgbox "快点说！马上就要关机了啊，你看着办吧！"
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)
loop

msgbox "早说就行了嘛，真是的！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "哈哈哈哈，你很乖噢，我就喜欢你这样！"
赶紧去找你的好朋友，偷偷拿你的电脑输入串代码吧！


温馨提示：你朋友电脑可能会卡死！或者说你将失去一个好朋友！

一个不够，再来一个！
2、爱情测试
const yourname = "张三"
const title = "爱情测试"
const question = "你最喜欢的人是谁？请在下面的方框中输入他的名字"
const info = "你在说谎！不要逃避嘛，实话实说，快点说啦！"
const scend = "你终于说出你的心扉了，赶紧向他表白吧，赶紧啰！哈哈！"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation + vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation + vbokonly, title
只是整蛊，千万不要真的黑进他的电脑！