如何在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
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/flyingscv/archive/2007/12/29/2002973.aspx
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
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/flyingscv/archive/2007/12/29/2002973.aspx
加支付宝好友偷能量挖...
