cihsafe.frm

CIH病毒免疫程序 能有效预防CIH类病毒的入侵

VERSION 5.00
Begin VB.Form CIHsafe 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3360
   ClientLeft      =   3480
   ClientTop       =   2535
   ClientWidth     =   4530
   ControlBox      =   0   'False
   FillStyle       =   0  'Solid
   Icon            =   "CIHsafe.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   4530
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   400
      Left            =   120
      Top             =   2520
   End
   Begin VB.Image imgLogo 
      Appearance      =   0  'Flat
      Height          =   2145
      Left            =   360
      Picture         =   "CIHsafe.frx":27A2
      Stretch         =   -1  'True
      Top             =   720
      Width           =   1575
   End
   Begin VB.Label CIHanimation 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFC0&
      BackStyle       =   0  'Transparent
      Caption         =   "版权(C) 1999"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFC0&
      Height          =   180
      Index           =   1
      Left            =   2610
      TabIndex        =   2
      Top             =   2565
      UseMnemonic     =   0   'False
      Width           =   1275
   End
   Begin VB.Label CIHanimation 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H0080FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "编者：徐景周"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FFFF&
      Height          =   210
      Index           =   2
      Left            =   2550
      TabIndex        =   1
      Top             =   3045
      UseMnemonic     =   0   'False
      Width           =   1395
   End
   Begin VB.Label CIHanimation 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFC0FF&
      BackStyle       =   0  'Transparent
      Caption         =   "CIH病毒免疫程序"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0FF&
      Height          =   210
      Index           =   0
      Left            =   2370
      TabIndex        =   0
      Top             =   2085
      UseMnemonic     =   0   'False
      Width           =   1755
   End
   Begin VB.Image Image1 
      Height          =   3480
      Left            =   0
      Picture         =   "CIHsafe.frx":4F44
      Stretch         =   -1  'True
      Top             =   0
      Width           =   4560
   End
End
Attribute VB_Name = "CIHsafe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim number As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
  Dim str As String
  Dim result As String
  
 If App.PrevInstance Then
    
     End
 End If
 
  On Error GoTo a0
  
  Image1.Top = 0
  Image1.Left = 0
  Image1.Width = CIHsafe.Width
  Image1.Height = CIHsafe.Height
  
  number = 0
  Open ".\\change.dat" For Input As #1
  
   str = Input(5, #1)
   result = LCase(Mid(str, 1, 5))
   Close #1
   
   Select Case Day(Date)
    Case 26:
     If result = "false" Then
       Open ".\\change.dat" For Output As #1
       Print #1, "true1"
       Date = Date - 1
     Else
       Open ".\\change.dat" For Output As #1
       Print #1, "false"
       Date = Date + 1
     End If
   Case 25:
     
   Case Else
   
      If result = "true1" Then
        Open ".\\change.dat" For Output As #1
        Print #1, "false"
        Date = Date + 1
      End If
   End Select
   GoTo a1
   
a0:
  MsgBox "change.dat文件不存在或为空文件!", vbExclamation, "错误"

a1:
End Sub

Private Sub Image1_Click()
  Unload Me
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Unload Me
End Sub

Private Sub imgLogo_Click()
   Unload Me
End Sub

Private Sub Timer1_Timer()
        
     CIHanimation(0).Move CIHanimation(0).Left, CIHanimation(0).Top - 60
     CIHanimation(1).Move CIHanimation(1).Left, CIHanimation(1).Top - 60
     CIHanimation(2).Move CIHanimation(2).Left, CIHanimation(2).Top - 60
    
    If (CIHanimation(0).Top <= 60) Then
       CIHanimation(0).Move CIHanimation(0).Left, CIHsafe.Height + 60
    End If
    If (CIHanimation(1).Top <= 60) Then
       CIHanimation(1).Move CIHanimation(1).Left, CIHsafe.Height + 60
    End If
    If (CIHanimation(2).Top <= 60) Then
       CIHanimation(2).Move CIHanimation(2).Left, CIHsafe.Height + 60
    End If
    number = number + 1
    If number = 60 Then
     Unload Me
    End If
          
End Sub

Private Sub Form_Unload(Cancel As Integer)
      
    Close #1
    
End Sub