QTP的那些事---描述性编程的使用

'<---------

Browser("HTC Sense - Select your").Page("HTC Sense - Select your").Link(" United States").Click

'录制点击“United States"的操作

'---------->

'<---------

Browser("HTC Sense - Select your").Page("HTC Sense - Select your").WebElement("Remember my choice").Click

'录制时，鼠标点击"Remember my choice"复选框的操作录制不上，处理方法将对象复选框添加到本地对象库。复选框打勾操作也即Click操作。

'---------->

'<---------

SystemUtil.Run"http://www.htcsense.com"

wait 5

Browser("index:=0").Page("micclass:=page").WebElement("innerhtml:=Remember my choice").Click

'描述性编程方法实现，无须维护对象库。"index:=0"即待运行的网页必须为第一个打开了，所以要利用SystemUtil方法打开网址。"Remember my choice"的属性可通过【Object Spy】工具查看，并从中选择一个属性。

'---------->

'<---------

SystemUtil.Run"http://www.htcsense.com"

Wait 5

With Browser("name:=HTC Sense - Select your country").Page("title:=HTC Sense - Select your country").Link("name:=United States")

If .Exist Then

.Highlight

.Click

Reporter.ReportEvent micPass, "Check United States", "The country exists"

Else

Reporter.ReportEvent micFail, "Check United States", "The country doesn't exist."

End If

End With

'1.If Then...End If语法，判断United States是否存在，如果存在则高亮显示(.Highlight)，然后Click、

'2.Reporter.ReportEvent micPass方法为在测试报告中输出一些提示信息，以便判断代码运行是否正确。

'3.With....End With 将重复的部分省略掉

'---------->

'<---------

SystemUtil.Run"http://www.htcsense.com"

Wait 5

Dim country

country = Browser("HTC Sense - Select your").Page("HTC Sense - Select your").Link("United States").GetROProperty("text")

If country ="United States" Then

Browser("HTC Sense - Select your").Page("HTC Sense - Select your").Link("United States").Click

MsgBox ("True")

else

MsgBox( "False")

End If

systemutil.CloseProcessByName("iexplore.exe")

'1.Dim定义变量country,

'2.GetROProperty方法获得运行时对象属性的值,对象属性利用【Object Spy】工具获得.

'---------->

本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2011/12/31/2308967.html，如需转载请自行联系原作者。