如何在Internet上发布Activex控件(VB)

在Internet上发布Activex控件大概有两种方式

1. internet自动安装包
可以使用vb自带的工具打包、展开向导（Package & Deployment）制作安装包
并在向导的脚本安全性、初始化安全性选项页面选择“是”

缺点是我们的Activex控件如果没有经过授权，客户的ie会拦截而不进行自动安装
这样就需要客户调整IE的安全设置或者将服务器设为安全站点后才能进行安装

有些用户属于操作盲，这个操作对他们来说还是挺麻烦的！

2. 手动安装
通过流行的打包工具，制作手动安装包。
在检测到客户没有安装控件时提示其下载安装包，下载后进行手动安装
(这步一般也是必须，不然客户也会麻烦你)

需要注意的是手动安装包必须在用户的注册表加入以下两个键值：
[HKEY_CLASSES_ROOT/CLSID/<CLSID>/Implemented Categories/{7DD95801-9882-11CF-9FA9-00AA006C42C4}]
[HKEY_CLASSES_ROOT/CLSID/<CLSID>/Implemented Categories/{7DD95802-9882-11CF-9FA9-00AA006C42C4}]
设置控件的脚本安全和初始化安全，以免ie每次都提示
注意：上文中<CLSID>需要替换为需要发布的控件的CLSID

3. 获取控件的CLSID  
获取CLSID有很多种，这里仅介绍最“简单”的一种，这种方法好处是不需要预先注册控件。
而且代码也简单，一旦DIY出我们的自己的查看器之后，就只剩下傻瓜操作了
新建工程：
引用TypeLib Information
添加部件Microsoft CommonDialog
代码：
    Dim t As TLI.TypeLibInfo
    CommonDialog1.ShowOpen
    Set t = TLI.TypeLibInfoFromFile(CommonDialog1.FileName)
    Debug.Print t.CoClasses.Item(1).Guid

TLI还可以获得很多信息
一般来说我们只要使用t.CoClasses.Item(1).Guid就可以获得需要的CLSID