|
源代码如下
Dim loadtimes()'每次的响应时间
ReDim loadtimes(clicktimes)
Dim avgtimes'平均响应时间
Dim i
Dim pagename
pagename="流程管理"
For i=0 To clicktimes-1
Browser("法律事务管理信息系统").Page("法律事务管理信息系统主页面").Frame("name:=leftFrame","html tag:=FRAME").Link("text:="&pagename).Click
wait(2)'等待页面加载完毕,避免接收不正确的加载时间
loadtimes(i)=Browser("法律事务管理信息系统").Page("法律事务管理信息系统主页面").Frame("topFrame").WebElement("loadtime").GetROProperty("innertext")
'MsgBox(Browser("法律事务管理信息系统").Page("法律事务管理信息系统主页面").Frame("topFrame").WebElement("loadtime").GetROProperty("innertext"))
Next
报错说找不到LInk的父对象Frame("lefname"),报错信息如下
Cannot find the "Link" object's parent "Frame" (class Frame). Verify that parent properties match an object currently displayed in your application.
Line (25): "Browser("法律事务管理信息系统").Page("法律事务管理信息系统主页面").Frame("name:=leftFrame","html tag:=FRAME").Link("text:="&pagename).Click".
但是非常奇怪的是,我在红色语句设置为断点,step by step运行,结果发现第一次循环时通过了,页面上的Link被点击了一下,但是当第二次循环时就报错,说找不到frame了,请问大家遇到过类似的情况吗?请大家指教了 |
|