谁可以发一个“注册页面和登陆页面”qtp测试脚本

lg123p 发表于 2008-8-4 17:28:20

谁可以发一个“注册页面和登陆页面”qtp测试脚本啊？
不是纯录制的脚本，是通过修改后把各种情况都考虑好的脚本。

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

lg123p 发表于 2008-8-4 17:36:10

我想很多新手也会很需要这个吧，发一给我们参考一下至少有个思路，这样才有个方向感

hyi 发表于 2008-8-4 17:36:14

BS OR CS???

lg123p 发表于 2008-8-4 17:36:47

是BS的

lg123p 发表于 2008-8-4 17:43:32

回复 3# 的帖子

BS
你有吗，感谢发一份吧

lg123p 发表于 2008-8-4 21:45:51

没有人有吗？？再次感谢有的并且能共享的发一份吧

zte_boy 发表于 2008-8-4 21:48:28

其实脚本有什么呢，登录的脚本无非就是三行代码，关键在不同的输入状况下，如何判断登录是否成功

lg123p 发表于 2008-8-4 21:52:27

对啊我就是要不同的条件下登录不成功的情况下的脚本

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

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

谢谢

Tao1890 发表于 2008-8-5 00:17:17

支持啊~最近也在研究这个，很需要这方面的资料。。

423799223 发表于 2008-8-5 15:05:56

我觉得这些都不难只是增加一些IF判断而已

zrg9399 发表于 2008-8-5 17:28:16

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

zhengpeipei 发表于 2009-6-4 17:06:27

这个太简单了点.....

hbycyf123 发表于 2012-8-21 20:07:04

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
Ifright_str Then
msgbox"登录成功"
Browser("搜狐社区，中文第一社区-club.sohu.com_2").Page("搜狐社区，中文第一社区-club.sohu.com").Link("退出").Click
elseif error_strthen
msgbox"登录失败"
End If

hbycyf123 发表于 2012-8-21 20:09:03

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
IfDialog("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:38

这个不错

页: [1]

51Testing软件测试论坛 's Archiver

谁可以发一个“注册页面和登陆页面”qtp测试脚本

回复 3# 的帖子