首先，打开VB，新建一个ActiveDLL：

写入以下代码：

然后在（文件）菜单选择“生成PrjName.dll”。然后就可以在QTP里进行调用了。

假设此时把PrjName.dll改名了FileName.dll，如果此文件不是QTP所在机器生成的，需要用运行 regsvr32 进行注册（如运行regsvr32 f:\FileName.dll）。

撤销注册运行 regsvr32 /u f:\FileName.dll 。

然后直接在QTP里用CreateObject进行调用即可：

如此简直，就实在了QTP调用DLL。

当然，也可以用来声明非托管的动态链接库和API函数。