杀毒软件报告问题

我是小白666

如图，本想写出个bat文件到当前目录达到关闭软件然后删除自身的，发现带有 “ del ” 字母的  甚至单单带个“ D ” 字母的 都不行 。编译出来火绒 马上就提示间谍木马  或者后门病毒，精益模块自带的 文件_删除自身 也是 如此， 打算用Bat的 del命令来删除的， 或者有什么好的办法可以提供吗，   需要删除的exe名字是不固定的，不然就直接写个成品bat出去了

Sh1eng

亲测 火绒最新版本 删除自身不触发报毒


补充内容 (2025-7-17 22:20):
我留意到病毒名称为QQPASS*.   如果你的程序有对QQ本身进行XX操作，你需要对成品软件加强壳、混淆代码 也许能解决···

我是小白666

这样子 带有D   的都不行  跟别说del了

青春已不再

在窗口销毁事件里添加以下代码

  

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (写到文件 (取特定目录 (1) ＋ “\1.vbs”, 到字节集 (文本_替换 ( #常量2, , , , “****”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), “####”, 取执行文件名 ()))))
' 执行 (, , , , )
执行 (4, 取特定目录 (1) ＋ “\1.vbs”, , , 1)
' 运行 (取特定目录 (1) ＋ “\1.vbs”, 假, 1)
结束 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (写到文件 (取特定目录 (1) ＋ “\1.vbs”, 到字节集 (文本_替换 (#常量2, , , , “****”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), “####”, 取执行文件名 ()))))<br />     ' 执行 (, , , , )<br />     执行 (4, 取特定目录 (1) ＋ “\1.vbs”, , , 1)<br />     ' 运行 (取特定目录 (1) ＋ “\1.vbs”, 假, 1)<br />     结束 ()<br /> .如果真结束

在文本常量里 添加以下内容

[Visual Basic] 纯文本查看 复制代码

' 静默终止进程、删除文件并自删除的VBScript脚本
Option Explicit

' 主函数
Sub Main()
    Dim filePath, processName, fso, objWMIService, colProcesses, objProcess
    Dim processTerminated, deleteResult, selfDeleteResult
    
    ' 设置要删除的文件路径和进程名
    filePath = "****"  ' 替换为你要删除的文件路径
    processName = "####"          ' 要终止的进程名
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 1. 首先尝试终止进程
    processTerminated = False
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process Where Name = '" & processName & "'")
    
    For Each objProcess in colProcesses
        On Error Resume Next
        objProcess.Terminate(0)  ' 终止进程
        If Err.Number = 0 Then
            processTerminated = True
            ' 等待一小会儿让进程完全退出
            WScript.Sleep 500
        End If
        On Error GoTo 0
    Next
    
    ' 2. 然后删除目标文件
    deleteResult = 0 ' 默认成功
    If fso.FileExists(filePath) Then
        On Error Resume Next
        fso.DeleteFile filePath, True  ' True表示强制删除只读文件
        
        If Err.Number <> 0 Then
            deleteResult = 2  ' 删除失败
        End If
        On Error GoTo 0
    Else
        deleteResult = 1  ' 文件不存在
    End If
    
    ' 3. 最后删除脚本自身
    selfDeleteResult = 0
    Dim scriptPath
    scriptPath = WScript.ScriptFullName
    
    ' 创建临时批处理文件来删除自身
    Dim tempBatFile, batContent
    tempBatFile = fso.GetSpecialFolder(2) & "\delete_self.bat"
    
    batContent = "@echo off" & vbCrLf & _
                 "timeout /t 1 /nobreak >nul" & vbCrLf & _
                 "del " & Chr(34) & scriptPath & Chr(34) & vbCrLf & _
                 "del " & Chr(34) & tempBatFile & Chr(34)
    
    On Error Resume Next
    ' 创建批处理文件
    fso.CreateTextFile(tempBatFile, True).Write batContent
    
    ' 运行批处理文件（隐藏窗口）
    CreateObject("WScript.Shell").Run Chr(34) & tempBatFile & Chr(34) & " /c", 0, False
    
    If Err.Number <> 0 Then
        selfDeleteResult = 4  ' 自删除失败
    End If
    On Error GoTo 0
    
    ' 返回综合结果代码
    ' 0=完全成功, 1=文件不存在, 2=删除失败, 3=进程终止失败, 4=自删除失败
    If Not processTerminated And colProcesses.Count > 0 Then
        WScript.Quit(3)  ' 进程终止失败
    ElseIf deleteResult <> 0 Then
        WScript.Quit(deleteResult)
    ElseIf selfDeleteResult <> 0 Then
        WScript.Quit(4)  ' 自删除失败
    Else
        WScript.Quit(0)  ' 完全成功
    End If
End Sub

' 执行主函数
Main

szwwltl

卸载火绒

忆泪

szwwltl 发表于 2025-7-17 20:15
卸载火绒

标准答案

xiaoyu1986

我是小白666 发表于 2025-7-17 19:03
这样子 带有D   的都不行  跟别说del了

我也用火绒，不存在你说的这个带“D”就报毒的情况啊？

llll12

加入新人

我是小白666

xiaoyu1986 发表于 2025-7-17 20:43
我也用火绒，不存在你说的这个带“D”就报毒的情况啊？

那你用 精益的 程序_删除自身     打开火绒的情况下 编译  会报毒吗

苏轶

你把程序添加进火绒白名单试试