代码之家 › 专栏 › 技术社区 › nishit dey

带传递对象的用户定义函数

qtp vbscript

nishit dey · 技术社区 · 7 年前

我只是想在创建自己的函数时得到帮助,该函数以对象作为引用传递。

Set Pg = Browser("Browser").Page("Login")
Pg.WebEdit("loginForm:userName").cSet("user1")

Public Function cSet(obj, val)
    If IsOBject(Obj) Then  ''Here obj is WebEdit("loginForm:userName")
        Obj.Set val  '''Here val is user1
    Else
        Reporter.ReportEvent micFail,"Failed","Object not found"
    End If
End Function

获取以下错误

对象不支持此属性或方法:“browser(…).page(…).webedit(…).cset

1 回复 | 直到 7 年前

Motti 7 年前

我不清楚你想在这里实现什么。 WebEdit 已经有了 Set 如果对象不存在将失败的函数。

在任何情况下,UFT都允许为特定测试对象添加(或重写)函数,请参见 RegisterUserFunc .

例如,如果一个对象不存在,UFT将等待它存在,直到超时结束。如果对象不存在,可以告诉UFT立即失败。

' Define the function
Function QuickSet(ByRef obj, ByVal value) 
    If Not obj.Exist(0) Then ' zero means don't wait 
        Reporter.ReportEvent micFail, "QuickSet", "Object does not exist"
        Exit Function
    End If
    obj.Set value   
End Function

' Register the function to WebEdit as a new function
RegisterUserFunc "WebEdit", "QuickSet", "QuickSet"

' Or override the default behaviour of Set
RegisterUserFunc "WebEdit", "Set", "QuickSet"

推荐文章

kwirky_penguin · VBScript远程WMI调用“错误:0”权限被拒绝:“GetObject”

4 年前

michael_wycklendt · 拆分字符串上的类型不匹配

4 年前

RuffMingani · VBScript-WMI查询的语法无效

4 年前

Munaver Munu · 这段VB代码是如何自动添加到我的html文件中的?[重复]

4 年前

whoislouis · 是否使用vbscript/hta将文件夹中的所有文件加载到数组中?

8 年前

Er Reddy · VBS-查找计算机所在的SCCM集合Id、名称和包名称?

8 年前

Nick Cage Wellfair · 编写Photoshop脚本时,打开扩展名为JPG的文件夹中的所有文件

8 年前

Ali Sheikhpour · 在VBScript中将字符串转换为变量名

8 年前

QHarr · 命令行执行VBScript文件以执行VBA宏无法生成msgbox

8 年前

arana · 生成3位字母数字日期索引

8 年前