关于QTP 怎么录制 AJAX 动态填充内容 ?
本帖最后由 panrujing123 于 2013-3-5 13:26 编辑关于QTP 怎么录制 AJAX 动态填充内容 ? Web 应用中存在一个文本框,输入数字会动态显示出相对应的内容列表中。 本帖最后由 feiyunkai 于 2013-3-5 15:43 编辑
'和百度搜索的下拉框有点类似,下面以百度搜索为例:
Set TestPage=Browser("title:=百度一下,你就知道","CreationTime:=0").Page("title:=百度一下,你就知道")
'判断是否已经打开百度首页,若未打开则使用IE浏览器打开百度首页
IfNot 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
页:
[1]