|
因为在研究参数化link的问题,所以拷贝了一段代码,改了一下,把IE的首页改成了bj.ganji.com,但是运行的时候,QTP始终在for each那段循环语句里上下打晃,变成了死循环。
我的本意是想点击更多城市后,让QTP自己跑脚本,挨个点击各个城市的链接,但是现在不知道该怎么改了,大家帮忙看看呗,谢谢了!
代码如下:
Dim eleLink
Dim i,j,Links()
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Documents and Settings\Administrator","open"
Browser("北京分类信息-赶集网").Page("北京分类信息-赶集网").Link("更多城市").Click
wait 5
'Browser("北京分类信息-赶集网").Page("全国分类信息 - 赶集网").Link("上海").Click
'Browser("北京分类信息-赶集网").Page("上海分类信息-赶集网").Sync
Set objLinks=Browser("北京分类信息-赶集网").Page("北京分类信息-赶集网").Object.links
i=0
For each eleLink In objLinks
If Ucase(eleLink.tagname)="上海" Then
Links(i)=eleLink.InnerText
i=i+1
End If
Next
For j=0 To i
Browser("北京分类信息-赶集网").Page("北京分类信息-赶集网").Link("InnerText:=" & Links(j)).Click
Browser("Browser").Back
Next
Browser("北京分类信息-赶集网").Close |
|