QTP/UFT引用外部dll的3种方法

QTP引用外部dll的3种方法 ：Active DLL, Win API DLL, .Net API DLL

1、Active DLL

通过CreateObject(class)创建：

dim ws

set ws = CreateObject(“Wscript.shell”)

ws.run “Notepad.exe”

GetObject([pathname] [, class])

参数

Pathname

可选项。字符串，包含待检索对象的文件的完整路径和名称。如果省略 pathname 则必须有 class。

Class

可选项。字符串，对象的类。

class 参数的语法格式为 appname.objectype，其中包括以下部分：

参数

appname

必选项。字符串，提供对象的应用程序名称。

objectype

必选项。字符串，要创建的对象的类型或类。

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\” & strComputer & “\root\cimv2”)

set cpu =objwmiservice.execQuery(“select * from win32_processor”)

for each item in cpu

cpu2=cpu2&”CPU:” & item.Name

next

msgbox cpu2

2、Win API DLL

Extern.Declare(RetType, MethodName, LibName, Alias [, ArgType(s)])

参数说明：

RetType: 方法返回值的类型。

MethodName：调用DLL文件中的某个方法的方法名。

LibName: DLL文件名。

Alias: 别名，当别名为空时，方法名和别名一样(此参数通常为空)。

ArgType(s): 传入的参数。

Extern.Declare micLong, “WinExec”, “kernel32.dll”, “WinExec”, micString,micLong

Extern.WinExec “c\test.exe “, test

3、.Net API DLL

DotNetFactory.CreateInstance (TypeName [,Assembly] [,args])

typename 其实就是命名空间+class名

assembly 其实就是程序集地址，可以本地路径，也可以是.net命名空间

args 其实就是class实例时构造函数的参数值

Set MyMsgBox = DotNetFactory.CreateInstance(“System.Windows.Forms.MessageBox”,”System.Windows.Forms”)

MyMsgBox.Show “Hello World “, “My Custom Message box”

Set MyMsgBox1 = DotNetFactory.CreateInstance(“System.Windows.Forms.MessageBox”,”D:\defineDLL.dll”,”title”)

MyMsgBox1.Show “Hello World “, “My Custom Message box”

PS：其中第1种和第3种都可以自定义dll来扩充，其中自定义第一种active dll后在使用前需要在系统中注册一下【regsvr32 dllName】