|
脚本:(主要是想不重复头尾部分,中间部分循环完成参数依次读取和这个参数对应值的输出,查看是否正确。但是设置的for语句没有作用,那又该如何完成呢?)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "xx"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "22"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 47,2
For j=1 to 2
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select DataTable("p_Item", dtGlobalSheet) '参数的读取
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 47,13
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury_2").Output CheckPoint("Select a Flight: Mercury_2") ‘对应值的输出
‘j=j+1
Next
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 42,18
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "44"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "444"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "4444444444444444"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 76,13
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("Logout").Click
参数及输出值在data tabel里的情况如图
[ 本帖最后由 snnylip 于 2007-7-26 09:05 编辑 ] |
|