函数重载
在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