QTP描述行编程问题

wolfran

Browser("name:=ff").Page("name:=ibm t70").Link("text:=ibm").Click


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

zhyb_2008

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

zte_boy

用ChildObjects取出Page中所有类型为Link的对象
做个循环，逐个点击

walker1020

先看看 QTP报告什么错误，然后根据错误信息区修改吧？ 是对象不存在，还是对象不唯一？

msnshow

看看这段代码，应该你就明白了

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