Thursday, December 16, 2010

Descriptive Programming

Window("text:=Flight Reservation").WinMenu("menuobjtype:=2").Select "File;New Order"

Window("text:=Flight Reservation").ActiveX("acx_name:=MaskEdBox").Type "121`212"

Window("text:=Flight Reservation").WinComboBox("attached text:=Fly From:").Select "Denver"

Window("text:=Flight Reservation").WinComboBox("attached text:=Fly To:").Select "London"

Window("text:=Flight Reservation").WinButton("text:=FLIGHT").Click

Window("text:=Flight Reservation").Dialog("text:=Flights Table").WinList

("Class Name:=WinList").Select 1

Window("text:=Flight Reservation").Dialog("text:=Flights Table").WinButton("text:=OK").Click

Window("text:=Flight Reservation").WinEdit("attached text:=Name:","Index:=0").Set "srinivas"

Window("text:=Flight Reservation").WinEdit("attached text:=Tickets:","Index:=0").Set "3"

Window("text:=Flight Reservation").WinButton("text:=&Insert Order").Click

While Window("text:=Flight Reservation").ActiveX("text:=Insert Done...").Exist=false

wait 1

Wend