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

baomaboy

VBS源码已经公布了，你自己不会转VB吗？

1. 
   
2. Const Vs As String = "版本信息: V2.20 - 2011.05.25" & vbCr & vbCr & "版权所有: 2010-2011 玲珑科技"
   
3. Const BT As String = "通用扩展EXCEL工具集"
   
4. Const FileName As String = "EXKZ.DLL"
   
5. Public FilePath
   
6. 
   
7. Private Sub Command1_Click() '安装按钮
   
8.     On Error Resume Next
   
9.     For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='excel.exe'")
   
10.         Process.Terminate (0)
    
11.     Next
    
12.     Shell "regsvr32 /s " & FilePath & "" & FileName
    
13.     Set oXL = CreateObject("Excel.Application")
    
14.     oXL.Workbooks.Add
    
15.     Set oAddin = oXL.AddIns.Add("EXKZ.ButtonEvent", True)
    
16.     oAddin.Installed = True
    
17.     oXL.Quit
    
18.     Set oXL = Nothing
    
19.     Unload Me
    
20. End Sub
    
21. Private Sub Command2_Click() '卸载按钮
    
22.     On Error Resume Next
    
23.     For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='excel.exe'")
    
24.         Process.Terminate (0)
    
25.     Next
    
26.     Shell "regsvr32 /s /u " & FilePath & "" & FileName
    
27.     Kill FilePath & "" & FileName
    
28.     Unload Me
    
29. End Sub
    
30. 
    
31. Private Sub Command3_Click() '退出按钮
    
32.     Unload Me
    
33. End Sub
    
34. 
    
35. Private Sub Form_Load() '窗体载入
    
36.     On Error Resume Next
    
37.     Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
    
38.     Me.Top = (Screen.Height - Me.Height) / 2
    
39.     Me.Left = (Screen.Width - Me.Width) / 2
    
40.     '------------------初始化安装窗口信息
    
41.     Me.Caption = "安装 " & BT
    
42.     lblTitle.Caption = vbCr & BT
    
43.     lblDescription.Caption = Vs
    
44.     FilePath = Split(Environ("Path"), ";")(0)
    
45. End Sub
    

复制代码

就一个窗体配3个按钮，我自己的安装程序都是这个样子，如：
http://club.excelhome.net/redire ... 1468&ptid=28166

120HYH

好资料啊。谢谢。

zhj1978

非常感谢 baomaboy，还有另外一个楼主没有公布代码

baomaboy

原帖由 fecmen 于 2011-5-26 15:48 发表

没有源码可以初步弄到结构啊，声明时就能看到类名和属性啊。

奥 原来如此啊 理解为什么你开始没看到test了。

zhj1978

baomaboy已经公布VB代码，请fecmen 也公布，遵守承诺

baomaboy

公布与否是自愿的事，没人有义务非公布给你。

zhj1978

baomaboy已经公布VB代码，请fecmen 也公布，遵守承诺

tanhong

真是不错的帖子！
只是现在大多在用Win7 了，Win7系统无法通过的RegSvr32实现对DLL的正常注册，必须手动以管理员身份运行才行。

[ 本帖最后由 tanhong 于 2011-5-26 18:16 编辑 ]

baomaboy

江羽 很少上来啊？
嘿嘿win7的装机量不知道，只是我单位的办公电脑都是xp+2003，个人的本本除了一个同事的是win7外其他的也都是xp

据说也准备换xp说这找不到菜单在哪，win7是买机时默认安装的。

不过更新换代是大势所趋、xp总是会过去的.....

tanhong

原帖由 baomaboy 于 2011-5-26 18:23 发表
江羽 很少上来啊？
嘿嘿win7的装机量不知道，只是我单位的办公电脑都是xp+2003，个人的本本除了一个同事的是win7外其他的也都是xp

据说也准备换xp说这找不到菜单在哪，win7是买机时默认安装的。

不过更新换代 ...

哈哈！我多在ACCESS软件网，E这块现在研究的少了，所以上来也少些了。

baomaboy兄说的是，系统更新在所难免，我们也得与时俱进……