最简单的杀毒软件测试代码~

  '延时n毫秒的函数
  Private Declare Sub mSecSleep Lib "kernel32" Alias "Sleep" (ByVal lngmSec As Long)

  Dim VirStr As String
  Dim VirSample As String
  
  CmdVirusTest.Enabled = False
  
  '采用两个字符串连接，以保证生成病毒样本前不会被查杀！
  VirStr = "X5O!P%@AP[4/PZX54(P^)7CC)7}"
  VirStr = VirStr + "$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"
  
  '用Date & Timer作为病毒样本的名字，保证每次的文件名都不同，使用杀毒软件无法屏蔽
  VirSample = "c:/testvir" & Right$(Year(Now), 2) & Month(Now) & Day(Now) & Int(Timer) & ".exe"

On Error GoTo kill
  '生成病毒样本
  Open VirSample For Output As #1
    Print #1, VirStr
  Close #1
  
  DoEvents
  
  '延迟2.5s 保证写入文件完成
  mSecSleep 2500
  DoEvents
  
  '访问文件，以备杀毒软件侦测
On Error GoTo kill

  Open VirSample For Input As #1
    Input #1, VirStr
  Close #1
  
  '延迟5.0 s 保证杀毒软件查询病毒库完成
  mSecSleep 5000
  DoEvents
  
  '