RegisterUserFunc 重写QTP自带对象的方法

RegisterUserFunc:为测试对象添加一个新的自定义方法，或者重写测试对象已有的方法

语法：RegisterUserFuncTOClass, MethodName, FunctionName, SetAsDefault

说明：

TOClass  想要注册方法的对象

MethodName 想要注册的方法名称

FunctionName 函数中自定义的函数名称

SetAsDefault 是否要注册为对象的默认操作，值为：False，或者True

'Register the userdifine method, put below code into keywordlibrary(generally)

RegisterUserFunc "Window", "CheckObjectExist","CheckObjectExist",false 

Function CheckObjectExist(strObj)

Dim obj : set obj = strObj

If obj.Exist Then

    Reporter.ReportEvent micPass,"Verify Object exist","Objectexist"

Else

    Reporter.ReportEvent micFail,"Verify Object exist","Object notexist"

End If

End Function

'after that window object can use the CheckObjectExist methodin ur test case(just press Dot key behind the Object. and u can see the method in the droplist)

Window("Window_FlightReservation").CheckObjectExist

以上实例是个简单的自定义对象方法的例子