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

lg123p

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

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

lg123p

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

hyi

BS OR CS???

lg123p

是BS的

lg123p

BS
你有吗，感谢发一份吧

lg123p

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

zte_boy

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

lg123p

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

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

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

谢谢

Tao1890

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

423799223

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

zrg9399

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

zhengpeipei

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

hbycyf123

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

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

这个不错