Question

我们的想法是尽可能地创建具有动态属性的关键字框架。从Excel中读取的关键字：

Keyword=Trim(TS_Sheet.cells(j,"D"))
Arg1=Trim(TS_Sheet.cells(j,"E"))
Arg2=Trim(TS_Sheet.cells(j,"F"))
Arg3=Trim(TS_Sheet.cells(j,"G"))
Arg4=Trim(TS_Sheet.cells(j,"H"))
'Execute the corresponding test Steps(Or Keywords)
Call_Function Keyword, Arg1, Arg2, Arg3, Arg4

Call_Function应该执行步骤：

Function Call_Function (Keyword, Arg1, Arg2, Arg3, Arg4)
On Error Resume Next
Print "Keyword for execution is:- " & Keyword
Dim subS1 : Set subS1 = GetRef(cstr(Keyword))(Arg1, Arg2, Arg3, Arg4)
    If Err.Num<>0 Then
        Msgbox "Error: "&Err.Num, "OK", "Runtime Error "&Err.Num
        reporter.ReportNote "Error occured: "&Err.Num&" keyword: "&keyword&" TCID: "&TCID&" TSID: "&TSID
    End If
Mybrowser.Sync
Err.Clear
On Error GoTo 0
Set subS1 = Nothing
End Function

我需要等待使用WaitProperty，Chekproperty或任何其他methot达到属性，例如

MyBrowser.WebButton("html id:=.*"&Arg2).WaitProperty ("disabled", Arg4, 1)

但我需要传递参数来等待Excel以使其更具动态性，例如

MyBrowser.ChildObject("micclass:=.*"&Arg1, "html id:=.*"&Arg2).WaitProperty (Arg3, Arg4, 1)

到目前为止，它没有用。 QTP只是跳过了那部分代码。我试过以下的事情：

Function Wait_Property (Arg1, Arg2, Arg3, Arg4)
    Process=".."
    Do
    For Iterator = 1 To 100 Step 0.5 '///this can be any number just to make sure loop executes long enough to property to be reached
    If MyBrowser.ChildObject("micclass:=.*"&Arg1, "html id:=.*"&Arg2).WaitProperty (Arg3, Arg4, 0.1) Then
        Print "Reached."
        Exit Do
    Else
        Print "Wait. Processing.."&Process
        Wait 0.5
    End If
    Process = Process+".."
    Next
    Loop While False
End Function

我也试过...If MyBrowser.ChildObject("micclass:=.*"&Arg1, "html id:=.*"&Arg2, Arg3=Arg4).Exist Then...，但QTP仍然跳过了。{/ p>

怎么了？还有其他办法吗？

UPD 1： 以下是现在的工作：

PropWait = cstr(Browser("micclass:=Browser","CreationTime:=0","name:=.*").page("micclass:=Page","CreationTime:=0","Title:=.*").WebButton("html id:=.*"&Arg2).GetROProperty(Arg3))
Do Until cstr(PropWait) = cstr(Arg4)
If PropWait = Arg4 Then
    Exit Do
    ElseIf PropWait = "" Then 
print "PropWait Empty"
    Exit Do
    Else
End If
Wait 2
Print PropWait&" : Wait. Processing.."&Process
Process = Process+".."
PropWait = cstr(Browser("micclass:=Browser","CreationTime:=0","name:=.*").page("micclass:=Page","CreationTime:=0","Title:=.*").WebButton("html id:=.*"&Arg2).GetROProperty(Arg3))
Loop

但我也需要micclass来动态。

UPD 2： 添加了description.create到以前的更新：

Dim WaitObj : Set WaitObj = Description.Create
WaitObj("micclass").Value = Arg1
WaitObj("html id").Value = Arg2

PropWait = Browser("micclass:=Browser","name:=.*").page("micclass:=Page","Title:=.*").ChildObjects(WaitObj).GetROProperty(Arg3)

但是QTP会跳过这一切，并且在此之后会发生一切。

UPD 3 ：

正如评论中所建议的，尝试在On Error Resume Next中对Call_Function发表评论，但现在在第一步（即打开浏览器）后，它会返回错误：

“需要对象：'GetRef（...）（...）”

UPD 4： 试图将On Error Resume Next置于Wait_Property函数中：On Error Resume Next中Call_Function取消注释

Function Wait_Property (Arg1, Arg2, Arg3, Arg4)
On Error Resume Next
...

现在，不确定它是否识别该对象，但是接下来打印（而Arg3中的属性有一个值：

PropWait =

PropWait Empty

Answer 1

最后，下一步是：

Function Wait_Property (Arg1, Arg2, Arg3, Arg4)
print "Test Function Call"

Dim WObj : Set WObj = Description.Create()
WObj("micclass").Value = Arg1
WObj("html id").Value = Arg2

Dim ObjColl : Set ObjColl = MyBrowser.ChildObjects(WObj)
For t = 0 To ObjColl.Count-1
'print "count:="&ObjColl.Count
  WaitPro = cstr(ObjColl(t).GetROProperty(Arg3))
  Do Until WaitPro = Arg4
    print "Wait. Progress..."&Progress
    wait 2
    Progress = Progress+".."
    Set ObjColl = MyBrowser.ChildObjects(WObj)
    WaitPro = cstr(ObjColl(t).GetROProperty(Arg3))
  Loop
  print "Function Executed"
Next

Set WObj = Nothing
End Function

无法从Excel

1 个答案: