QTP 自动点击搜索出来的页面链接

superfang

HI,大家好：我现在遇到一个问题
操作
1、打开首页http://www.google.cn
2、输入要搜索的词： testing
3、点击 搜索：结果会出现10个满足要求的链接
  我的要求是：想通过QTP录制上面的脚本后，让QTP实现自动的点击 上面的10个链接，不会人来点击。
不知道有什么好的办法吗？请大侠指教。

hsjzfling

Copy到QTP中可直接执行。为了方便被执行，脚本全改写成描述性编程的方式了。脚本主要是用父对象的思想来解决问题。
对搜索出来的链接的是否为子链接做了判断，如果不需要区分只需删除掉desc("x").value = 18就好了。

1. 
   
2. SystemUtil.CloseProcessByName "iexplore.exe"
   
3. SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.google.cn",,,3
   
4. Browser(":=").Page(":=").WebEdit("name:=q").Set "testing"
   
5. Browser(":=").Page(":=").WebEdit("name:=q").Submit
   
6. Set desc = Description.Create()
   
7. desc("micclass").value = "WebElement"
   
8. desc("html tag").value = "LI"
   
9. desc("class").value = "g"
   
10. desc("x").value = 18
    
11. Set odesc = Description.Create()
    
12. odesc("micclass").value = "Link"
    
13. set oWEs = Browser(":=").Page(":=").ChildObjects(desc)
    
14. If oWEs.Count >= 10 Then
    
15.         iCount = 10
    
16. Else
    
17.         iCount = oWEs.Count
    
18. End If
    
19. For i=1 to iCount
    
20.         Set oLinks = oWEs(i-1).ChildObjects(odesc)
    
21.         oLinks(0).Click
    
22.         Browser("CreationTime:=1").Close
    
23. Next
    
24. Set desc = Nothing
    
25. Set odesc = Nothing
    

复制代码

[ 本帖最后由 hsjzfling 于 2009-4-8 18:54 编辑 ]

hsjzfling

3楼自己运行下就好了嘛，脚本copy到QTP中就能run了。

Ajax确实会导致部分问题，用QTP处理起来稍微麻烦一点点

kasimxiao

SystemUtil.Run "iexplore","www.google.com"
Browser("Google").Page("Google").WebEdit("q").Set "testing"
Browser("Google").Page("Google").WebEdit("q").Submit

For i = 0 to 9
        Browser("Google").Page("Google").Link("class:=l","index:="&i).Click
        Browser("CreationTime:=1").close
Next

Browser("CreationTime:=0").close

hsjzfling

点击search之后会刷新生成新页面，也没有啥异步处理的东东，对于该脚本而言不会存在Ajax导致的问题，也不会有同步的问题了。

5楼所指的Ajax问题，恕在下愚钝，还请明示

BTW，desc("x").value = 18 这个值可能会跟分辨率等因素相关，可能会导致搜索不到链接，可以考虑注释掉；IE可能会阻止点击链接之后的弹出窗口，Allow下就行了。

hsjzfling

原帖由 kasimxiao 于 2009-4-9 18:05 发表
SystemUtil.Run "iexplore","www.google.com"
Browser("Google").Page("Google").WebEdit("q").Set "testing"
Browser("Google").Page("Google").WebEdit("q").Submit

For i = 0 to 9
        Browser("Google").Page ...

不错，我之前都还没注意到class属性

hsjzfling

列出候选框确实是用了Ajax.....但是这个和LZ的需求有啥关系呢。。。LZ并不是要去候选框中选取值，而是点了搜索之后去找搜索结果，貌似这个和Ajax没什么关系了吧。

就这个列出候选框而言，如果要去选取候选结果那也不难，Ajax带来的问题也不大，QTP能很好的帮助我们做到。

hsjzfling

1. 论坛上每个人都可能成为老师。本着一事不烦二主的原则，还是请你帮忙解释下吧，实在不理解点击search刷新页面之后和Ajax还有什么关系。
2. 网络延时无处不在，和Ajax也扯不上啥关系吧。网络延时大那就去修改下配置中对象同步时间与页面等待的时间好了。
3. 本人测试下来，确实没有遇到你所提到的问题。你如果遇到了，还请帮忙指出来。

hsjzfling

谢谢回答。

关于Ajax的异步运行我也略微知道一些。但据我所知，google点击搜索刷新页面之后并没有做异步处理。。。

你在9F中提到"输入test后，会列出候选框"这个大家都知道用了Ajax，但无视掉候选框直接点搜索后刷新页面了也还用了Ajax做异步处理么？

peterz

使用DOM编程。我遇到过这种问题，已经解决

lijian422202

看了半天，不知道shanxi在说什么，你说的完全和LZ的问题没有关系。在这个测试中是不存在AJAX的问题的。hsjzfling是正确的回答了LZ的问题。

解决问题才是王道。不要扯到一些和LZ没有关系的技术点。

gongcoco

二楼的这段代码能否精简一下

cswalkman

顶一个

kpkeys

请教一下Browser("Google").Page("Google").Link("class:=l","index:="&i).Click 中
class:=L是是么含义？class这个属性很少能找到相关资料。 如果搜不到符合条件的就会报错，如何解决？

vikesgao

收藏一个,多谢

vikesgao

澳门的穿校服的美女

jino007

Browser("Google").Page("Google").Link("class:=l","index:="&i).Click 我用Spy 识别连接 没有Class和Index这两个属性哦

lyscser

Browser("Google").Page("Google").Link("class:=l","index:="&i).Click

有必要非要加上class属性么？