qtp录制ajax 下拉框 不成功解决方法

1.问题描述：

录制extjs 写的程序ajxa下拉框，录制时可以选择下拉框内容，但录制成功后，发现脚本里面值为空“”（此时选择的是点中下拉框中间，脚本中为webedit）,后来继续录制发现可以录制image.click(选中下拉框右边小箭头)

录制为image时，脚本如下，修改脚本，回放时，可以选取下拉框值，脚本执行无错误，

注： wait 5 ‘ 休眠等待5秒，由于ajax反应比较慢，多等待下

Dim wshShell 申明下，

wshShell.SendKeys  "{ENTER}" ，'表示是回车键录入 down为鼠标点下,

“'wshShell.SendKeys  "{DOWN}"”的个数为下拉框内容选项个数，^_^，自己猜想的，

2.设置环境，最好设置下

 

QTP默认录制方式是无法录制下拉菜单的，必须修改设置后再录制         修改设置如下：
        在tools -> web event recording configuration 点击custom settings... 展开Web objects，
        选种webelement，点击event -> add -> onmouseover 。并确定在record栏内，状态是enabled。
        然后再重新录制你的脚本。
        执行录制后的脚本，发现无法回放成功，这是因为脚本只录制了鼠标的onmouseover 事件，却没有录制click事
        件，所以脚本录制完后要手动添加click事件。（注意是click事件，^_^）

 

3.测试通过完整脚本如下：

 

Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Sync
Browser("特种设备生产企业评审管理系统").Navigate "http://192.168.18.2:8080/srms/main.jsp"
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Image("s").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Image("s_2").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Image("s_3").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Link("入库管理").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebButton("新增").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebEdit("batchid").Set "33"
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebEdit("inWareCode").Set "33"
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").Image("s").Click
 wait 5
 Dim wshShell
Set wshShell=CreateObject("WScript.Shell")
'wshShell.SendKeys "3"
'wshShell.SendKeys "5"
'wshShell.SendKeys "1"
'wshShell.SendKeys  "{DOWN}"
'wshShell.SendKeys  "{DOWN}"
'wshShell.SendKeys  "{DOWN}"
wshShell.SendKeys  "{ENTER}"

 ' Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebEdit("standard").Select "种类1"
  wait 5
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").Image("s_2").Click
  wait 5
   Dim wshShell2
Set wshShell2=CreateObject("WScript.Shell")
'wshShell.SendKeys "3"
'wshShell.SendKeys "5"
'wshShell.SendKeys "1"
wshShell2.SendKeys  "{DOWN}"
wshShell2.SendKeys  "{DOWN}"
wshShell2.SendKeys  "{DOWN}"
wshShell2.SendKeys  "{ENTER}"
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebButton("保存").Click
Browser("特种设备生产企业评审管理系统").Page("特种设备生产企业评审管理系统").Frame("Frame").WebButton("确定").Click