WEB登录页面

上一篇 / 下一篇  2017-09-12 15:00:19 / 个人分类:QTP小结

忙了大半天,终于写了个简单的登录页面,各种心酸。先保留着吧,待之后再逐渐完善。
''第一步:录制脚本
''场景一:正常登录
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b731ddf64049675e3036efaae17946f130"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
''场景二:用户名错误:提示user is disable
'
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liu1"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b732779b3975d5199ec769615e172da9b4"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
'
''场景三:密码错误:提示the password is invalid
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b732b79955a47f3da31704f5fceb600d09"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
''场景四:用户名和密码为空:提示 用户名不能为空
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
'
''场景五:密码为空:提示  密码不能为空
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
'
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs


'第二步:强化脚本
'Dim  iStatus
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set DataTable("username", dtLocalSheet)
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").Set DataTable("password", dtLocalSheet)
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
'wait 3
''Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'
'iStatus = DataTable("status", dtLocalSheet)
'If  iStatus ="登录成功"   Then 
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'End If
'
'If  iStatus="user is disable" Then 
'Reporter.ReportEvent micFail, "登陆", "user is disable"
'End  If
'
'If  iStatus="the password is invalid" Then 
'Reporter.ReportEvent micFail, "登陆", "the password is invalid"
'End  If
'
'If  iStatus="用户名不能为空" Then 
'Reporter.ReportEvent micFail, "登陆", "用户名不能为空"
'End  If
'
'If  iStatus="密码不能为空" Then 
'Reporter.ReportEvent micFail, "登陆", "密码不能为空"
'End  If
'
''Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
'wait 3

'第三步:读取datatable中所有数据

Dim  iStatus,iCount
'依次读取datatable中的值
iCount= DataTable.getSheet("Action1").GetRowCount
For  iCount=0 to iCount -1
    DataTable.GetSheet("Action1").SetNextRow

wait 3
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set DataTable("username", dtLocalSheet)
wait 2
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").Set DataTable("password", dtLocalSheet)
wait 2
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登  录").Click
wait 3

iStatus =DataTable("status", dtLocalSheet)
'登录成功后,关闭当前浏览器后重新打开登录页面
If  iStatus ="登录成功"   Then 
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
   Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
   SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://58.48.109.82/2014z08dfacdmsTest/bdf2.core.view.frame.Login.d"
End If

'其他异常情况的登录
If  iStatus="user is disable" Then 
Reporter.ReportEvent micFail, "登陆", "user is disable"
End  If

If  iStatus="the password is invalid" Then 
Reporter.ReportEvent micFail, "登陆", "the password is invalid"
End  If

If  iStatus="用户名不能为空" Then 
Reporter.ReportEvent micFail, "登陆", "用户名不能为空"
End  If

If  iStatus="密码不能为空" Then 
Reporter.ReportEvent micFail, "登陆", "密码不能为空"
End  If

wait 1

Next




TAG: QTP WEB登录页面

引用 删除 star后天   /   2018-11-18 16:26:43
5
liubin51testing的个人空间 引用 删除 liubin51testing   /   2017-09-13 09:03:29
1
 

评分:0

我来说两句

我的栏目

日历

« 2024-03-29  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 6173
  • 日志数: 10
  • 建立时间: 2017-08-25
  • 更新时间: 2017-10-17

RSS订阅

Open Toolbar