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

最新推荐文章于 2025-04-23 11:25:59 发布

happybasic

最新推荐文章于 2025-04-23 11:25:59 发布

阅读量1.6k

点赞数

分类专栏：经验分享文章标签：杀毒软件测试 kill timer string

本文链接：https://blog.youkuaiyun.com/happybasic/article/details/6401669

版权

经验分享专栏收录该内容

44 篇文章

订阅专栏

本文分享了一段用于测试杀毒软件的简单代码，通过创建一个定时器和字符串操作，模拟病毒行为，验证杀毒软件的查杀效果。这段代码对于理解和测试杀毒软件的性能具有参考价值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  '延时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
  
  '检查病毒样本是否已被查杀
  If Dir$(VirSample) = "" Then
kill:
    MsgBox "您的杀毒软件已经成功清除病毒样本！", vbOKOnly
  Else
    kill VirSample
    MsgBox "警告：您的杀毒软件未能正确检测并查杀到病毒样本，建议立即更换或升级您的杀毒软件！", vbOKOnly
  End If