杀毒

开发平台：
VBScript

Form1.frm：源码内容
							VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "AUTO清除"
   ClientHeight    =   3090
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   BeginProperty Font 
      Name            =   "楷体_GB2312"
      Size            =   21.75
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form1.frx":0000
   Palette         =   "Form1.frx":213FA
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3135
      Left            =   0
      Picture         =   "Form1.frx":4AF6E
      ScaleHeight     =   3075
      ScaleWidth      =   4635
      TabIndex        =   0
      Top             =   0
      Width           =   4695
      Begin VB.Timer Timer2 
         Interval        =   1000
         Left            =   480
         Top             =   2640
      End
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   0
         Top             =   2640
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H0000C000&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   4320
         TabIndex        =   1
         Top             =   2760
         Width           =   90
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim t As Single
Dim a As Single
Public Sub KillAutoRun()
Dim AvArray(30) As String
Dim Path As String
Dim i As Integer
Dim j As Integer
AvArray(1) = "rose.exe"
AvArray(2) = "sxs.exe"
AvArray(3) = "tfidma.exe"
AvArray(4) = "severe.exe"
AvArray(5) = "oso.exe"
AvArray(6) = "conime.exe"
AvArray(7) = "teuyen.exe"
AvArray(8) = "mpnxyl.exe"
AvArray(9) = "gfosdg.exe"
AvArray(10) = "hnunkl.exe"
AvArray(11) = "SVOHOST.exe"
AvArray(12) = "temp1.exe"
AvArray(13) = "temp2.exe"
AvArray(14) = "memsub.exe"
AvArray(15) = "shelltask.exe"
AvArray(16) = "svchost.exe"
AvArray(17) = "rundll32.exe"
AvArray(18) = "baba.exe"
AvArray(19) = "ndtstat.exe"
AvArray(20) = "msccrt.exe"
AvArray(21) = "wgs3.exe"
AvArray(22) = "wms3.exe"
AvArray(23) = "wsttrs.exe"
AvArray(24) = "mppds.exe"
AvArray(25) = "winform.exe"
AvArray(26) = "mppdys.exe"
AvArray(27) = "htpatch.exe"
AvArray(28) = "cmdbcs.exe"
AvArray(29) = "twunk32.exe"
AvArray(30) = "autorun.inf"
For i = 67 To 90
On Error GoTo Jump:
Dir Chr(i) & ":"
For j = 1 To 30
  Path = Chr(i) & ":" & AvArray(j)
  If Dir(Path) <> "" Then
    Shell "attrib " & Path & " -h -s -r -a"
    Kill Path
  End If
Next
Jump:
Next
End
End Sub
Private Sub Form_Load()
    t = 0
    a = 5
End Sub
Private Sub Picture1_Click()
    Call KillAutoRun
End Sub
Private Sub Timer1_Timer()
    t = t + 1
    If t = 5 Then
       Call KillAutoRun
    End If
End Sub
Private Sub Timer2_Timer()
    a = a - 1
    Label1.Caption = a
End Sub

						