QTP中实现函数重载

在VBS中没有提供函数重载的功能，很大程度上造成了开发脚本的不便，但是在QTP中是可以将方法重载的。

两个方法：

1.注册
    RegisterUserFunc TOClass, MethodName, FunctionName, [SetAsDefault]

• TOClass: 测试对象
• MethodName: 需要被重载的方法
• FunctionName: 封装的函数名
• SetAsDefault: 是否作为测试对象的标准方法

2.反注册
    UnRegisterUserFunc TOClass, MethodName

• TOClass: 测试对象
• MethodName: 需要被释放重载的方法

实例：
    对一个WebEdit的Set方法进行封装并重载，希望在这个WebEdit赋值前先记录下之前的值，代码如下：

Function MySet(obj,x)    Dim y    y=obj.GetROProperty("value")    Reporter.ReportEvent micDone,"Input a new value","The previous value is: "&y&";The current input value is :"&x    MySet=obj.Set(x) End Function   RegisterUserFunc "WebEdit","Set","MySet" Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("micClass:=WebEdit","name:=wd").Set "Google" UnRegisterUserFunc "WebEdit","Set"

标签: