COM加载宏封装自定义函数并全自动安装最简实例

baomaboy

那是个api在顶部声明一下就行了，或者你把它删掉也没影响，那句的作用只是设置窗口的位置。完全可以不用的。
删掉那一句或者补上这一句都可以：

1. Public Declare Sub SetWindowPos Lib "User32 " (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
   

复制代码

[ 本帖最后由 baomaboy 于 2011-5-27 13:45 编辑 ]

120HYH

好资料。谢

fecmen

原帖由 baomaboy 于 2011-5-27 08:08 发表

还需要继续完善，因为用你这个注册下面两个附件都出现了同样的错误，每次都是，如图：
不过这也验证了我的猜测，你这个附件就是用20楼的api注册dll，然后在在看错误来源是后台创建CreateObject("Excel.Applicatio ...

注册出现崩溃？？？请提供出现崩溃的附件。我看看

fecmen

原帖由 baomaboy 于 2011-5-26 22:58 发表


1.其实在哪公布源码无所谓，我不是一直在说吗，要自己想公布时才公布，不想公布时在哪个帖子都不要公布。希望没人在迫你公布了。
2.（其删除加载宏列表中的项目很是完美)倒是这个对我来说已经不用在研究了，对于 ...

楼主的附件真厉害！杀毒软件报毒！！  你说你的程序能删加载宏列表项目还能删文件，你的Install.exe可以将该项功能加上去嘛。

[ 本帖最后由 fecmen 于 2011-5-27 15:29 编辑 ]

baomaboy

dll能、exe当让也能、就连vbs都能，我的install其实已经具备了那个功能了啊，卸载就是那个功能，但是只判断文件名及类名为默认dll时才卸载才删除，我总不能弄个卸载功能把人家电脑上所有加载项都删了啊，那不是找骂吗？dll提供这个功能是为用户有所需要时准备的，比如找不到被强制安装或者知道在哪卸载时，用这个功能可以一次性卸载所有插件。一般情况下你解压出来在扫描就不会报毒了，不会你也用的360吧？
删除dll的exe版：

[ 本帖最后由 baomaboy 于 2011-5-27 15:51 编辑 ]

fecmen

原帖由 baomaboy 于 2011-5-27 15:39 发表
dll能、exe当让也能、就连vbs都能，我的install其实已经具备了那个功能了啊，卸载就是那个功能，但是只判断文件名及类名为默认dll时才卸载才删除，我总不能弄个卸载功能把人家电脑上所有加载项都删了啊，那不是找骂吗 ...

楼主的Install没有删掉加载宏列表中的项目啊。可以不删文件删掉加载宏列表中的项目，加载宏列表框中的“工程试验”不就是卸载后留下的遗留物吗？按说卸载后应该删掉的，目前只能手动单击删除。

fecmen

原帖由 zhj1978 于 2011-5-27 10:49 发表
baomaboy已经在83楼公布VB代码，请fecmen 也公布，遵守承诺

拜托，别老是盯着我啦！你先说服楼主将Install中的代码都公开吧。他里面的含金量较高。

baomaboy

原帖由 fecmen 于 2011-5-27 15:53 发表
楼主的Install没有删掉加载宏列表中的项目啊。可以不删文件删掉加载宏列表中的项目，加载宏列表框中的“工程试验”不就是卸载后留下的遗留物吗？按说卸载后应该删掉的，目前只能手动单击删除。

如果你相信那个附件无毒的话，用那个附件里的功能试试吧，环境不同我也不知道具体原因，只能给你个截图看看。
注意看那个GCSY.DLL文件，可不是我用鼠标拖走的，是凭空消失的，还有加载宏列表的增减清空状态变化。

[ 本帖最后由 baomaboy 于 2011-5-27 16:36 编辑 ]

fecmen

原帖由 baomaboy 于 2011-5-27 16:30 发表

如果你相信那个附件无毒的话，用那个附件里的功能试试吧，环境不同我也不知道具体原因，只能给你个截图看看。
注意看那个GCSY.DLL文件，可不是我用鼠标拖走的，是凭空消失的，还有加载宏列表的增减清空状态变化。

我试用了下，除了系统自带的加载宏项目外的确能够删除加载宏列表框中的项目，只是运行速度很慢，还未运行完，那会功夫我还能打开几个Excel文件，之后打开的Excel文件自动关闭了，这才知道程序是在告诉我“我还没工作完毕呢”，建议在执行效率上改进下，其他很好啦！

baomaboy

效率低主要还是由于使用regsvr32 /u 造成的，你用过这命令，他本身执行完成的话就有半秒的延迟，而我遍历所有的加载项，我试过多次如果/u后立刻kill file经常会出错，所以我在循环里加入了Sleep ，等待每一个regsvr /u 结束，循环中加入Sleep你说效率能高吗？除非找到替换regsvr的方法，这不是正好你提供了api的方法吗，还没测试注册及注销的速度。如果和regsvr的一样那效率还是无法突破。下面附件是仿照你64楼附件做的，注册抛弃了regsvr32，用你提供的api函数，不过添加到加载宏列表还是用的后台创建excle对象的方法，如果也可以用api实现就完美了。