函数重载

在vbs中没有提供函数重载的功能，在很大程度上造成了开发脚本的不方便，其实在QTP中是可以将方法进行重载的，在QTP帮助里有很详细的说明
其实无非就是两个方法：
1、RegisterUserFunc
原型：
RegisterUserFunc TOClass, MethodName, FunctionName, SetAsDefault 
TOClass：测试对象
MethodName：需要被重载的方法
FunctionName：封装的函数名
SetAsDefault：是否作为测试对象的标准方法，默认为false
2、UnRegisterUserFunc
原型：
UnRegisterUserFunc TOClass, MethodName
TOClass：测试对象
MethodName：需要被重载的方法

实例：
对于一个WebEdit的Set方法进行封装并重载
Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"
希望在给这个WebEdit赋值前记录下之前的值，可以使用如下代码

Function MySet (obj, newvalue) 
    'obj:测试对象
    'newvalue：赋的新值
       dim oldvalue
       ōldvalue = obj.GetROProperty("value") 
       Reporter.ReportEvent micDone, "previous value", oldvalue
       MySet=obj.Set(newvalue)
End Function

然后使用RegisterUserFunc和UnRegisterUserFunc方法：
RegisterUserFunc "WebEdit" , "Set" , "MySet" , False
Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"
UnRegisterUserFunc "WebEdit" , "Set"
或者直接调用
MySet Browser(xx).Page(xx).WebEdit(xx) , "xxxx"
此时，MySet函数实际上是重载了Set方法，并增加了输入旧值的功能
大家可以根据自己的需要来重载QTP的标准方法，在实际运用中有不小的作用
比如：记录下初始值，便于测试后清理环境等

注：
在这里说明的是RegisterUserFunc方式是把方法注册到相应对象，在当前运行时状态下存在，对于一些对象个性化后处理后可以用它来封装一些方法来使用。停止运行后相应方法也会失效；如果想手动使方法失效，可以使用Un RegisterUserFunc。