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對象的屬性和方法。