51Testing软件测试论坛

标题: 关于QTP 怎么录制 AJAX 动态填充内容 ? [打印本页]

作者: panrujing123 时间: 2013-3-5 13:24
标题: 关于QTP 怎么录制 AJAX 动态填充内容 ?
本帖最后由 panrujing123 于 2013-3-5 13:26 编辑

关于QTP 怎么录制 AJAX 动态填充内容 ? Web 应用中存在一个文本框，输入数字会动态显示出相对应的内容列表中。

作者: feiyunkai 时间: 2013-3-5 15:21
本帖最后由 feiyunkai 于 2013-3-5 15:43 编辑

'和百度搜索的下拉框有点类似，下面以百度搜索为例：
Set TestPage=Browser("title:=百度一下，你就知道","CreationTime:=0").Page("title:=百度一下，你就知道")
'判断是否已经打开百度首页，若未打开则使用IE浏览器打开百度首页
If  Not TestPage.Exist(1) Then
      SystemUtil.Run"iexplore","http://www.baidu.com"
      TestPage.Sync
End If
'搜索框输入字符 a
TestPage.WebEdit("name:=wd").set "a"
'将光标定位在输入框
TestPage.WebEdit("name:=wd").MiddleClick
'发送向下键，打开快速提示列表
Set wshShell = CreateObject("WScript.Shell")
            wshShell.SendKeys "{DOWN}"
Set wshShell =nothing
'循环打印各行数据
            RowCount=TestPage.WebTable("html id:=st").RowCount
            For i= 1 to RowCount
                     print " 第 "&i&" 行数据为："TestPage.WebTable("html id:=st").GetCellData(i,1)
            Next

            Browser("title:=百度一下，你就知道","CreationTime:=0").Close
Set TestPage=nothing

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