OMacro/Downloader.dk 误报

M_g

之前好好的，今天发现我常用的几个 xlsm文件都报这个。
及时我新建一个文件敲入以下代码也报毒。


Sub 更新 (strProjectName As String, strCompany As String, strVer As String)

Set conn = CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= base.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1"
conn.ConnectionTimeout = 3000
conn.Open strConn

Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT top 1  id,info1,info2,info3,info4  FROM infotable"
rs.Open strSQL, conn, 2, 2
rs("info1") = strProjectName
rs("info2") = strCompany
rs("info3") = "ed"
rs("info4") = Left(strVer & vbCrLf & rs("info4"), 50)

rs.Update  
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

火绒运营专员

已收到问题反馈，转交工程师分析，感谢您的反馈。

火绒运营专员

您好，您可以上传一下隔离区样本，协助您分析处理~

火绒运营专员

您好，您方便上传一下隔离区样本，我们收到后分析确定下~

火绒运营专员

您方便上传一下隔离区样本吗？我们收到后分析确定下~

火绒运营专员

您好，由于长时间未获得您对此问题的相关反馈，将不再继续跟进此问题，如果在后续使用火绒过程中遇到问题可随时联系我们为您解决，感谢您的反馈。