QTP访问外部dll的三种方法

第一种是ActiveX对象生成的Dll

　　在这里的外部dll非本机生成，则在qtp访问前必须在本机器注册，

      方法为： regsvr32 d:\dll文件路径

      取消注册为： regsvr32 /u  D:\dll文件;

　　当然在本机器上生成的dll则不需要注册；

　　注册完成后，就可以在qtp中利用createobject方法调用注册的dll文件了；

　　set res=CreateObject("文件名.类名")

　　res.方法

　　这样就可以用res调用dll文件中的各种方法了。

            Dim dll_File
           dll_File =  "D:\QTP\AddN.dll"

           Set wshell = CreateObject("Wscript.shell")
           wshell.Run "regsvr32  "&dll_File
           Set wshell = Nothing

           set res=CreateObject("TestProject.Class1")
           msgbox res.AddN(100)

第二种方法是利用Extern object

　　可以利用Extern.Declare 声明，如下面所示：

　　Extern.Declare micInteger , "Add", "E:\QTP\DLL\LRDllTest.dll", "Sum", micInteger, micInteger

　　res = Extern.Add(1,1)

　　Msgbox res

　　sum为dll文件中的函数，Add为sum所命的别名；

第三种方法是利用DotNetFactory对象

　　在QTP中为访问.net对象，专门提供了DotNetFactory对象。通过DotNetFactory可以访问.NET对象的属性和方法。