QTP自带的“飞机票订购系统”中的java 日期控件的录制

rivermen

我大概是这么写的：

Dim tMonth,tDay

Browser("Find a Flight: Mercury").Page("Welcome: Mercury Tours").Sync
Browser("Find a Flight: Mercury").Page("Welcome: Mercury Tours").WebEdit("userName").Set "jie.wu"
Browser("Find a Flight: Mercury").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "46443445ec2b560857053112a57f709c01cd4e25fbf4"
Browser("Find a Flight: Mercury").Page("Welcome: Mercury Tours").Image("Sign-In").Click 26,4


Browser("Find a Flight: Mercury").Page("Welcome: Mercury Tours").Sync
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select "oneway"
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromPort").Select "Frankfurt"
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WinObject("非活动控件").Click 63,10

wait 5
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WinButton("View Calendar").Click
wait 5

Window("Select Departure Date").RunAnalog "Track11"


                If not window("Select Departure Date").Exist  Then
                 Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WinButton("View Calendar").Click
                End If
Window("Select Departure Date").WinComboBox("ComboBox").Select 7



Window("Select Departure Date").WinButton("day").SetTOProperty "text" ,"16"

Window("Select Departure Date").WinButton("day").Click
wait 2

'On error


Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("fromMonth").Output CheckPoint("fromMonth")
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("fromDay").Output CheckPoint("fromDay")

tMonth=Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("fromMonth").GetROProperty ("value")
tDay=Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("fromDay").GetROProperty ("value")


msgbox tMonth & tDay
reporter.ReportEvent 2,"报告日期",tMonth & "月" & tDay & "日"
stop

Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("fromDay").Output CheckPoint("fromDay_2")
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("toPort").Select "Frankfurt"
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("toMonth").Select "February"
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebList("toDay").Select "31"
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury_2").WebRadioGroup("servClass").Select "Business"


其中有些疑问：
1. java Applet window 中中选择“月份”，我采用的是模拟鼠标轨迹，
Window("Select Departure Date").RunAnalog "Track11"
只是点击选中该combox，让其获得焦点
然后用方向键选择（combox里的选项内容用spy检测到的是韩文），不知道有没有别的更好的方法

2. java Applet window 有时候在wait 的时候，会自动关闭，不知道什么原因？
我采用的是：        If not window("Select Departure Date").Exist  Then
                 Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WinButton("View Calendar").Click
                End If

3. 选择“日”：
Window("Select Departure Date").WinButton("day").SetTOProperty "text" ,"16"

Window("Select Departure Date").WinButton("day").Click
这样就只需要添加一个winbutton就可以了，不需要把其他30个都包括进去了。
当然如果用描述性编程的话，可能更省力，有人愿意尝试吗？

rivermen

继续改造：
第一个 wait 5
改为：
Browser("Find a Flight: Mercury").WinStatusBar("msctls_statusbar32").WaitProperty "text", "小应用程序 showCalendar started", 10000

使用同步点技术

zoeHuang

搂主是不是没有javaaddin，如果有java add in, WinButton("View Calendar")， 应该是javabutton("view calendar").

我录制的：

Browser("Welcome: Mercury Tours_2").Page("Find a Flight: Mercury").JavaApplet("showCalendar").JavaButton("View Calendar").Click

19thangel

为什么我加载了java-addin 还是WinButton("View Calendar")

囧

rivermen

我确实没有相关的插件，我只是想说明有些不关键的步骤，即便没有相应的插件也可以通过其他技术来实现测试