51Testing软件测试论坛

标题: QTP描述行编程问题 [打印本页]

作者: wolfran 时间: 2008-5-13 15:03
标题: QTP描述行编程问题
Browser("name:=ff").Page("name:=ibm t70").Link("text:=ibm").Click

我在对象库中把录制的对象都删掉了,为什么我写的这条代码第1条都过不去,能帮我看看有什么问题吗?
还有就是我想问下,因为没次的link text都是在变的,我怎么样取到这些link 并且Click它!

作者: zhyb_2008 时间: 2008-5-13 15:23
报什么错误?
如果是不能识别对象,那可能是因为你删多了.还需要有一个唯一识别那个LINK的属性.
如果是其他错误,试试把那个LINK的文本写入到表里,再从表里读一下那个LINK?

作者: zte_boy 时间: 2008-5-13 15:27
用ChildObjects取出Page中所有类型为Link的对象
做个循环，逐个点击

作者: walker1020 时间: 2008-5-13 22:13
先看看 QTP报告什么错误，然后根据错误信息区修改吧？是对象不存在，还是对象不唯一？

作者: msnshow 时间: 2008-5-16 14:29
看看这段代码，应该你就明白了

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu.com","C:\Program Files\Internet Explorer\IEXPLORE.EXE","open"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "qtp"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click
Browser("百度一下，你就知道").Page("百度搜索_qtp").Sync

' 定义一个空对象
Dim RecordObjec
set RecordObject=Description.Create()

' 给上面定义的空对象，添加一个html tag 属性，属性值为A
RecordObject("html tag").value="A"

Dim Recordlist
set Recordlist=Browser("百度一下，你就知道").Page("百度搜索_qtp").childobjects(RecordObject)
listcount=Recordlist.count
msgbox listcount

'Recordlist(14).click

keywordExist=Recordlist(14).GetROProperty("text")

msgbox keywordExist

returnNum=Instr(1,keywordExist,"qtp",1)

msgbox returnNum

If returnNum=0 Then
      Reporter.ReportEvent 1,"Search result check","Fail"
      Browser("百度一下，你就知道").close
      ExitAction(0)
      else
      Reporter.ReportEvent 0,"Search result check","OK"
      Browser("百度一下，你就知道").close
      ExitAction(1)

End If

Browser("百度一下，你就知道").close

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)