利用Excel插件做宏病毒监控V2.93(For_2003~2010)

高绪山 · 发表于 2012-9-28 10:07

baomaboy 发表于 2012-9-27 15:57
你改变了加载宏的path为本机路径之后加载宏还是网络的说明你根本没改变路径，只是你以为改变了。
你到注 ...

闫总，我想通过以下程序先删除注册表：

Sub AddInsDelete(ByVal AddInsFullName As String)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Add-in Manager\" & & AddInsFullName
End Sub

因为AddInsFullName="D:\程序\新材料核算程序\核算程序1.xla" ,与注册表中的一致。但是出现
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Add-in Manager\D:\程序\新材料核算程序\核算程序1.xla，路径无效。
我想肯定是将“\D:\程序\新材料核算程序\”作为路径了，加单引号也不行，不知应该如何写？谢谢！

fgjg1105 · 发表于 2012-9-30 15:07

优秀作品，工具集可以查杀K4病毒，真不错！

fgjg1105 · 发表于 2012-9-30 15:11

baomaboy 发表于 2011-8-14 21:20
'-------------201108042120
上传一个病毒特征码更新文件，用记事本按说明编辑(例如添加XL4Poppy/Results/ ...

原来K4只是隐藏了第一个工作表？感谢工具集能查杀。
(K4会将中毒的薄转为加载宏而隐藏所用工作表，杀毒完毕可以使用“显示所有工作簿”来显示)

fgjg1105 · 发表于 2012-9-30 15:23

baomaboy 发表于 2011-12-13 00:13
1.关于V2.59不能自动安装，不好意思是压缩时没写入自动安装信息，已经修改并重新上传了。
2.注册以后变 ...

LZ给个注册码，这个是家里的。
57494868485648515050

要是只能注册一个，等我到了公司再发码给你。多谢了。工具真心不错，比什么宏专杀好多了。要向您多多学习啊。

baomaboy · 发表于 2012-9-30 19:06

fgjg1105 发表于 2012-9-30 15:23
LZ给个注册码，这个是家里的。
57494868485648515050

EXKZ57494868485648515050.rar

fgjg1105 · 发表于 2012-10-1 16:21

baomaboy 发表于 2012-9-30 19:06
EXKZ57494868485648515050.rar

真心感谢，无私的向你学习啊。

budinlong · 发表于 2012-10-3 03:11

精华帖，收藏先，谢谢楼主。

fgjg1105 · 发表于 2012-10-5 09:29

LZ碰到问题了，可以以前装过office专杀，现在装不上了。
工具集-无法加载.png

fgjg1105 · 发表于 2012-10-5 10:34

不知道是不是用了这个K4专杀工具里面的“禁用事件”有关系？

k4.xls 病毒清除程序.rar (46.22 KB, 下载次数: 9)

fgjg1105 · 发表于 2012-10-5 10:36

不知道是不是用了这个K4专杀工具里面的“禁用事件”有关系？
k4.xls 病毒清除程序.rar (46.22 KB, 下载次数: 0)

这个工程密码123

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