新闻详细

网站测试QTP利用文本检查点验证登录成功否

2010-04-07

Dim i
For  i=1 to DataTable.LocalSheet.GetRowCount
                
     username=datatable.LocalSheet.GetParameter("username").ValueByRow(i) 
     userpwd=datatable.LocalSheet.GetParameter("userpwd").ValueByRow(i) 
         
     Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!").WebEdit("ctl00$MemberBox1$MemberLogin1$").Set username
     Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!").WebEdit("ctl00$MemberBox1$MemberLogin1$_2").SetSecure userpwd
     Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!").WebButton("登陆").Click
     wait(2)
     If  Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!_2").Check (CheckPoint("loginok")) then  //检查点匹配是否成功
          Reporter.ReportEvent  micPass,username&"   "&userpwd, "第"&i&"个用户成功登录" 
          Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!_2").Link("退出").Click
    elseif  Browser("newtest1.jihe.la--聚聚呀!_2").Page("newtest1.jihe.la--聚聚呀!_2").Check (CheckPoint("loginfailed")) then
            Reporter.ReportEvent  micPass,username&"   "&userpwd,"第"&i&"个用户登录失败"
    else
            Reporter.ReportEvent  micPass,username&"   "&userpwd, "第"&i&"个用户登录异常"  
    end if

wait(1)
       

   next

‘----注：----

’  因在登录成功的页面中有图1界面，而登录失败中出现图2界面，登录成功中插入一个文本点“退出”插入点名称命名为“loginok"，

 ’ 而在登录失败中插入一个文本点“登录信息不正确”插入点名称命名为“loginfailed"

 ’ 外话哈哈，Easybug Bug管理系统也马上要结合QTP使用自动化回归做网站测试了

 图1

图2