|
本帖最后由 julie0127 于 2010-12-8 14:16 编辑
For Each url in urlList
'MsgBox url
SystemUtil.Run "iexplore.exe", url
Reporter.ReportEvent micDone, "Url: ", url
Select Case true
Case Browser("欢迎访问中心系统").Page("欢迎访问中心系统").WebElement("login_pic").CheckProperty("innertext", "助理系统", "1000" )
MsgBox "回归助理系统"
Case Browser("欢迎访问中心系统").Page("欢迎访问中心系统").WebElement("login_pic").CheckProperty("innertext", "认证人事系统", "1000")
MsgBox "回归人事系统"
End Select
Next
脚本里url是不同系统的登录地址
第一遍循环时 MsgBox "回归助理系统" 正常
第二遍过来 WebElement("login_pic"). innertext就成empty了,不知道什么情况啊,页面上明明有认证人事系统的 |
|