'*****************************************************************************************************************************
'虚拟对象的学习
'在使用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")
'新建一个虚拟控件Login_Link,将我们使用object spy所获取的该link的属性值赋给该虚拟控件,当然属性给
'的越多越好 ,一般情况下使用下面四个属性就够了
Set Login_Link=Description.Create
Login_Link("x").value=737
Login_Link("y").value=5
Login_Link("height").value=15
Login_Link("width").value=24
'单击刚才生产的虚拟控件来看一下效果
Browser("百度一下,你就知道").Page("百度一下,你就知道").VirtualButton(Login_Link).Click
'如果进入了登录页面输入用户名和密码就可以登录了
Browser("百度一下,你就知道").Page("百度帐号登录").WebEdit("username").Set "username"
Browser("百度一下,你就知道").Page("百度帐号登录").WebEdit("WebEdit").Set "password"
Browser("百度一下,你就知道").Page("百度帐号登录").WebButton("登录").Click
Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("退出").Click