51Testing软件测试论坛

标题: 新人问题QTP如何用VBS启动自带的flight程序！？ [打印本页]

作者: show_wk 时间: 2009-12-8 13:46
标题: 新人问题QTP如何用VBS启动自带的flight程序！？
我想写一个测试flight登陆过程的脚本，循环测试
请问如何用vbs启动
附上我写的脚本
有问题请帮忙指出
谢谢！！

Dim i
i=0
While i<4
‘ 这个应该如何启动
Dialog("Login").WinEdit("Agent Name:").Set DataTable("p_Text1", dtGlobalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure "4b1dd1987f5ced17678ae7dd3b1f59bee05690b3"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Activate
window("Flight Reservation").Close
i=i+1
Wend

[ 本帖最后由 show_wk 于 2009-12-8 13:48 编辑 ]

作者: liuxl 时间: 2009-12-8 16:13
密码那里可以用set或者type方法，方便参数化
还有设置脚本运行次数是这样的：在file——》settings——》run里设置运行次数，脚本如下：

Window("Flight Reservation").Activate
Dialog("Login").WinEdit("Agent Name:").Set DataTable("p_Text1", dtGlobalSheet)
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").Set DataTable("Pwd",dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
window("Flight Reservation").Close

只需要在数据表中设置数据就好

作者: shadowma 时间: 2009-12-8 16:15
不太明白你的问题
你如果想要引入VBS文件来执行测试，方法如下
1，将你要实现的功能写成一个function，保存为VBS
2，在QTP中加入VBS资源文件
3，在专家视图中调用那个函数

如果你是想要通过VB来启动QTP来执行你的测试
参见QTP Automation reference文档

作者: show_wk 时间: 2009-12-8 17:02

原帖由 liuxl 于 2009-12-8 16:13 发表
密码那里可以用set或者type方法，方便参数化
还有设置脚本运行次数是这样的：在file——》settings——》run里设置运行次数，脚本如下：

Window("Flight Reservation").Activate
Dialog("Login").WinEdit("Agen ...

谢谢！我会试一试！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)