SystemUtil.Run "http://192.168.1.58:8080"
'以下两个变量,记录用户名、密码的输入情况
'0代表输入为空,1代表输入正确,2代表输入错误
Dim Udatainfo,Pdatainfo,warn
rowcount=DataTable.GetSheet("login").GetRowCount
Browser("畅贷网").Page("畅贷网").Link("登录").Click
For j = 1 To rowcount Step 1
DataTable.SetCurrentRow j
Browser("畅贷网").Page("畅贷网").Link("登录").Click
With Browser("畅贷网").Page("登录界面")
.WebEdit("用户名").Set DataTable("username","login")
.WebEdit("密码").Set DataTable("password","login")
End With
'检查用户名输入情况
If DataTable("username","login")=Environment("bgusername") Then
Udatainfo=1
ElseIf DataTable("username","login")="" Then
Udatainfo=0
else
Udatainfo=2
End If
'检查密码的输入情况
If DataTable("password","login")=Environment("bgpassword") Then
Pdatainfo=1
ElseIf DataTable("password","login")="" Then
Pdatainfo=0
else
Pdatainfo=2
End If
' Browser("畅贷网").Page("登录界面").WebElement("登 录").Click
' Call errormsg()
call login(Udatainfo,Pdatainfo,DataTable("username","login"),DataTable("password","login"))
Next
'判断登录是否正确
Function login(Udatainfo,Pdatainfo,user,password)
If (Udatainfo=0 and Pdatainfo=0) or (Udatainfo=2 and Pdatainfo=0) or (Udatainfo=1 and Pdatainfo=0) Then
Browser("畅贷网").Page("登录界面").WebElement("登 录").Click
call usenull(user,password)
End If
If Udatainfo=1 and Pdatainfo=1 Then
Browser("畅贷网").Page("登录界面").WebElement("登 录").Click
Call loginsuc(user,password)
Browser("畅贷网").Close
SystemUtil.Run "http://192.168.1.58:8080"
wait 3
End If
If (Udatainfo=0 and Pdatainfo=2) or (Udatainfo=0 and Pdatainfo=1) or (Udatainfo=2 and Pdatainfo=2) or (Udatainfo=2 and Pdatainfo=1) or (Udatainfo=1 and Pdatainfo=2) Then
Browser("畅贷网").Page("登录界面").WebElement("登 录").Click
Call errorUP(user,password)
End If
End Function
'登录成功的判断-----1
Sub loginsuc(user,password)
wait 3 @@ hightlight id_;_Browser("畅贷网").Page("我是借款人 - 51钱")_;_script infofile_;_ZIP::ssf1.xml_;_
If Browser("畅贷网").Page("我的账户界面").Exist Then
Reporter.ReportEvent micPass,"check if login sccessfully","Login successfully ! username:"&user&" and "&"passsword:"&password
else
Reporter.ReportEvent micFail,"check if login Fail","Login Fail ! username"&user&"passsword"&password
End If
End Sub
'用户名为空密码为空或用户名不空密码为空----2
Sub usenull(user,password)
warn=errormsg()
If warn="" Then
Reporter.ReportEvent micPass,"check if login Fail","用户名为空密码为空或用户名不空密码为空"
End If
End Sub
'错误的用户名和密码------3
Sub errorUP(user,password)
warn=errormsg()
If warn<>"" Then
Reporter.ReportEvent micPass,"check if login Fail",warn&"---用户名:"&user&" and 密码"&password
End If
End Sub
Function errormsg()
Set obj=Browser("畅贷网").Page("登录界面").Object
Set formObj=obj.getElementById("logOnForm")
set divObj=formObj.getElementsByTagName("div")
For i = 0 To divObj.length-1 Step 1
If divObj(i).getAttribute("class")="c_t5" Then
text=divObj(i).innerText
errormsg = text
End If
Next
End Function
- 浏览: 26045 次
- 性别:
- 来自: 上海
最新评论
- 51qiantest1.rar (79.2 KB)
- 下载次数: 2
发表评论
-
vbs class的调用及字典的应用代码
2014-03-17 12:07 608<!--StartFragment -->Cla ... -
QTP中利用DOM实现拖动浏览器滚动条
2014-01-10 16:48 523QTP中利用DOM实现拖动浏览器滚动条 有的时候需要在 ... -
QTP11使用DOM XPath以及CSS识别元素对象
2013-12-23 15:54 811我们知道,像DOM,Html,CSS,XPath等对对象的 ... -
QTP之有关富文本框赋值
2013-10-21 17:35 1157前段时间在做QTP脚本时,遇到一个问题,主要问题是给富文本框 ... -
QTP简单框架之EXCEL报表
2013-10-15 15:06 974Dim oReporterManager Set oRepo ... -
QTP如何检查WEB对象是否隐藏
2013-10-10 10:38 569在WEB页面中隐藏对象的3种方式1、使用display例如: ... -
判断datatable中的数据是否有重复数据
2013-09-13 12:06 1525rowcount= DataTable.GetSheet(&q ... -
QTP测试报告代码
2013-09-09 12:59 789自动化测试实际是将测 ... -
京东网:疯狂抢购、猜您喜欢等模块下的图片超链接自动化测试
2013-09-02 17:30 513SystemUtil.Run "http://ww ... -
测试自动化实现难点—Web对象的识别
2013-08-30 13:25 675静态Web对象的识别 序号 ... -
京东网京东快报超级链接验证
2013-08-30 12:37 986SystemUtil.Run "http://www ... -
获取背景颜色
2013-08-27 15:02 744Browser("ITeye Java编程 Spr ... -
Dictionary 字典对象
2013-08-23 11:32 833... -
Scripting.Dictionary对象
2013-08-23 11:08 1350[vb] view plaincopy ... -
测试自动化设计 - GUI层面向对象的扩展设计
2013-08-23 10:48 613测试自动化设计 - GUI层面向对象的扩展设计 ... -
对WebElement对象使用编程性描述
2013-08-08 18:18 2277对WebElement对象使用编程性描述(Using Pro ... -
vbs中get和set方法
2013-08-07 13:23 934Class User Private s_name ... -
TO&RO
2013-08-02 15:17 7641.GetTOProperty() ● 基本含义:获取 ... -
QTP关闭多余的browser窗口
2013-08-02 14:23 509要判断打开了几个浏览器窗口,我们使用description对 ... -
QTP如何打开浏览器,并进入网站,关闭浏览器
2013-08-02 14:10 1541简单记录下打开浏览器的方法 '打开IE,进入系统----- ...
相关推荐
qtp测试案例,参考:http://www.cnblogs.com/xiezhidong/p/6784684.html
qtp的不同框架及使用案例,qtp的驱动测试,及国际化案例资源;软件测试qtp使用规则;
QTP集合,里面有很多QTP用到的脚本语言编写注意,以及相关: Action,数据库,脚本,网页测试,正则表达式例子等等
测试脚本项目实例,包含脚本与结构ppt,是qtp学习者最好的学习资源。
有很多学习的实例,讲解概率,和解决方案。
QTP与QC的结合实现自动化测试框架 ——业务组件测试案例
qtp常用的一些函数方法
《精通QTP:自动化测试技术领航》共分为6章,书中实例新颖、趣味性强、案例贴近实际,在逼真的软件测试模拟项目环境下试验。 第1章和第2章帮助读者系统地学习QTP最实际的应用。第1章将需要掌握的自动化测试知识依次...
《精通QTP:自动化测试技术领航》共分为6章,书中实例新颖、趣味性强、案例贴近实际,在逼真的软件测试模拟项目环境下试验。 第1章和第2章帮助读者系统地学习QTP最实际的应用。第1章将需要掌握的自动化测试知识...
QC中的业务组件的实际使用案例,结合QTP的
本书真正从实际应用出发,由浅入深地讲解了如何在企业中成功实施OTP,的自动化测试,通过大量案例,详细描述了OTP的工具特点以及实现的方法和原理,读后让人心旷神怡。 ——51Testing软件测试培训高级讲师朴春龙 ...
QTP与LoadRunner的最大区别在于二者的侧重面不同,QTP侧重于软件的功能测试和回归测试,属功能测试工具,而LoadRunner侧重于软件的压力、负载等性能测试。使用QTP要求测试人员在测试前考虑好应用程序测试的内容,...
QTP与QC组合--业务组件案例.pptx
QTP11中文使用教程,案例式讲解,手把手教,推荐,很好的自学材料。
《精通QTP:自动化测试技术领航》共分为6章,书中实例新颖、趣味性强、案例贴近实际,在逼真的软件测试模拟项目环境下试验。第1章和第2章帮助读者系统地学习QTP最实际的应用。 第1章将需要掌握的自动化测试知识依次...
飞机订票系统是QTP自带的实例,运用QTP进行飞机的登录,订票,查票,删票
QTP实用教程.案例式教学.简单易懂.初学者适用.
本文来自于思维焦点博客,本文主要通过案例学习总结了一种自动测试工具Qtp,使用QTP的目的是想用它来执行重复的自动化测试。QTP是QuickTestProfessional的简称,是一种自动测试工具。使用QTP的目的是想用它来执行...