K4病毒自动免疫

Zamyi · 发表于 2012-9-29 17:02

jxnu 发表于 2012-9-29 13:18
前段时间也中了这个。
想编个宏，清除全盘的这个病毒，当表格打开的时候知道怎么清除，
如果是打开病毒文 ...

一般把宏安全性设为中，是不会的，加上用加载宏检测，一般不会感染。有趣的是，安装本杀毒后，先运行EXCEL（杀毒已监控），再运行病毒文件，日志里只有一个病毒提示，但如果没有打开EXCEL，直接运行病毒文件，日志里却有二个病毒提示，说明杀毒进行了二次。

solonely · 发表于 2012-10-11 17:56

多谢楼主，牛X

lane0551 · 发表于 2012-10-15 15:38

本帖最后由 lane0551 于 2012-10-15 15:40 编辑

文件放到XLSTART里后打开EXCEL，会提示
QQ截图20121015153332.jpg

点击结束后出现

请问该如何解决呢？

我的是win7 home版，office2010

Zamyi · 发表于 2012-10-15 16:05

人要信任VBA对象组件的访问，运行里面的修复注册表试试。

osldj · 发表于 2012-11-1 12:58

看看,我的也中了这个毒

bujinyun2 · 发表于 2012-11-2 09:28

试过了怎么会杀不了

kangatang · 发表于 2012-11-2 16:28

本帖最后由 kangatang 于 2012-11-2 16:29 编辑

不知道楼主有没有这个自动复制到XLSTART文件的procedure

Private Sub installme()
Dim myfile0 As String
Dim MyFile As String
On Error Resume Next
myfile0 = ThisWorkbook.FullName
MyFile = Application.StartupPath & "\Macro 4.0 Defeat.xls"

If ThisWorkbook.Path <> Application.StartupPath Then
   Application.ScreenUpdating = False
   ThisWorkbook.IsAddin = True
   ThisWorkbook.SaveCopyAs MyFile
   ThisWorkbook.IsAddin = False
   Application.ScreenUpdating = True
End If
End Sub

Zamyi · 发表于 2012-11-2 20:34

kangatang 发表于 2012-11-2 16:28
不知道楼主有没有这个自动复制到XLSTART文件的procedure

Private Sub installme()

想创造病毒么？

kangatang · 发表于 2012-11-2 23:47

Zamyi 发表于 2012-11-2 20:34
想创造病毒么？

你那附件不是没主动复制到XLSTART的功能嘛。我给你啊

地铁纠魂 · 发表于 2012-12-23 10:20

不行呀，打开excel就提示运行时错误，1004.。。。请问楼主这个是什么原因呀

		自动登录	找回密码
密码			免费注册

[原创] K4病毒自动免疫