关于QTP 怎么录制 AJAX 动态填充内容 ?

panrujing123

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

feiyunkai

'和百度搜索的下拉框有点类似，下面以百度搜索为例：
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