|
本帖最后由 zengli80 于 2012-7-24 14:42 编辑
版本:QTP 8.2+IE6.0
以下脚本是循环点击菜单树的每个模块,检查是否有页面报错,总是运行到中途,整个页面会刷新,导致无法进行下去
Public Function RegExpbld(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
RegExpbld=retVal
End Function
Public Function QTP_DocIsLive()
Dim Src_text,patrn
Src_text=TextUtil.GetText(0, 20, 20, 2000, 2000) '窗口的大小需要根据实际去定义
patrn="错误|error|无法"
If RegExpbld(patrn,Src_text) Then
QTP_DocIsLive=true
Exit Function
End If
QTP_DocIsLive=false
End Function
Browser("CreationTime:=1").Page("index:=0").WebEdit("name:=strAccount").Set"admin"
Browser("CreationTime:=1").Page("index:=0").WebEdit("name:=strPassword").Set"123456"
Browser("CreationTime:=1").Page("index:=0").Image("name:=btnLoginIn").Click
Browser("CreationTime:=1").Page("index:=0").WebElement("html id:=fun_menu").Click
count=120
j=0
For i=1 to count
Browser("CreationTime:=1").Page("index:=0").Image("html id:=TreeView1_item_"&i&"_icon").Click
wait(2)
if QTP_DocIsLive=true Then
j=j+1
'msgbox j
else
Browser("CreationTime:=1").Page("index:=0").Image("index:="&j+1).click
end if
Next
msgbox j |
|