51Testing软件测试论坛

标题: 谁可以发一个“注册页面和登陆页面”qtp测试脚本 [打印本页]

作者: lg123p 时间: 2008-8-4 17:28
标题: 谁可以发一个“注册页面和登陆页面”qtp测试脚本
谁可以发一个“注册页面和登陆页面”qtp测试脚本啊？
不是纯录制的脚本，是通过修改后把各种情况都考虑好的脚本。

希望哪位好心人发一下谢谢

作者: lg123p 时间: 2008-8-4 17:36
我想很多新手也会很需要这个吧，发一给我们参考一下至少有个思路，这样才有个方向感

作者: hyi 时间: 2008-8-4 17:36
BS OR CS???

作者: lg123p 时间: 2008-8-4 17:36
是BS的

作者: lg123p 时间: 2008-8-4 17:43
标题: 回复 3# 的帖子
BS
你有吗，感谢发一份吧

作者: lg123p 时间: 2008-8-4 21:45
没有人有吗？？再次感谢有的并且能共享的发一份吧

作者: zte_boy 时间: 2008-8-4 21:48
其实脚本有什么呢，登录的脚本无非就是三行代码，关键在不同的输入状况下，如何判断登录是否成功

作者: lg123p 时间: 2008-8-4 21:52
对啊我就是要不同的条件下登录不成功的情况下的脚本

我不是说明了么，不是要纯录制的脚本

我想要的是比如注册的时候不合法的用户名不合法的密码不合法的邮箱名格式
等这些情况的脚本

谢谢

作者: Tao1890 时间: 2008-8-5 00:17
支持啊~最近也在研究这个，很需要这方面的资料。。

作者: 423799223 时间: 2008-8-5 15:05
我觉得这些都不难只是增加一些IF判断而已

作者: zrg9399 时间: 2008-8-5 17:28
Browser.Page.WebEdit("DA

oginName").Set DataTable("usename", dtLocalSheet)
Browser.Page.WebEdit("DA

oginPwd").DataTable("password", dtLocalSheet)"
Browser.Page.WebButton("登录系统").Click
Browser.Page.WebElement.Check CheckPoint("登陆情况！")
把检查点也要参数化，与username和pw对应

作者: zhengpeipei 时间: 2009-6-4 17:06
这个太简单了点.....

作者: hbycyf123 时间: 2012-8-21 20:07
Dim right_str,error_str
'num=DataTable.GetSheet("Global").GetRowCount
'For i=1 to num
Browser("搜狐社区，中文第一社区-club.sohu.com").Navigate("http://club.sohu.com/")
Browser("搜狐社区，中文第一社区-club.sohu.com").Page("搜狐社区，中文第一社区-club.sohu.com").WebEdit("email").Set DataTable("username", dtGlobalSheet)
Browser("搜狐社区，中文第一社区-club.sohu.com").Page("搜狐社区，中文第一社区-club.sohu.com").webedit("password").SetSecure DataTable("EncryptedText", dtGlobalSheet)
Browser("搜狐社区，中文第一社区-club.sohu.com").Page("搜狐社区，中文第一社区-club.sohu.com").webbutton("登录").Click
wait(3)
right_str=Browser("搜狐社区，中文第一社区-club.sohu.com").Page("搜狐社区，中文第一社区-club.sohu.com").WebElement("tewtewtet").Exist
error_str=Browser("搜狐社区，中文第一社区-club.sohu.com").Page("搜狐社区，中文第一社区-club.sohu.com").WebElement("用户名或密码错误").Exist
If right_str Then
msgbox"登录成功"
Browser("搜狐社区，中文第一社区-club.sohu.com_2").Page("搜狐社区，中文第一社区-club.sohu.com").Link("退出").Click
elseif error_str then
msgbox"登录失败"
End If

作者: hbycyf123 时间: 2012-8-21 20:09
Dim istatus
Dim text1
SystemUtil.Run "D:/Program Files/Mercury Interactive/QuickTest Professional/samples/flight/app/flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set DataTable("p_Text", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").SetSecure "482a67de313480a4f613a9f60fbd2a8651b05396"
istatus=DataTable("status",dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
If  Dialog("Login").Dialog("Flight Reservations").Exist Then //判断第三方界面是否存在，即错误警告界面
   text1=Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please").GetROProperty("Text")                               //存在获取界面的Text值赋予text1
if text1= istatus then                            //如果Text是预期结果的值，打印text1
   Reporter.ReportEvent micPass, "失败",text1
      else
      Reporter.ReportEvent micFail,"异常","有错误"          // 否则异常
end if
wait(2) //可有可无
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click  //关掉错误警告界面
Dialog("Login").WinButton("Cancel").Click                            //关掉本次登录界面，便于下一个循环
else
  Reporter.ReportEvent micPass, "成功","登录成功"                      //错误警告界面不存在，则登录成功
  Window("Flight Reservation").Close
End If

作者: louqqson008 时间: 2012-8-22 14:07
这个不错

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