创建新方法

Question

我正在使用 HP UFT。此工具使用 VBScript 来自动测试。是否可以在函数库中创建新方法。我的意思是这样的。

Browser("Browser").Page("Page").WebEdit("login").MyMethod()

我该怎么做？

Answer 1

转到设计菜单，然后select函数定义生成器... 您将获得以下 UI

基本上这是 RegisterUserFunc 的帮手。

通过 select 将 注册到测试对象 复选框（以及哪种类型的测试对象），您添加的功能将可作为常规测试使用对象函数。

请注意，您可以覆盖现有函数，例如，您可以更改 Set 以查看值是否为 "~today~" 添加今天的日期。

Answer 2

添加用户定义的函数实际上非常简单：定义函数，决定要将函数添加到的对象类型，然后使用 RegisterUserFunc 将它们放在一起：

Function BrokenImage(ImageObject)
BrokenImage = True
ImageObject.WaitProperty "visible", True, 1000
ImageLoaded = False
StartTime = Now()
Do
    If ImageObject.Object.naturalHeight > 0 And ImageObject.Object.naturalHeight > 0 Then
        BrokenImage = False
        Exit Do 
    End If
    If DateDiff("s", StartTime, Now()) > 10 Then Exit Do
Loop While ImageLoaded = False
End Function 

RegisterUserFunc "Image", "BrokenImage", "BrokenImage"

一旦定义了函数，就可以像调用任何其他对象方法一样调用它：

If Browser().Page().Image().ImageBroken() = true Then Print "Broken Image"

您还可以添加其他参数，这些参数随后将传递给新方法。

创建新方法

Create new method

vbscript

qtp

hp-uft