51Testing软件测试论坛

标题: 寻找QTP高手 [打印本页]

作者: fanyw 时间: 2007-8-8 23:02
标题: 寻找QTP高手
请问高手,这个脚本如何写了手工编写,这个脚本是登陆系统从队列查询中打开影象TAB页面,如何用函数控制

Browser(" ERP管理系统").Page("ERP管理系统").WebEdit("login_uid").Set "GHB0701"
Browser("ERP管理系统").Page("ERP管理系统").WebEdit("login_upwd").SetSecure "46b87274770ebe756508b83f07d646263f82c58c"
Browser("ERP管理系统").Page("ERP管理系统").Image("submitBtn").FireEvent "onmouseover"
Browser("ERP管理系统").Page("ERP管理系统").Image("submitBtn").Click 57,55
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("left").Link("贷款申请").Click
wait(2)
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("left_2").Link("收件箱").Click
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("businessfrm").WebList("listName").Select "客户申请"
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("businessfrm").WebList("listName").Click
BrowserERP管理系统").Page("ERP管理系统(QA)").Frame("businessfrm").WebButton("查询").Click
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("businessfrm_2").WebElement("WebTable").Click
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("businessfrm_2").WebButton("浏览信息").Click
Browser("ERP管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定"）。Click
Browser("ERP管理系统").Page("ERP管理系统(QA)").Frame("tabsFrame").Link("生产管理）。Click
Browser("ERP管理系统").Page("ERP管理系统(QA)").Sync

[ 本帖最后由 fanyw 于 2007-8-12 12:54 编辑 ]

作者: walker1020 时间: 2007-8-9 00:08
标题: 请问楼主
1，什么是 QTP高手？
2，“手工编写” 是什么意思？你说的是描述性编程吗？还是直接在 Expert View里面写脚本？
3，“用函数控制” 是什么意思？

作者: overfly 时间: 2007-8-9 00:34
其实需要加一些statement语句吧，应该是判断每一块语句执行完之后是不是能得到预计的结果吧？
做完登陆动作之后判断Browser("兴业银行零售信贷系统").Page("兴业银行个贷系统(QA)")是不是exist，不存在就表示登陆不成功，然后就report出来，并且ExitActionIteration等等。
其实就是一些if else判断吧

作者: billygao 时间: 2007-8-9 06:51
标题: 不知道我对你的问题理解得对不对，大家别向我吐口水啊！
Dim main_frame, sub_page1, sub_page2, username, password

main_frame = "兴业银行零售信贷系统"
sub_page1 = main_frame
sub_page2 = "兴业银行个贷系统(QA)"
link1 = "贷款申请"
username = "GHB0701"
password = "*******"

Browser(main_frame).Page(sub_page1).WebEdit("login_uid").Set username
Browser(main_frame).Page(sub_page1).WebEdit("login_upwd").SetSecure password
Browser(main_frame).Page(sub_page1).Image("submitBtn").FireEvent "onmouseover"
Browser(main_frame).Page(sub_page1).Image("submitBtn").Click 57,55
Browser(main_frame).Page(sub_page2).Frame("left").Link(link1).Click

依此类推

原理很简单，就是把你要测试的页面里的object都declare成variable，这样的话，对于编写类似页面的测试脚本时，可以reuse，当然一些测试环节写成function，就可以更加简化code了

作者: qalead 时间: 2007-8-9 09:32
楼上的写的可能不对。setsecure.........

作者: fanyw 时间: 2007-8-12 12:55
标题: 回复 #4 billygao 的帖子
谢谢！大家给我的思路，我在试试看，

作者: walker1020 时间: 2007-8-12 15:22
qalead 说的对，#4 的 SetSecure 没有用对。Browser(main_frame).Page(sub_page1).WebEdit("login_upwd").SetSecure password 应该改为

Browser(main_frame).Page(sub_page1).WebEdit("login_upwd").Set password

或者是
e_pwd = Crypt.Encrypt (password )
Browser(main_frame).Page(sub_page1).WebEdit("login_upwd").SetSecure password

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