Browser("用户登录").Page("WAP PAMS管理平台").Frame("main_7").Link("116test").SetTOProperty "text","116test"&a
wait 2
Browser("用户登录").Page("WAP PAMS管理平台").Frame("main_7").Link("116test").Click

备注:重新设置属性后,Link("116test")这个不能变

Browser("渠道管理系统").Page("渠道管理系统").Link("前台展示").Click
For i=1 to 10

 datatable.setcurrentrow(i)
Browser("渠道管理系统").Page("渠道管理系统_2").WebButton("新增").Click
Browser("渠道管理系统_2").Page("渠道管理系统").WebEdit("title").Set "测试网站动态"&i
 datatable.value("wangzhandongtai","Global")="测试网站动态"&i&"  "
Browser("渠道管理系统_2").Page("渠道管理系统").WebEdit("url").Set "http://www.baidu.com"
wait 1
Browser("渠道管理系统_2").Page("渠道管理系统").WebButton("保  存").Click
Browser("渠道管理系统_2").Page("渠道管理系统_2").WebButton("关  闭").Click
Browser("渠道管理系统").Page("渠道管理系统_3").Link("成功案例").Click
Browser("渠道管理系统").Page("渠道管理系统_4").WebButton("新增").Click
Browser("渠道管理系统_2").Page("渠道管理系统_3").WebEdit("title").Set "测试成功案例"&i
datatable.value("chenggonganli","Global")="测试成功案例"&i&"  "
Browser("渠道管理系统_2").Page("渠道管理系统_3").WebEdit("url").Set "http://www.sina.com"
wait 1
Browser("渠道管理系统_2").Page("渠道管理系统_3").WebButton("保  存").Click
Browser("渠道管理系统_2").Page("渠道管理系统_4").WebButton("关  闭").Click
Browser("渠道管理系统").Page("渠道管理系统_5").Link("渠道商展示").Click
Browser("渠道管理系统").Page("渠道管理系统_6").WebButton("新增").Click
Browser("渠道管理系统_2").Page("渠道管理系统_5").WebEdit("title").Set "测试渠道商展示"&i
datatable.value("qudaoshangzhanshi","Global")="测试渠道商展示"&i&"  "
Browser("渠道管理系统_2").Page("渠道管理系统_5").WebEdit("url").Set "http://www.google.com"
wait 1
Browser("渠道管理系统_2").Page("渠道管理系统_5").WebButton("保  存").Click
Browser("渠道管理系统_2").Page("渠道管理系统_6").WebButton("关  闭").Click
Browser("渠道管理系统").Page("渠道管理系统_6").Link("网站动态").Click

SystemUtil.Run "iexplore.exe","","C:\Documents and Settings\yaphon\桌面",""

Browser("Browser").Navigate "http://agent.tootoo.com/TQSChannel/login/index.action"

Browser("沱沱网 - 渠道代理 渠道推广 渠道商管理").Page("沱沱网 - 渠道代理 渠道推广 渠道商管理").Link("测试网站动态2_2").Check CheckPoint("测试网站动态2_2")
Browser("沱沱网 - 渠道代理 渠道推广 渠道商管理").Page("沱沱网 - 渠道代理 渠道推广 渠道商管理").Link("测试成功案例2_2").Check CheckPoint("测试成功案例2_2")
'a=browser("沱沱网 - 渠道代理 渠道推广 渠道商管理").Page("沱沱网 - 渠道代理 渠道推广 渠道商管理").Link("测试渠道商展示2_2").GetROProperty("innertext")

Browser("沱沱网 - 渠道代理 渠道推广 渠道商管理").Page("沱沱网 - 渠道代理 渠道推广 渠道商管理").Link("测试渠道商展示2_2").Check CheckPoint("测试渠道商展示2_2")
Browser("沱沱网 - 渠道代理 渠道推广 渠道商管理").Close
Next

datatable.Export ("d:/test.xls")
Browser("渠道管理系统").Page("渠道管理系统_7").Sync

SystemUtil.Run "iexplore.exe","","C:\Documents and Settings\yaphon\桌面",""
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://www.sina.com/"

For i=0 to 29

Browser("渠道管理系统").Page("渠道管理系统").WebList("model.status").Select "制作中"
Browser("渠道管理系统").Page("渠道管理系统").WebButton("查 询").Click
Browser("渠道管理系统").Page("渠道管理系统_2").SetTOProperty "index",i
Browser("渠道管理系统").Page("渠道管理系统_2").Link("详细").Click
Browser("渠道管理系统_2").Page("渠道管理系统").Frame("picUpload").WebFile("picfile").Set "D:\固定位图片\4 160×200.JPG"
Browser("渠道管理系统_2").Page("渠道管理系统").Frame("picUpload").WebButton("上传").Click
Browser("渠道管理系统_2").Page("渠道管理系统").WebButton("确定").Click
Browser("渠道管理系统_2").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("渠道管理系统").Page("渠道管理系统").Sync
Next

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次,呵呵

Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "mercury"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "4626c4c7cf177e44b1af1ac2305e3bb9f0f7ba2b"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 25,6
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select "Frankfurt"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toPort").Select "London"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Output CheckPoint("fromPort_2")
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toPort").Output CheckPoint("toPort_2")
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 41,8
a=DataTable("output_f", dtGlobalSheet)
msgbox  a
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 46,16
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set DataTable("output_f", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set DataTable("ouput_t", dtGlobalSheet)
wait 3
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "123456"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 44,10
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Sync

坚持不懈！与遗忘和懒惰作斗争中……

Dim i
For i=1 to 6
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Image("01b").FireEvent "onmouseover"
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Image("01b").Click
IndexNum=randomnumber(0,5)
msgbox IndexNum
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find").WebList("country").Select "#"&IndexNum
wait 2.5
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find").WebButton("Next").Click
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find_3").Image("logo_test").Click
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Sync
Next

循环了6次，主要看每次的随即数有什么变化……

a=environment.value("ProductDir")
msgbox "ProductDir is:"&a

ActionIteration       当前运行的操作循环
ControllerHostName    Controller计算机的名称。只有在从LoadRunner Controller中作为GUI                           Vusery运行时该变量才相关
GroupName             运行场景中组的名称.只有在从LoadRunner Controller中作为GUI                               Vusery运行时该变量才相关
LocalHostName         本地主机名
OS                    操作系统
OSVersion             操作系统版本
ProductDir            安装该产品的文件夹路径
ProductName           产品名
ProductVer            产品版本
ResultDir             当前测试结果所在文件夹路径
SystemTempDir         系统临时路径
Scenariold            场景的标识编号.只有在从LoadRunner Controller中作为GUI                                   Vusery运行时该变量才相关
TestIteration         当前运行的测试循环
TestDir               测试所在文件夹的路径
TestName              测试的名称
UpdatingActiveScreen  指明在更新运行过程中是否更新Active Screen中的图象和值
UpdatingCheckpoints   指明在更新运行过程中是否更新检查点。
UpdatingTODescrīptions指明在更新运行过程中是否更新用于标识对象的属性集。
UserName              Windows登陆用户
VuserId               负载下的Vuser标识。只有在从LoadRunner Controller中作为GUI                               Vusery运行时该变量才相关