寻找QTP高手

fanyw

请问高手,这个脚本如何写了手工编写,这个脚本是登陆系统从队列查询中打开影象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

1，什么是 QTP高手？
2，“手工编写” 是什么意思？ 你说的是 描述性编程吗？还是 直接在 Expert View里面 写脚本？
3，“用函数控制” 是什么意思？

overfly

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

billygao

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

楼上的写的可能不对。setsecure.........

fanyw

谢谢！大家给我的思路，我在试试看，

walker1020

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