描述性编程写的代码后半部分谁来帮我完成一下、谢谢！

L.E.O

刚在实验用描述性编程写的一个测试代码就是最后退出那一条实在是不知怎么写了。。那位能帮个忙啊。。。

1. SystemUtil.Run "D:\Program Files\QuickTest Professional\samples\flight\app\flight4a.exe"
   
2. WinObject("nativeclass:=#32770","text:=Login").WinObject("nativeclass:=Edit","attached text:=Agent Name:").Type "admin"
   
3. WinObject("nativeclass:=#32770","text:=Login").WinObject("nativeclass:=Edit","attached text:=Password:").Type "mercury"
   
4. WinObject("nativeclass:=#32770","text:=Login").WinObject("nativeclass:=Button","text:=OK").Click

复制代码

最后在一条退出的代码应该怎么写？

如何将Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"这条代码编程用描述性编程写法、使得完全不依赖对象库。。。

还有用Object SPY抓去“File”时只是显示"Window:Flight Reservation"而不是WinMenu呢？

难道是我没抓好？

求解、谢谢！

TIB

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

L.E.O

原帖由 TIB 于 2010-8-23 21:55 发表
Window("text:=Flight Reservation").WinMenu("menuobjtype:=2").Select "File;Exit"

谢谢！

还有用Object SPY抓去“File”时只是显示"Window:Flight Reservation"而不是WinMenu呢？这是怎么回事呢？

yahuu

WinMenu 的select方法可以使用index
.Select "<Item 1>;<Item 4>"