工作项目经验-QTP脚本

Dim a,b,c
Browser("渠道代理中心").Page("渠道代理中心").Link("新增客户订单").Click
Browser("渠道代理中心").Page("渠道代理中心").WebButton("下订单").Click
Browser("渠道代理中心").Page("渠道代理中心_2").WebButton("新  增").Click
a=Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productDesc").GetROProperty("items count")
Browser("渠道代理中心_2").Close
For i=0 TO a-1
 Browser("渠道代理中心").Page("渠道代理中心_2").WebButton("新  增").Click
 Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productDesc").Select "#"&i
 b=Browser("渠道代理中心_2").Page("渠道代理中心").WebList("pageName").GetROProperty("items count")
  Browser("渠道代理中心_2").Close
For j=0 to b-1
    Browser("渠道代理中心").Page("渠道代理中心_2").WebButton("新  增").Click
    Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productDesc").Select "#"&i
 Browser("渠道代理中心_2").Page("渠道代理中心").WebList("pageName").Select "#"&j
 c=Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productId").GetROProperty("items count")
 Browser("渠道代理中心_2").Close
For k=0 to c-1
 Browser("渠道代理中心").Page("渠道代理中心_2").WebButton("新  增").Click
 Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productDesc").Select "#"&i
 Browser("渠道代理中心_2").Page("渠道代理中心").WebList("pageName").Select "#"&j
 Browser("渠道代理中心_2").Page("渠道代理中心").WebList("productId").Select "#"&k
 Browser("渠道代理中心_2").Page("渠道代理中心").WebEdit("beginDate").Set "2017-05-24"
 Browser("渠道代理中心_2").Page("渠道代理中心").WebEdit("endDate").Set "2017-05-26"
 Browser("渠道代理中心_2").Page("渠道代理中心").Frame("picUpload").WebFile("picfile").Set "D:\固定位图片\160×215.JPG"
 Browser("渠道代理中心_2").Page("渠道代理中心").Frame("picUpload").WebButton("上传").Click
 Browser("渠道代理中心_2").Page("渠道代理中心").WebEdit("content").Set "asdzxc"
 Browser("渠道代理中心_2").Page("渠道代理中心").WebEdit("relatedUrl").Set "http://www.baidu.com"
 Browser("渠道代理中心_2").Page("渠道代理中心").WebButton("确定").Click
 Browser("渠道代理中心_2").Page("渠道代理中心_2").WebButton("关闭窗口").Click
 wait 1
Next
next
next
Browser("渠道代理中心").Page("渠道代理中心_2").WebButton("新  增").Click
Browser("渠道代理中心").Page("渠道代理中心_4").Link("新增客户订单").Click
Browser("渠道代理中心").Page("渠道代理中心").Sync

实现了3个下拉列表框的组合选择,循环68次,呵呵