关于vb恶搞程序，恶搞vbs代码这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！

1、on error resume next dim WSHshellA set WSHshellA = wscript.createobject("***.shell") ***.run"cmd.exe /c shutdown -r -t 30 -c""说我爱你，不说我爱你就一分钟关你机，不信，试试···""",0 ,true  dim a do while(a <>"我爱你") a = inputbox ("说我爱你,就不关机，快撒，说""我爱你""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loop msgbox"虽然你爱我。

2、我还是要关你机。

3、因为你太听话啦"     再一个：domsgbox"哈哈，你中毒了，关闭我也没用。

4、"loo。

本文到此分享完毕，希望对大家有所帮助。