2009年8月7日学习QTP总结

上一篇 / 下一篇 2009-08-07 14:02:31 / 个人分类：QTP 总结

查看( 477 ) / 评论( 0 ) / 评分( 0 / 0 )

主要针对8月份第一周，编写QTP脚本时，遇到问题，解决问题的方法做以下总结
主要问题：

测试page，点击链接，弹出不同页面

通过"CreationTime" 来识别变化的page

Set Doc = Browser("CreationTime:=3").Page("index:=1").Object

测试page，翻页

判断"下一页"是否存在，若存在，执行"点击"操作，若不存在，循环结束
Function pageDown()
        linkValue= Browser("中国法律法规规章司法解释全库 - 北大法律信息网").Page("中国法律法规规章司法解释全库 - 北大法律信息网").Link("下一页").Exist
        msgbox linkValue
        If linkValue <> False Then
            Browser("中国法律法规规章司法解释全库 - 北大法律信息网").Page("中国法律法规规章司法解释全库 - 北大法律信息网").Link("下一页").Click
        End If
    pageDown = linkValue
End Function

页面"每十页"为一组，进行显示

采用描述性编程，进行识别
'一个属性无法识别对象，可以使用多个，本例子中，使用两个：text，height
sub pageDown
        strText= i+1    '第i+1页的值
        Set LinkDesc = Description.Create()
        Set LinkDesc1 = Description.Create()
        LinkDesc ("Text").Value = strText
        LinkDesc1("height").value = 16
        If i = 10 or i =20 or i =30 Then
            Browser("Browser").Page("所有城市酒店点评_旅游社区 - 携程旅行网_3").Link("8").Click
        else
            Browser("Browser").Page("所有城市酒店点评_旅游社区 - 携程旅行网").Link(LinkDesc,LinkDesc1).Click
        wait(5)
        End If
End Sub

测试page，获取tool tip 信息

使用DOM（Document Object Model）方法获取page 中的tip 信息
Sub writeHotelName()
        Set Doc = Browser("所有城市酒店点评_旅游社区 - 携程旅行网").Page("所有城市酒店点评_旅游社区 - 携程旅行网").object
        Dim TitleName(50)
        Dim i
        i = 0
        '循环获取page中的所有对象
        For Each element IN Doc.all
            TitleName1 = Element.title '获取标签名
            If TitleName1 <> "" Then
                TitleName(i) = TitleName1
                i = i +1
            End If
        Next
        For j = 21 to 40
        DataTable.Value("HotelName","Global") =TitleName(j)
        msgbox j
        Next
End Sub

收藏举报

TAG: QTP学习总结

查看全部评论