QTP实践总结

QTP实践总结

查询数据库修改freq

1.Testcasetable创建查询select * from testcasetable order by fseq desc

2.设计表-选项-修改自动递增数值

新建Action 需要修改Script.mts(D:\NewSoftShop\NewSoftShop\Action0)文件，把文件中新增的Action注释，重打开脚本

一、获取某个表格中指定位置的字符并累加输出：

(1)、对象转换:

tobj(i).object.children(0).innertext;将QTP对象转换为COM对象

(2)、累加输出：

str1= str1& tobj(i).object.children(0).innertext & ";" & tobj(i).object.children(1).innertext & "||"

完整方法：

Set obj=Description.Create()

obj("html tag").Value="TR"

Set tobj=Browser("NearMe市场后台 - 新排行榜管理").Page("NearMe市场后台 - 新排行榜管理").Frame("main_2").WebElement("html id:=table1","html tag:=table","class:=tb tb2","index:=1").ChildObjects(obj)

Msgbox tobj.count

For i=1 to tobj.count-2

str1= str1& tobj(i).object.children(0).innertext & ";" & tobj(i).object.children(1).innertext & "||"

Next

Msgbox str1

二、选择时间输入框当使用Set执行无效是需使用Object转换后再通过“Value=”输入时间：

Browser("NearMe市场后台 - 新排行榜管理").Page("NearMe市场后台 - 新排行榜管理_4").Frame("main_2").WebEdit("name:=starttime","html tag:=INPUT","type:=text").Object.Value="2015-01-08 15:36:55"

Browser("NearMe市场后台 - 新排行榜管理").Page("NearMe市场后台 - 新排行榜管理_4").Frame("main_2").WebEdit("name:=endtime","html tag:=INPUT","type:=text").Object.Value= "2015-01-09 15:36:55"

获取系统当前时间：now

比较时间：Cdate(Result)>=Cdate("2012-05-01 09:01:00") and Cdate(Result)<=Cdate("2014-06-05 22:59:59")

三、获取某个位置输入后得到的值，使用描述性编程描述对象后通过Object转换得到value值：

ID=Browser("NearMe市场后台 - 新排行榜管理").Page("NearMe市场后台 - 新排行榜管理").Frame("main").WebElement("html tag:=input","html id:=content").Object.value

Msgbox ID

四、获取一个html tag下的子对象：

如获取“TR”下tag为“strong”的值可使用方法：

tobj=Browser("…").Page("…").Frame("…").WebElement("…").ChildObjects(obj)

tobj(0).object.getElementsByTagName("STRONG")(0).innertext

五、Object、parentElement、GetElementsbyTagName，可同名子对象查找父对象：

说明：先使用描述性编程描述所要操作的子对象，通过Object将QTP对象转化为html 对象，再使用parentElement方法查找子对象查找上一层父对象,如果所查找位置未得到想要的结果继续查找上一层加一层(. parentElement)，查找到对应结果后使用GetElementsbyTagName(“”)对应的html tag名称，如果有多个，添加(index),获取需要的值(.innertext)

Set Button=Browser("").Page("").Frame("").Link("html tag:=A","innertext:=添加","index:=0")

Msgbox Button.Object.parentElement.parentElement.GetElementsbyTagName("TD")(0).title

Button.Click

补充：如果出现获取不到时在Object后增加Document,

示例：

Button.Object.Document.parentElement.parentElement.GetElementsbyTagName("TD")(0).title

六、Trim(string…)使用方法，去除所获取字符串的前后空格

七、去除获取字符串中的字符，使用Replace(string,”需取代字符”,”替换字符”)(如：省略号)

SetButton=Browser("…").Page("…").Frame("main_6").WebElement("htmltag:=FONT","innertext:=…","index:=0")          str=Button.Object.parentElement.parentElement.parentElement.GetElementsByTagName("TD")(2).innertext

Tname=Replace(str,"…","")

使用Left 或者Right获取前几个字符

TdName=Left(text,2)

TdName=Right(text,2)

删除段落前空格：

vbCrLf

vbTab

八、选择日期

方式一：

Browser("…").WebEdit(“html tag:=INPUT”,”html id:=startDate”).set “2015-12-02”

方式二：

Browser("…").WebEdit(“html tag:=INPUT”,”html id:=startDate”).Object.value= “2015-12-02”

Browser("Browser_2").Page("预算追加").WebEdit("html id:=txtPStartDate","html tag:=INPUT","html type:=text","html name:=WebEdit").Object.value="2014-10-09"

九、添加图片

Browser("…").Page("…").Frame("…").WebFile("pic_old").Click

Browser("…").Dialog("…").WinEdit("文件名(N):").Set "D:\NewSoftShop\resource\JPG\300x170.jpg"

Browser("…").Dialog("…").WinButton("打开(O)").Click

十、同行控件查找

转换为html方式的脚步无法对点击后或产生对话框的空间进行操作(如”删除”按钮)，因为vbs脚本为单线程，弹出对话框后会停止脚本运行

十一、当前页面中的隐藏页面，使用描述性变成时需要先转换为Object,再逐层获得所需的值：

如：

Browser("").Page("").Frame("main").WebElement("html tag:=DIV","html id:=add").Object.style.display

十二、页面隐藏形式界面的检查方法

如：

Str= Browser("…").Page("..").Frame("main").WebElement("html tag:=DIV","html id:=addDiv").Object.style.display

Msgbox Str

If instr(Str,"none")<=0 Then

insertDataBasenew "fseq", fseq,"pass"&time

Else

insertDataBasenew "fseq", fseq,"fail"&time

End If

页面隐藏时display值为none;页面显示时display值为block

十三、翻页查找判断

循环方式实现：

'翻页查询使用循环判断

'找到对象所在页面

Function FindElement(Mname)

Browser("…").Page("..").Link("管理员").Click

Browser("…").Page("…").Link("管理员管理").Click

Mystate="false"

If  Browser("…").Page("…").webelement("html tag:=DIV","class:=pg").Exist(2)Then

Strs=Browser("…").Page("…").webelement("html tag:=DIV","class:=pg").GetROProperty("innertext")

str=Split(Strs," ")

Num=str(1)

Mnum=int(int(Num-1)/10)+1

else

Mnum=1

End If

For i=1 to Mnum

If Browser("…").Page("…").Link("text:=" &Mname,"html tag:=A" ).Exist (2) Then

Mystate="true"

Exit for

else

If Mnum>i Then

j=i+1

Browser("…").Page("…").Link("html tag:=A","text:="&j).click

End If

End If

Next

FindElement=Mystate

End Function

'找到对象所在页面

Function FindElement(Mname)

'Browser("NearMe市场后台 - 搜索词运营管理").Page("NearMe市场后台 - 搜索词运营管理").Link("搜索词运营管理").Click

Mystate="false"

If  Browser("NearMe市场后台 - 活动中心").Page("NearMe市场后台 - 临时活动").WebElement("html tag:=DIV","class:=pg").Exist(2)Then

Strs=Browser("NearMe市场后台 - 活动中心").Page("NearMe市场后台 - 临时活动").WebElement("html tag:=DIV","class:=pg").GetROProperty("innertext")

str=Split(Strs," ")

Num=str(1)

Mnum=int(int(Num-1)/10)+1

else

Mnum=1

End If

For i=1 to Mnum

If Browser("NearMe市场后台 - 活动中心").Page("NearMe市场后台 - 临时活动").WebElement("innertext:="&Mname,"html tag:=TD" ).Exist (2) Then

Mystate="true"

Exit for

else

If Mnum>i Then

j=i+1

Browser("NearMe市场后台 - 活动中心").Page("NearMe市场后台 - 临时活动").Link("html tag:=A","text:="&j).click

End If

End If

Next

FindElement=Mystate

End Function

递归方式实现：

'翻页查询使用递归循环

Function funloop()

Set BrowserObject=Browser("…").Page("…").Frame("main").WebElement("html tag:=table","html id:=table1")

If BrowserObject.WebElement("html tag:=DIV","class:=pg").Exist(2) Then

Str=BrowserObject.WebElement("html tag:=DIV","class:=pg").GetROProperty("innertext")

Msgbox Str

Onum=split(Str," ")

Msgbox Onum(1)

Num=int(Abs(int(Onum(1))-1)/10)+1

Msgbox Num

Else

Num=1

End If

Set trs=BrowserObject.Object.GetElementsByTagName("tr")

Knum=BrowserObject.WebElement("html tag:=DIV","class:=pg").Object.GetElementsByTagName("strong")(0).innertext

Msgbox trs.length

For trindex=1 to trs.length-2

Strs=trs(trindex).innertext

Msgbox Strs

If instr(Strs,"   QTP测试")>0 Then

res=true

Exit For

End If

Next

if(res=True) then

msgbox fseq & ":pass"

elseif instr(Num,Knum)>0 then

msgbox fseq & ":fail"

else

Browser("…").Page("…").Frame("data-rule-gt_2").WebEdit("name:=custompage","html tag:=INPUT").Object.value=Knum+1

Set WshShell =CreateObject("WScript.shell")

WshShell.Sendkeys "{ENTER}"

Msgbox "翻页"

funloop()

End If

End Function

‘ 最新提炼方法（查找对象所在界面）

'找到对象所在页面

Function FindElement(Mname,TdName)

Mystate="false"

If Browser(BrowserName).Page(PageName).webelement("html tag:=DIV","class:=pg").Exist(2)Then

Strs=Browser(BrowserName).Page(PageName).webelement("html tag:=DIV","class:=pg").GetROProperty("innertext")

str=Split(Strs," ")

Num=str(1)

Mnum=int(int(Num-1)/10)+1

else

Mnum=1

End If

For i=1 to Mnum

If Browser(BrowserName).Page(PageName).WebElement("innertext:="&Mname,"html tag:="&TdName,"index:=0" ).Exist (2) Then

Mystate="true"

Exit for

else

If Mnum>i Then

j=i+1

Browser(BrowserName).Page(PageName).Link("html tag:=A","text:="&j).click

End If

End If

Next

FindElement=Mystate

End Function

十四、随机选取下拉列表中元素

实现方式：

itemscount = WebList.GetROProperty ("items count") '获得下拉框选项个数

Rn=RandomNumber (0,itemscount-1) 'QTP特有的随机函数

WebList.Select Rn '用序号来选择

示例：

'随机获取下拉列表中元素

Set BrowserObject1=Browser("…").Page("…").Frame("main_5").WebList("select")

itemscount = BrowserObject1.GetROProperty ("items count") '获得下拉框选项个数

Rn=RandomNumber (0,itemscount-1) 'QTP特有的随机函数

BrowserObject1.Select Rn '用序号来选择

十五、随机获取下拉列表中元素后获取对应元素的属性值

1. 直接定位需要获取元素位置

Set ObjSelect=Browser("NearMe市场后台 - 活动中心").Page("NearMe市场后台 - 活动中心").Frame("main_5").WebElement("html tag:=select","html id:=remain")

1. 找到所要获取元素的属性值，唯一的属性

selection= int(replace(ObjSelect.GetROProperty("selected item index"),"#",""))

1. 获取所需元素值

ObjSelect.Object.options(selection).text

十六、Function获取某个位置的值时需要设置返回值才能获取到对应文本

示例：获取表格中某行某列的值

' 获取某行某列资源名称

Function GetTdName(IdTag,ID,IdIndex,TrIndex,TdIndex)

Set BrowserObject=Browser("…").Page("…").WebElement("html tag:="&IdTag,"html id:="&ID,"index:="&IdIndex)

Set Trs=BrowserObject.Object.GetElementsByTagName("TR")

GetTdName=Trs(TrIndex).GetElementsByTagName("TD")(TdIndex).innertext

End Function

十七、获取有数字和文本字符串后如果需要对获取的数字进行运行要先使用Cint转换为整形

示例：

Num1=Cint(Replace(Replace( TdName1(1).GetRoProperty("innertext"),"取消","")," ",""))

转换后Num1为整形，此时可进行运算

十八、实现双击使用 FireEvent "ondblclick"

示例：

Set BrowserObject=Browser("NearMe市场后台 - 运营点组合").Page("NearMe市场后台 - 运营点组合").WebElement("html id:=conbination","html tag:=table")

Set Trs2=BrowserObject.Object.GetElementsByTagName("TR")

Trs2(2).GetElementsByTagName("TD")(0).FireEvent "ondblclick"

十九、html 标签A 带有href属性才能被QTP识别，否则需转换为html 对象，QTP才能

示例：

Set BrowserObject=Browser("NearMe市场后台 - 运营点组合").Page("NearMe市场后台 - 首页").WebElement("html tag:=table","html id:=table1")

Set Trs=BrowserObject.Object.GetElementsByTagName("TR")

For i=1 to Trs.length-1

If instr(Trs(i).outerhtml,TdName)>0 Then

Trs(i).GetElementsByTagName("A")(1).Click

Exit For

End If

Next

二十、杀毒软件阻止QTP点击跳转等操作

处理办法：退出杀毒软件

二十一、QTP中出现复制粘贴脚本失败、直接脚本失败，可能原因是脚本出现乱码

处理办法：在对应Action下打开Script.mts文件，将@@及其后乱码删除，重新保存即可完成修改

示例：ZJB_Manage后台，Login模块出现此问题

二十二、QTP获取class属性值是使用classname

示例：

Browser("…").Page("…").WebElement("…").WebElement("…").Object.Classname

二十三、获取列表中某行某列资源

'获取某一行某一列的元素

Function GetElementByPosition(ID,TrIndex,TdIndex)

Dim Oname

Set BrowserObject=Browser("..").Page("..").WebTable("html id:="&ID)

Set trs= BrowserObject.Object.getElementsByTagName("tr")

Set tds= trs(TrIndex)

Oname= trim(trs(trindex).children(TdIndex).innertext)

GetElementByPosition=Oname

End Function

二十四、精确点击某行按钮

'点击编辑、删除等按钮

Function ClickButton(Tag,ID,TdName, ButtonTag, PropertyName,ButtonName)

Set obj=Description.Create()

obj("html tag").value="TR"

Set tobj=Browser("…").Page("…").WebElement("html tag:="&Tag,"html id:="&ID).ChildObjects(obj)

For i=0 to tobj.count-1

TrName=tobj(i).GetRoProperty("innertext")

If instr(TrName,TdName)>0 Then

Set aobj=Description.Create()

aobj("html tag").value=ButtonTag

aobj(PropertyName).value=ButtonName

Set taobj=tobj(i).ChildObjects(aobj)

taobj(0).Click

Exit For

End If

Next

End Function

'点击缺少href属性的编辑、下架等无弹出框按钮

Function ClickButton(Tag,ID,IDIndex,TdName,ButtonTag,ButtonIndex)

Set BrowserObject=Browser(BrowserName).Page(PageName).WebElement("html tag:="&Tag,"html id:="&ID,"index:="&IDIndex)

Set Trs=BrowserObject.Object.GetElementsByTagName("TR")

For i=1 to Trs.length-1

If instr(Trs(i).outerhtml,TdName)>0 Then

Trs(i).GetElementsByTagName(ButtonTag)(ButtonIndex).Click

Exit For

End If

Next

End Function

'点击缺少href属性的删除等有弹出框按钮

Function ClickDel(Tag,ID,IDIndex,TdName,ButtonName,ButtonTag)

Set BrowserObject=Browser(BrowserName).Page(PageName).WebElement("html tag:="&Tag,"html id:="&ID,"index:="&IDIndex)

Set Trs=BrowserObject.Object.GetElementsByTagName("TR")

For i=1 to Trs.length-1

If instr(Trs(i).outerhtml,TdName)>0 Then

IndexNum=i

Browser(BrowserName).Page(PageName).WebElement("innertext:="&ButtonName,"html tag:="&ButtonTag,"index:="&IndexNum-1).Click

Exit For

End If

Next

End Function

二十五、通过一个元素获取同行的某列的元素

示例：

'通过一个元素获取同行另一元素

Function GetElementByAnotherElement(Tag,Ename,TdIndex,Index)

Dim Oname

Set BrowserObject=Browser("…").Page("…").WebElement("html tag:="&Tag,"innertext:="&Ename,"index:="&Index)

Set tr= BrowserObject.Object.parentElement

Oname= trim(tr.children(TdIndex).innertext)

GetElementByAnotherElement=Oname

End Function

二十六、点击列表中上移下移操作

示例：

'上移下移

Function ClickSpecialButton(Kname,Tname)

Set objs=Description.Create()

objs("html tag").value="TR"

Set tobjs=Browser("…").Page("…").Frame("main").WebElement("html tag:=table","html id:=table2").Object.GetElementsByTagName("TR")

For x=0 to tobjs.length-1

If instr(tobjs(x).innertext,Kname)>0 Then

Set obj=Description.Create()

obj("html tag").value="A"

Set tobj=tobjs(x).GetElementsByTagName("A")

For i=0 to tobj.length-1

If (instr(tobj(i).title,Tname)>0) Then

tobj(i).Click

Exit For

End If

Next

Exit For

End If

Next

End Function

二十七、如何获取下拉列表中的所有值

Dim stcount2,stnum2,rel2,stobj2

set stobj2=Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebList(“repositorySytleID”).Object

stcount2=stobj2.options.length

For x=0 to stcount2-1

stnum2=GetList(stcount2-1)

rel2=stobj2.options.item(stnum2).text

Next

Function
GetList(i)

Randomize

GetList=RandomNumber(x,i)

End
Function

二十八、对比时间大小

If
Cdate(Result)>=Cdate("2012-05-01 09:01:00") and
Cdate(Result)<=Cdate("2014-06-05 22:59:59")   Then

insertDataBasenew "fseq", fseq,"pass" & time

else

insertDataBasenew "fseq",
fseq,"fail" & time

End If

二十九、获取表格TR和TD数量

Set
BrowserPage1=Browser("游戏中心后台管理").Page("游戏中心后台管理")

Set
BrowserPageObject1=BrowserPage1.WebElement("html tag:=table","html
id:=gc_026_002")

Set
Tr1=BrowserPageObject1.Object.GetElementsByTagName("TR")

Tr1Index=Cint(Tr1.length)

Set
Td1= Tr1(Tr1Index).GetElementsByTagName(“TD”)

Td1Index=Cint(Td1.length)

三十、网页刷新办法Refresh

Browser("NearMe市场后台 - 活动中心").Refresh

设置：IE浏览器——工具——管理加载项——BHOManager 开启

三十一、Function之间传递参数

Dim
st

st=””

Function sti

st=1

st=st+1

End
Function

Function
sti2

msgbox st

End
Function

sti2

sti

三十二、使用Do
While

Do
While instr(now,Td_TimeN)>0

ClickButton
"table","tblMsgs",Td_TimeN,"A","innertext","删除"

If
Browser("后台管理").Dialog("来自网页的消息").Exist(2)
Then

Browser("后台管理").Dialog("来自网页的消息").WinButton("确定").Click

Else

Exit
Do

End
If

Loop

三十三、检查链接

在 QTP 中，对于 网页链接 的 测试 可以使用Link对象，例如下面的脚本用于对链接的地址进行 检查 ：

‘ 对链接的地址进行 检查

Browser("Welcome: Mercury
Tours").Page("Welcome: Mercury Tours"

).Link("REGISTER").CheckProperty ("url"

,http://newtours.demoaut.com/mercuryregister.php)

其中使用了CheckProperty方法，用于对比Link对象的URL属性是否等于指定的地址。也可以使用Link对象的

Object属性中的href属性来进行比较，例如下面的代码所示：

href = Browser("Welcome: Mercury
Tours").Page("Welcome: Mercury Tours

").Link("REGISTER").Object.href

‘ 如果地址不正确，则报告错误

If NOT href
="http://newtours.demoaut.com/mercuryregister.asp" Then

Reporter.ReportEvent micFail,"Link
Error",href

ExitAction

End If

三十四、初始化执行用例

在For循环中添加

err.clear

三十五、网页执行时某个Action用例不执行

Action名称不能包含与VB启动脚本有相同的关键字(RUN)

三十六、获取下拉列表中某个指定元素(数组中的第几项)

'获取LIST表中的一个选项

Function
getValueFromList(Lid,Index)

Set BrowserObject =
Browser(BrowserName).Page(PageName).WebList("html
id:="&Lid).Object

scount =
BrowserObject.options.length

getValueFromList =
BrowserObject.options.item(Index).text

End
Function

三十七、最大化浏览器 -----BrowserOperates
longhwnd,1