QTP学习第四天——sub、Function和RunAction的学习

'*****************************************************************************************************************************
'sub、Function和RunAction的学习
'在使用QTP做自动化测试时经常遇到有些控件或者被测试对象无法识别的情况，但是我们可以使用
'object  spy 来查看到它的一些属性，那么根据这些属性就可以自己新建一个虚拟对象
'下面就以百度的登录按钮为例
'****************************************************************************************************************************
'为了演示方便我们使用print函数将登录的属性打印出来
'print Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("登录").GetROProperty("x") 
'print Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("登录").GetROProperty("y") 
'print Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("登录").GetROProperty("height") 
'print Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("登录").GetROProperty("width") 


'************************************************************************************************************************************
'函数的调用
'************************************************************************************************************************************
Call  login_page()
Call  login()
Call  logout()


'新建一个虚拟控件Login_Link,将我们使用object spy所获取的该link的属性值赋给该虚拟控件，当然属性给
'的越多越好 ，一般情况下使用下面四个属性就够了


Sub login_page()
 Set  Login_Link=Description.Create
 Login_Link("x").value=1024
 Login_Link("y").value=10
 Login_Link("height").value=14
 Login_Link("width").value=24
'单击刚才生产的虚拟控件来看一下效果
Browser("百度一下，你就知道").Page("百度一下，你就知道").VirtualButton(Login_Link).Click
End Sub


Function  login()
   '如果进入了登录页面输入用户名和密码就可以登录了
Browser("百度一下，你就知道").Page("百度帐号登录").WebEdit("username").Set "gzh1209"
Browser("百度一下，你就知道").Page("百度帐号登录").WebButton("立即注册百度帐号").Check CheckPoint("立即注册百度帐号")
Browser("百度一下，你就知道").Page("百度帐号登录").WebEdit("WebEdit").Set "gzh@1209"
Browser("百度一下，你就知道").Page("百度帐号登录").WebButton("登录").Click
End Function


Sub logout()
Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("退出").Click

End Sub

RunAction  的用法如下

RunAction ActionName, [Iteration , Parameters] 

ActionName：调用action的名称

Iteration：迭代次数（oneIteration和allIterations）其中oneIteration是默认设置，也可以用0表示，allIterations也可以用1表示

例子：RunAction "SearchFlight", allIterations 

call的用法很简单，call 后面直接加上要调用的sub和function就 可以了