利用VC6.0的向导创建一个ocx控件的示例

转自：http://flashaway.blog.163.com/blog/static/95624576200942211853685/

vc开发ActiveX可选两种框架，一种是ATL COM结构，还有一种是MFC结构。

一．打开vc6.0,新建一个MFC ActiveXControlWizard项目:

工程名称随便起，比如我的叫MyActiveX。点击确定，一路默认下一步，完成后生成的文件目录如下：

生成的文件包括源文件夹，头文件夹和资源文件夹。还是那句话，想知道这些文件具体都是做什么的，去问下百度，我这里只讲步骤。

二．其实这个工程本身生成的就是一个ActiveX控件，它的功能是在页面上画个圆。那我们现在先查看下效果。直接点击F7，控制台显示编译成功，并生成MyActiveX.ocx文件。

我的这个工程目录是在E:/MyPro下，那生成的MyActiveX.ocx就在E:/MyPro/MyActiveX/Debug下：

恩，就是那个万花丛中一行红的那个。

那我们看看运行效果。

点开vc的工具->ActiveX Control Test Container菜单，如果你的VC看不到这个选项，那你可能是安装了精简版：

弹出下面这个对话框：

然后选择edit->Insert New Control选项弹出下面这个窗口：

然后选择edit->Insert New Control选项弹出下面这个窗口：

在列表中我们可以看到MyActiveX这个我们刚刚生成的控件。选择OK,看看效果，一个圆：

这个工具很好用，我们在activeX中的自定义方法在这个测试容器里测试：

选择Control->InvokeMethods选项：

弹出下面的对话框：

选择方法名，通过parmeter列表还可以设置方法的参数，设置好以后，点击Invoke就可以看到我们自定义方法的效果。如果只返回参数，那返回的结果就显示在Return文本框里。如果是弹出对话框，那将弹出你设计的对话框。现在方法中只有一个系统默认的弹出软件相关的一个对话框。看看：

三．下面我们就在activex中添加自定义方法。

这个自定义方法很简单，就是增加一个test(short a,short b)方法，返回a+b的值。也许某些高手看到这里会笑，这么简单的方法还好意思写啊。呵呵。没关系，毕竟这篇文章只是菜鸟之作，给入门者看的。

选择左边工程目录的ClassView选择项（下图中红色方框里的），也就是显示类图：．下面我们就在activex中添加自定义方法。

这个自定义方法很简单，就是增加一个test(short a,short b)方法，返回a+b的值。也许某些高手看到这里会笑，这么简单的方法还好意思写啊。呵呵。没关系，毕竟这篇文章只是菜鸟之作，给入门者看的。

选择左边工程目录的ClassView选择项（下图中红色方框里的），也就是显示类图：

然后选择菜单查看->建立类向导，弹出对话框:

选择上图中automation（自定义）标签页，ClassName选择CMyActivexCtr类,因为我们自定义的方法一般都是在Ctrl这个类文件中实现的。选择Add Method按钮,弹出对话框:

在External name填入我们的方法名。比如我的这个方法叫做test,有两个参数a和b，如下图：

点击确定:

继续确定，看看工程类列表有什么变化：

恩，多了两项：一个test的接口和一个test的实现类。

双击test实现类，也就是上面图中的第二个红框类，找到

short CMyActiveXCtrl::test(short a, short b)

{

// TODO: Add your dispatch handler code here

return 0;

}

方法，将它改为

short CMyActiveXCtrl::test(short a, short b)

{

// TODO: Add your dispatch handler code here

return a+b;

}

呵呵，只是将return 0该成了return a+b;

直接F7,

显示编译成功。

那现在再打开vc的工具->ActiveX Control Test Container菜单(参照前面的图)。选择MyActivex控件，然后再选择Control->InvokeMethods选项：

看看，在MethodName中多了一个test方法，而且有两个参数a,b

通过SetValue给a与b赋值。点击invoke在Return中就会显示结果,2+4=6:

那我们这个Activex就算做好了，在E:/MyPro/MyActiveX/Debug目录下的MyActiveX.ocx就是我们的成品。下面就进行发布工作。

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

转自：http://flashaway.blog.163.com/blog/static/95624576200942202812353/

双击DMyActiveX接口类，

找到 [ uuid(743F39F2-E3A5-4550-A203-4A1CFAE9ABCF),

helpstring("MyActiveX Control"), control ]

coclass MyActiveX

{

[default] dispinterface _DMyActiveX;

[default, source] dispinterface _DMyActiveXEvents;

};

方法中743F39F2-E3A5-4550-A203-4A1CFAE9ABCF就是我们ActiveX的GUID.

还有一种方法就是打开VC的工具OLEView，懒的敲字了，看图吧:

我的MyActiveX.inf如下:

[version]

signature="$CHINA$"

AdvancedINF=1.0

[Add.Code]

MyActiveX.ocx=MyActiveX.ocx

msvcr71.dll=msvcr71.dll

mfc71.dll=mfc71.dll

msvcp71.dll=msvcp71.dll

[MyActiveX.ocx]

file=thiscab

clsid={743F39F2-E3A5-4550-A203-4A1CFAE9ABCF}

FileVersion=1,0,0,0

RegisterServer=yes

[msvcr71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3052,4

[mfc71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3077,0

[msvcp71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3077,0

按照上面的方法，用cabarc -s 6144 n MyActiveX.cab msvcr71.dll mfc71.dll msvcp71.dll MyActiveX.ocx MyActiveX.inf命令制作好MyActiveX..cab。

文件目录：

我们来写个测试页面，代码如下：

<object id='test1' codeBase='http://10.79.108.108/MyActiveX.cab#version=1,0,0,0' classid='clsid: 743F39F2-E3A5-4550-A203-4A1CFAE9ABCF ' height=0 width=0 ></object>

<script>

a=test1.test(2,1);

alert(a);

</script>

注意：链接IP改成你机子的IP

将它保存为test.html格式存放到IIS下,同时把MyActiveX也拷贝到IIS下，也就是C:/Inetpub/wwwroot下。

打开页面测试下：

http://10.79.108.108/test.html

弹出对话框:

选择是:

呵呵，弹出计算值3。算是成功了一半。那为什么系统没有提示下载控件呢?这是因为VS在编译的时候已经帮我们把控件注册到系统中了。

那现在首要的问题，就是先解决上面那个是否允许activex运行的提示框。

在网上查了下资料，说是要实现ISafeObject接口。那好，我们下面就来实现：打开工程，找到CMyActiveXCtr类，双击打开文件：

在文件中添加引用：

#include "comcat.h"

#include "Objsafe.h"

两个头文件。

并在DECLARE_DYNCREATE(CMyActiveXCtro)后添加如下代码：

DECLARE_INTERFACE_MAP()

BEGIN_INTERFACE_PART(ObjSafe, IObjectSafety)

STDMETHOD_(HRESULT, GetInterfaceSafetyOptions) (

/* [in] */ REFIID riid,

/* [out] */ DWORD __RPC_FAR *pdwSupportedOptions,

/* [out] */ DWORD __RPC_FAR *pdwEnabledOptions

);

STDMETHOD_(HRESULT, SetInterfaceSafetyOptions) (

/* [in] */ REFIID riid,

/* [in] */ DWORD dwOptionSetMask,

/* [in] */ DWORD dwEnabledOptions

);

END_INTERFACE_PART(ObjSafe);

效果如图：

在工程目录中切换到FileView模式，打开MyActiveXCtrl.cpp文件，

然后将以下代码添加到构造函数CMyActiveXCtrl:: CMyActiveXCtrl ()上面，CMyActiveXCtrl替换为你的控件名称：

/////////////////////////////////////////////////////////////////////////////

// Interface map for IObjectSafety

BEGIN_INTERFACE_MAP( CMyActiveXCtrl, COleControl )

INTERFACE_PART(CMyActiveXCtrl, IID_IObjectSafety, ObjSafe)

END_INTERFACE_MAP()

/////////////////////////////////////////////////////////////////////////////

// IObjectSafety member functions

// Delegate AddRef, Release, QueryInterface

ULONG FAR EXPORT CMyActiveXCtrl::XObjSafe::AddRef()

{

METHOD_PROLOGUE(CMyActiveXCtrl, ObjSafe)

return pThis->ExternalAddRef();

}

ULONG FAR EXPORT CMyActiveXCtrl::XObjSafe::Release()

{

METHOD_PROLOGUE(CMyActiveXCtrl, ObjSafe)

return pThis->ExternalRelease();

}

HRESULT FAR EXPORT CMyActiveXCtrl::XObjSafe::QueryInterface(

REFIID iid, void FAR* FAR* ppvObj)

{

METHOD_PROLOGUE(CMyActiveXCtrl, ObjSafe)

return (HRESULT)pThis->ExternalQueryInterface(&iid, ppvObj);

}

const DWORD dwSupportedBits =

INTERFACESAFE_FOR_UNTRUSTED_CALLER |

INTERFACESAFE_FOR_UNTRUSTED_DATA;

const DWORD dwNotSupportedBits = ~ dwSupportedBits;

/////////////////////////////////////////////////////////////////////////////

// CStopLiteCtrl::XObjSafe::GetInterfaceSafetyOptions

// Allows container to query what interfaces are safe for what. We're

// optimizing significantly by ignoring which interface the caller is

// asking for.

HRESULT STDMETHODCALLTYPE

CMyActiveXCtrl::XObjSafe::GetInterfaceSafetyOptions(

/* [in] */ REFIID riid,

/* [out] */ DWORD __RPC_FAR *pdwSupportedOptions,

/* [out] */ DWORD __RPC_FAR *pdwEnabledOptions)

{

METHOD_PROLOGUE(CMyActiveXCtrl, ObjSafe)

HRESULT retval = ResultFromScode(S_OK);

// does interface exist?

IUnknown FAR* punkInterface;

retval = pThis->ExternalQueryInterface(&riid,

(void * *)&punkInterface);

if (retval != E_NOINTERFACE) { // interface exists

punkInterface->Release(); // release it--just checking!

}

// we support both kinds of safety and have always both set,

// regardless of interface

*pdwSupportedOptions = *pdwEnabledOptions = dwSupportedBits;

return retval; // E_NOINTERFACE if QI failed

}

/////////////////////////////////////////////////////////////////////////////

// CStopLiteCtrl::XObjSafe::SetInterfaceSafetyOptions

// Since we're always safe, this is a no-brainer--but we do check to make

// sure the interface requested exists and that the options we're asked to

// set exist and are set on (we don't support unsafe mode).

HRESULT STDMETHODCALLTYPE

CMyActiveXCtrl::XObjSafe::SetInterfaceSafetyOptions(

/* [in] */ REFIID riid,

/* [in] */ DWORD dwOptionSetMask,

/* [in] */ DWORD dwEnabledOptions)

{

METHOD_PROLOGUE(CMyActiveXCtrl, ObjSafe)

// does interface exist?

IUnknown FAR* punkInterface;

pThis->ExternalQueryInterface(&riid, (void * *)&punkInterface);

if (punkInterface) { // interface exists

punkInterface->Release(); // release it--just checking!

}

else { // interface doesn't exist

return ResultFromScode(E_NOINTERFACE);

}

// can't set bits we don't support

if (dwOptionSetMask & dwNotSupportedBits) {

return ResultFromScode(E_FAIL);

}

// can't set bits we do support to zero

dwEnabledOptions &= dwSupportedBits;

// (we already know there are no extra bits in mask )

if ((dwOptionSetMask & dwEnabledOptions) !=

dwOptionSetMask) {

return ResultFromScode(E_FAIL);

}

// don't need to change anything since we're always safe

return ResultFromScode(S_OK);

}

效果如下图，注意画红框的地方：

F7编译以后，按前面的步骤重新发布。

打开测试页面http://10.79.108.108/test.html，呵呵那个讨厌的对话框消失了。

现在这个ActiveX是完全做好了,下一步我们来看看怎样让用户下载安装。

先在本地电脑测试：

因为我们用VC编译时，VC已经帮我们把ActiveX注册到系统中了，所以我们想看到下载安装画面，先必须删除注册信息。

打开运行窗口，输出regedit命令，查找我们的控件GUI: 743F39F2-E3A5-4550-A203-4A1CFAE9ABCF

我这里找到三项，那全部删除。

在打开测试页面之前，我们还得做个工作，就是设置IE安全。打开IE工具->Internet选项，如果是局域网，设置本地Intrance,允许下载未签名和已签名的ActiveX。如果是外网，方法一样。

现在打开测试页http://10.79.108.108/test.html

成功弹出下载ActiveX对话框。

点击安装，程序正常运行。OK，我们已经成功了一半。

上面只是在本地测试成功。现在在其他计算机上访问测试页，不要忘了IE的安全设置。打开页面后也是弹出上面的安装界面。可是，点安装后，程序无法正常运行。而且每次刷新页面，安装对话框总是弹出，很是郁闷。

经过Baidu，又找到了方法。原来是其他计算机上没有安装我们activeX运行所需的库文件。那我们就想办法让用户把这用到的DLL全部下载。

那首先得知道我们的activeX用到了哪些库。如下图，打开VC的工具Depends

选择我们的MyActiveX.ocx控件，如下图：

那我们可以看到我们用到的DLL有6个，一般Kernel32.DLL和OLEAUT32.DLL文件每个操作系统都有，所以剩下的4个DLL,在你机子上全盘搜索，找到这4个dll后将他们放入你的MyActiveX.ocx相同文件夹下,编辑MyActiveX.inf, 这些dll的版本信息FileVersion可以在此dll上点击右键->属性中得到：

[version]

signature="$CHINA$"

AdvancedINF=1.0

[Add.Code]

MyActiveX.ocx=MyActiveX.ocx

msvcr71.dll=msvcr71.dll

mfc71.dll=mfc71.dll

msvcp71.dll=msvcp71.dll

MFC42D.dll=MFC42D.dll

MSVCRTD.DLL=MSVCRTD.DLL

gdi32.dll=gdi32.dll

MFCO42D.DLL=MFCO42D.DLL

[MyActiveX.ocx]

file=thiscab

clsid={743F39F2-E3A5-4550-A203-4A1CFAE9ABCF}

FileVersion=1,0,0,0

RegisterServer=yes

[msvcr71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3052,4

[mfc71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3077,0

[msvcp71.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=7,10,3077,0

[MFC42D.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=6.0.9782.0

[MSVCRTD.DLL]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=6.0.9782.0

[gdi32.dll]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=5.2.3790.2542

[MFCO42D.DLL]

file-win32-x86=thiscab

RegisterServer=no

DestDir=11

FileVersion=6.0.9782.0

保存后文件目录如下：

用 cabarc -s 6144 n MyActiveX.cab msvcr71.dll mfc71.dll msvcp71.dll MFC42D.dll MSVCRTD.DLL gdi32.dll MFCO42D.DLL MyActiveX.ocx MyActiveX.inf

命令生成MyActiveX.cab文件。

在其他计算机上打开测试页。安装ActiveX成功,并且运行正常。

就此，一个简单的ActiveX发布成功了。

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

转自：http://flashaway.blog.163.com/blog/static/95624576200942411404477/

前面两片文章我们制作了个一简单的 ActiveX,而这个ActiveX只实现了一个简单的计算功能。其实ActiveX控件的功能很好很强大，只要你能想到的，它基本都能够实现。可我现在的水平那也只能想到而做不到 >_< 。所以，还是在网上多找些例子，边做边学。

下面是我转载的一个例子，实现的功能是将网页保存到本地。照旧，我会在后面列出我制作时出现的问题及解决方案。

原文地址:http://www.7880.com/info/2005/06/08/article-14697.html

ActiveX控件的开发

这段时间因为工作的需要，开发了一个ActiveX控件，采用的开发工具是VC，希望可以给大家做类似的开发时提供参考。

一，ActiveX控件的功能：

1，主要是用来下载和保存指定的网页。

2，要能够嵌在网页中，供服务器页面的脚本调用。

3，提供下载保存到哪个文件夹的窗口，给用户自己选择保存位置的机会。

4，提供程序接口，使得用户可以保存单个文件。

5，提供程序接口，使得用户可以保存多个文件，文件名以数组的方式传递过来。

二，ActiveX控件的开发过程：

1，通过VC的MFC ActiveX ControlWizard 向导开发这个控件，将项目命名为ActiveX3

2，在向导的Step2 of 2中为Invisible at runtime打钩，并去掉Has an “About” Box前面的钩,该控件在调用时则不显示。

3，打开ClassWizard，在Automation下添加方法：

（1） External Name: DownloadSingle

Internal Name: DownloadSingle

Return Type: BOOL

Parameter List: strDownload LPCTSTR

该方法的作用：接受并处理参数为字符串类型的下载请求，同时为操作员提供指定下载目录的机会并接受其指定。

（2）External Name: DownloadArray

Internal Name: DownloadArray

Return Type: BOOL

Parameter List: arrDownload Variant

该方法的作用：接受并处理参数字符串数组类型的下载请求，同时为操作员提供指定下载目录的机会并接受其指定。

4，通过手工添加方法：

void TryUrl(CString strAddress)

被DownloadArray和DownloadSingle调用，用来实现具体下载功能。

三，关键代码

1， BOOL CActiveX3Ctrl::DownloadSingle(LPCTSTR strDownload)

{

// TODO: Add your dispatch handler code here

char buf[MAX_PATH];

_getcwd(buf,MAX_PATH);

location=”d://”;

TryUrl(strDownload);

MessageBox("下载完成！");

return TRUE;

}

2， BOOL CActiveX3Ctrl::DownloadArray(const VARIANT FAR& arrDownload)

{

// TODO: Add your dispatch handler code here

char buf[MAX_PATH];

_getcwd(buf,MAX_PATH);

location=”d://”;

const VARIANT *varArray;

if(arrDownload.vt==(VT_VARIANT|VT_BYREF))

{

varArray=arrDownload.pvarVal;

}

else

{

varArray=&arrDownload;

}

if((varArray->vt)==(VT_ARRAY | VT_BYREF | VT_VARIANT))

{

VARIANT* strarray;

SAFEARRAY* psa = *(varArray->pparray);

SafeArrayAccessData(psa,(void**)&strarray);

UINT uDim = SafeArrayGetDim(psa);

if(uDim==1)

{

long lLbound,lRbound;

SafeArrayGetLBound(psa,1,&lLbound);

SafeArrayGetUBound(psa,1,&lRbound);

for(long i=lLbound;i<=lRbound;i++)

{

if(strarray[i].vt==VT_BSTR)

{

TryUrl(strarray[i].bstrVal);

}

}

}

SafeArrayUnaccessData(psa);

}

MessageBox("下载完成！");

return TRUE;

}

3，void CActiveX3Ctrl::TryUrl(CString strAddress)

{

CFile newFile;

Cstring fileName=strAddress.Mid(strAddress.ReverseFind('/')+1);

newFile.Open(location+"//"+fileName,CFile::modeCreate | CFile::modeWrite);

CInternetSession session;

CInternetFile* file=NULL;

try

{

file=(CInternetFile*)session.OpenURL(strAddress); }

catch(CInternetException* pEx)

{

file=NULL;

pEx->Delete();

}

if(file)

{

int number=0;

BYTE *buf;

buf=new BYTE[1024];

do

{

number=file->Read(buf,1024);

newFile.Write(buf,number);

}

while(number>0);

delete []buf;

}

file->Close();

newFile.Close();

return;

}

四，测试页面

<html>

<head>

<title>Download three files from the web.</title>

<script language="javascript">

function download1()

{

var file;

file=document.form1.text1.value;

FavouriteDown.downloadSingle(file);

return;

}

</script>

<script language="VBScript">

<!--

Sub downN_OnClick

Dim s(2)

s(0)=document.form1.text1.value

s(1)=document.form1.text2.value

s(2)=document.form1.text3.value

ActiveXDown.DownloadArray(s)

End Sub

-->

</script>

</head>

<body>

<OBJECT ID="ActiveXDown"

CLASSID="CLSID:ADD73828-78F4-4EF1-8734-61590B044F87"

CODEBASE="ActiveX3.ocx#version=1,0,0,0">

</OBJECT>

<center>

<form name="form1">

<input type="text" name="text1" size="50"><p>

下载一个文件：<input type="button" name="down1" value="down1" onclick="javascript:download1();"><p>

<input type="text" name="text2" size="50"><p>

<input type="text" name="text3" size="50"><p>

下载三个文件：<input type="button" name="downN" value="downN"><p>

</form>

</body>

</html>

#######################以下是在开发ActiveX时出现的问题补充########################

按照上面博文的方法，我们要添加三个方法，添加方法我就不具体讲了，前面一篇已经抓过图。需要注意的是博文中第四步说要手动添加void TryUrl(CString strAddress)方法，我到现在也还没理解，只有通过Automation添加了。在添加过程中，参数无法选择Cstring类型，如图：

如有高手路过，请指点一二。

那我们只能先选择LPCTSTR代替。那我们就必须在程序里该下，将LPCTSTR转换为CString类型。

//下载网页

void CMyActiveXCtrl::TryUrl(LPCTSTR str)

{

// TODO: Add your dispatch handler code here

CString strAddress(str);//在这里转换成CString类型

CFile newFile;

CString fileName=strAddress.Mid(strAddress.ReverseFind('/')+1);

newFile.Open(location+"//"+fileName,CFile::modeCreate | CFile::modeWrite);

CInternetSession session;

CInternetFile* file=NULL;

try

{

file=(CInternetFile*)session.OpenURL(strAddress);

}

catch(CInternetException* pEx)

{

file=NULL;

pEx->Delete();

}

if(file)

{

int number=0;

BYTE *buf;

buf=new BYTE[1024];

do

{

number=file->Read(buf,1024);

newFile.Write(buf,number);

}

while(number>0);

delete []buf;

}

file->Close();

newFile.Close();

return;

}

而且程序中的location也得通过Automation选项卡添加成全局变量（添加变量请参见前面的一篇文章），并且赋初值，如下图：

还有BOOL CActiveX3Ctrl::DownloadArray(const VARIANT FAR& arrDownload)编译时也出错，说是字符分割时出现错误：修改后的代码如下：

//同时保存多个网页

BOOL CMyActiveXCtrl::DownloadArray(const VARIANT FAR& arrDownload)

{

// TODO: Add your dispatch handler code here

char buf[MAX_PATH];

_getcwd(buf,MAX_PATH);

const VARIANT *varArray;

if(arrDownload.vt==(VT_VARIANT|VT_BYREF))

{

varArray=arrDownload.pvarVal;

}

else

{

varArray=&arrDownload;

}

if((varArray->vt)==(VT_ARRAY | VT_BYREF | VT_VARIANT))

{

VARIANT* strarray;

SAFEARRAY* psa = *(varArray->pparray);

SafeArrayAccessData(psa,(void**)&strarray);

UINT uDim = SafeArrayGetDim(psa);

if(uDim==1)

{

long lLbound,lRbound;

SafeArrayGetLBound(psa,1,&lLbound);

SafeArrayGetUBound(psa,1,&lRbound);

for(long i=lLbound;i<=lRbound;i++)

{

if(strarray[i].vt==VT_BSTR)

{

//这里编译时出错，下面是改动后的代码

int size= WideCharToMultiByte(CP_ACP,0,strarray[i].bstrVal,-1, NULL, 0, NULL,0);

char * AsciiBuff =new char[size];

WideCharToMultiByte(CP_ACP,0,strarray[i].bstrVal,-1,AsciiBuff,size, NULL, 0);

TryUrl(AsciiBuff);

}

}

}

SafeArrayUnaccessData(psa);

}

MessageBox("下载完成！");

return TRUE;

}

哦，还要注意添加一个头文件引用：

#include <afxinet.h>

如下图：

现在编译下，直接通过，呵呵。

编译通过后，你可以通过ActiveXControlTestContainer对控件进行调试。调试前先设置下：打开

工程->设置，弹出对话框设置调试，选择可执行调试设置为ActiveXControlTestContainer，如下图:

然后在程序里打上断点。按F5启动调试，在方法中选择DownloadSingle方法，设置参数，我这里输入http://localhost/test.html，点击invoke按钮,程序就会走到你设置的断点处：

那我们点击invoke按钮，如果没有断点，程序直接执行，弹出下载完成对话框。因为程序中我设置的路径是D:/,所以应该在我的D盘下可以找到一个名为test.html的文件。如果你也找到了，说明你的控件也可以正常运行了。

下面就该发布这个ActiveX了。如果你是第一次让用户安装此控件，那你可以参照我的上一篇文章进行发布。如果前面用户已经安装了上一个版本，那我们这次就是让用户升级ActiveX了。

升级ActiveX,我们需要修改三个地方。

一， 我们首先要修改程序中的版本。打开工程的ResourceView资源浏览菜单，选择VS_VERSION_INFO节点，我们可以看到原来的FILEVERSION中的版本号是1.0.0.1, 我们把它改成1，0，0，2。如下图(NND，图怎么倒了，凑活着看吧，呵呵)：

F7直接编译完成。

二,修改发布文件信息

MyActiveX.inf,将FileVersion该为1，0，0，2

重新生成cab文件并签名。将生成的MyActiveX.cab拷贝到服务器IIS发布目录。

三， 修改test.html页面cab的版本信息，将version改为1，0，0，2

注意：文中的版本信息1，0，0，2中间一定是逗号。

那现在我们就可以让用户打开这个包含控件的页面，IE会提示用户重新安装ActiveX控件。

如果用户安装成功，我们可以在C:/WINDOWS/Downloaded Program Files目录下看到这个Activex控件信息:

还可以打开IE中的Internet选项，程序->管理加载项目中查看

也可以点击删除按钮对我们的ActiveX进行删除。

下面我们开始对ActiveX进行测试：

Test.html页面我做了下改动，代码如下：

<html>

<head>

<title>Download three files from the web.</title>

</head>

<body>

<object id='test1' codeBase='http://10.79.108.75/MyActiveX.cab#version=1,0,0,2' classid='clsid:743F39F2-E3A5-4550-A203-4A1CFAE9ABCF' height=0 width=0 ></object>

<center>

<form name="form1">

<input type="text" name="text1" size="50"><p>

下载一个文件：<input type="button" name="down1" value="down1" onclick="javascript:download1();"><p>

<input type="text" name="text2" size="50"><p>

<input type="text" name="text3" size="50"><p>

下载三个文件：<input type="button" name="downN" value="downN"><p>

</form>

</body>

</html>

<script language="javascript">

a=test1.test(2,1);

alert(a);

function download1()

{

var file;

file=document.form1.text1.value;

test1.downloadSingle(file);

return;

}

</script>

<script language="VBScript">

<!--

Sub downN_OnClick

Dim s(2)

s(0)=document.form1.text1.value

s(1)=document.form1.text2.value

s(2)=document.form1.text3.value

test1.DownloadArray(s)

End Sub

-->

</script>

如图：

输入网址进行测试，下载成功。

如果你输入为空，或者网页打不开，IE就会崩溃而退出，这是因为我们在程序中都没有做验证。反正大概功能已经实现，验证你可以自己修改正下。

还有就是我把test.html中的的vbscript该为javascript后，点多个下载后程序执行失败，很是郁闷，javascript代码如下：

function download2()

{

alert(1);

var a1=new Array(3);

a1[0]=document.form1.text1.value;

a1[1]=document.form1.text2.value;

a1[2]=document.form1.text3.value;

test1.DownloadArray(a1);

}

后来找了一篇博文《把javascript,vbscript中得数组传递给COM组件（or Activex）》，原文网址是：

http://blog.csdn.net/wzsy/archive/2008/03/18/2193551.aspx