vbs恶搞代码[通俗易懂]

大家好，又见面了，我是你们的朋友全栈君。

vbs整人代码大全，包括强制自动关机、打开无数计算器、无限循环等vbs整人代码，感兴趣的朋友参考下。
1、输入指定语句

Do
Dim a, b, c, d
a = InputBox("快说“我是猪”", "")
If a = "我是猪" Then
MsgBox "这就对嘛！", 64, ""
MsgBox "再按50下确定吧", 64, ""
For b = 1 To 50
MsgBox "" & b, 64, ""
Next
MsgBox "按完了？", 64, ""
MsgBox "这么快？", 64, ""
MsgBox "我还没玩够我不想走", 64, ""
MsgBox "我就不走你能把我怎么样？", 64, ""
MsgBox "哈哈哈", 64, ""
MsgBox "好好好马上马上", 64, ""
MsgBox "ennnn", 64, ""
MsgBox "要不然再按10下？", 64, ""
For c = 1 To 10
MsgBox "" & c, 64, ""
Next
MsgBox "流氓软件语录：", 64, ""
MsgBox "亲，您真的要我走吗？", 64, ""
MsgBox "您确定吗？", 64, ""
MsgBox "期待下次见面！", 64, ""
MsgBox "当然，我不是流氓软件。", 64, ""
MsgBox "所以我是不可能走的！", 64, ""
MsgBox "哈哈哈哈", 64, ""
MsgBox "等一下", 64, ""
MsgBox "我给你讲个故事吧（不停也得听）", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "讲的是什么呢？", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "讲的是什么呢？", 64, ""
MsgBox "从前有座山", 64, ""
MsgBox "上山有座庙", 64, ""
MsgBox "庙里有个和尚在讲故事", 64, ""
MsgBox "再按50下确定吧", 64, ""
For d = 1 To 50
MsgBox "" & d, 64, ""
Next
MsgBox "50下怎么快？", 64, ""
MsgBox "要不然再按1000下？", 64, ""
MsgBox "哈哈哈哈", 64, ""
MsgBox "开玩笑的", 64, ""
MsgBox "哈哈哈哈哈", 64, ""
MsgBox "怎么了，不耐烦了？", 64, ""
MsgBox "好好好我马上就走", 64, ""
MsgBox "等一下", 64, ""
MsgBox "再等一下", 64, ""
MsgBox "拜拜~要记住你是谁欧！哈哈哈~", 64, ""
Exit Do
Else
MsgBox "别想关掉啦，快承认吧！", 16, ""
End If
Loop

2、不断弹出窗口

while(1)
msgbox "哈哈 你被耍了！"
loop

3、如果不输我是猪 电脑就会在设定的时间内关机 我设置的是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) + "哈哈哈哈，好乖"