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作者: zengli80 时间: 2012-7-24 15:44
就是登陆后点击左边的菜单树，通过循环，一层层的展开，每次打开一个模块就检查页面有没有报错
若没报错就关闭模块，有报错就不关闭，继续点击菜单打开另一模块
现象就是运行的好好的，突然整个页面刷新，菜单树后收起来，没法运行下去
似乎跟那两个正则表达式的函数有关系，我要是去掉，只是简单的
If Browser("CreationTime:=1").Page("index:=0").Image("file name:=error.gif","index:="&j).exist(0) Then
判断页面上是否出现错误的图片，运行就不会中途刷新作者: zengli80 时间: 2012-7-24 15:44
就是登陆后点击左边的菜单树，通过循环，一层层的展开，每次打开一个模块就检查页面有没有报错
若没报错就关闭模块，有报错就不关闭，继续点击菜单打开另一模块
现象就是运行的好好的，突然整个页面刷新，菜单树后收起来，没法运行下去
似乎跟那两个正则表达式的函数有关系，我要是去掉，只是简单的
If Browser("CreationTime:=1").Page("index:=0").Image("file name:=error.gif","index:="&j).exist(0) Then
判断页面上是否出现错误的图片，运行就不会中途刷新作者: zengli80 时间: 2012-7-30 15:30
一个回帖的都没有啊作者: 测试工坊 时间: 2012-7-30 21:09
不知道你的被测试软件具体是什么样的，有可能网页自身在一定条件下刷新了。
这种情况你可以检查你要点击的树节点是否展开，如果因为刷新了而没有展开，你可以增加一个展开的操作。
If Not targetNode.exist(1) Then
ExtendTrees
End If
