哈哈哈你的 发表于 2015-3-24 21:26:43

QTP功能测试 求教 谢谢

用QTP自动化测试 WEB型网站,测试登录注册功能。当登录账号或者密码错误时,会弹出对话框。要求当我使用测试用例数据时,正确的数据能运行下去,当有无效的数据时能够QTP自己点击那个对话框使能够运行下去。这是测试注册功能的,我已经参数化了,但没有设置检查点,也有测试数据在DataTable里了,就是回放时出现对话框不能运行下去。求指导如果看不懂我说的但会QTP的大哥大姐,求联系求教。万分感谢
        Browser("电子商城").Page("电子商城").Link("注册").Click
        Browser("电子商城").Page("电子商城_2").WebEdit("name").Set DataTable("departure", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("passwordOne").SetSecure DataTable("repassword", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("reallyName").Set DataTable("Rn", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("profession").Set DataTable("pr", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("email").Set DataTable("em", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("question").Set DataTable("que", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").WebEdit("result").Set DataTable("answer", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_2").Image("save").Click 29,12
        Browser("电子商城").Page("电子商城_3").WebEdit("name").Set DataTable("dlm", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_3").WebEdit("password").SetSecure DataTable("dlmm", dtGlobalSheet)
        Browser("电子商城").Page("电子商城_3").Image("fg-land").Click 29,11
        Browser("电子商城").Page("电子商城_3").Link("安全退出").Click
        Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
        Browser("电子商城").Page("电子商城_3").Sync
        Browser("电子商城").CloseAllTabs

zhutoudd 发表于 2015-3-25 02:23:09

怎么记住这个贴???

土土的豆豆 发表于 2015-3-25 09:53:03

看看对象框是否能定位和识别正确,要正确加载并识别才能继续run啊~
另外,活动窗口/对话框也得切换了哦

哈哈哈你的 发表于 2015-3-25 11:05:29

土土的豆豆 发表于 2015-3-25 09:53
看看对象框是否能定位和识别正确,要正确加载并识别才能继续run啊~
另外,活动窗口/对话框也得切换了哦

亲,我就是不会怎么加载,识别。。。不会写代码,有没有什么万能代码能用的

q464907380 发表于 2015-3-26 00:45:08

你把弹出来的错误提示框添加到对象仓库,在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
比如
For i=1 to DataTable.GetSheet(1).GetRowCount
If Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Exist Then
          Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
         '继续执行的代码
       Else
          '继续执行的代码
       End if
      Next

哈哈哈你的 发表于 2015-3-26 10:51:19

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库,在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

不知对不对,先谢谢您,等一下试下

哈哈哈你的 发表于 2015-3-26 10:52:51

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库,在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

还想问怎么错误提示框添加到对象库啊,能详细点吗

哈哈哈你的 发表于 2015-3-26 13:50:59

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库,在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

Browser("电子商城").Page("电子商城").Image("fg-land").Check CheckPoint("fg-land_2")
Browser("电子商城").Page("电子商城").WebEdit("name").Set DataTable("p_name", dtGlobalSheet)
Browser("电子商城").Page("电子商城").WebEdit("password").SetSecure DataTable("p_password", dtGlobalSheet)
Browser("电子商城").Page("电子商城").Image("fg-land").Click 3, 12
IfWindow("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").exist Then
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
else
Browser("电子商城").Page("电子商城_2").Link("安全退出").Click
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Browser("电子商城").Page("电子商城_2").Sync
Browser("电子商城").CloseAllTabs
End If

DataTable
p_name p_password
1         1
4         1
5641      1
6         1
5         6
其中56411 这组数据是错误的,就是没有这账号密码,其他能运行, 我没有加 for那条语句 ,就加了个判断语句,能算是自动化测试吗

哈哈哈你的 发表于 2015-3-26 14:02:24

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库,在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

Browser("电子商城").Page("电子商城").Image("fg-land").Check CheckPoint("fg-land_2")
Browser("电子商城").Page("电子商城").WebEdit("name").Set DataTable("p_name", dtGlobalSheet)
Browser("电子商城").Page("电子商城").WebEdit("password").SetSecure DataTable("p_password", dtGlobalSheet)
Browser("电子商城").Page("电子商城").Image("fg-land").Click 3, 12
For i=0 to datatable.GetSheet(action1).GetRowCount
IfWindow("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").exist Then
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
else
Browser("电子商城").Page("电子商城_2").Link("安全退出").Click
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Browser("电子商城").Page("电子商城_2").Sync
Browser("电子商城").CloseAllTabs
End If
next
是这样吗。但加了FOR循环会出现The DataTable.GetSheet operation failed. Specify the sheet using a text string or numerical index value。
如果不要FOR语句 只要判断语句就可以了 但这算是自动化测试吗
页: [1]
查看完整版本: QTP功能测试 求教 谢谢