QTP随笔

1. ReplayType 改变QTP回放过程中鼠标运行模式，值为1时为Event 模式事件跟踪，值为2时为Mouce 模式鼠标跟踪

    FireEvent 当前为点击鼠标右键

Setting.WebPackage("ReplayType")=2
Browser("百度一下，你就知道").Page("百度一下，你就知道").Image("bd_logo1").FireEvent "onclick",,,micRightBtn

2. 维护对象库会自动更新代码

3. Highlight in Application 对象闪烁还可在脚本调试的过程中使用

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Highlight

4. Associate Repositories 副对象库，也叫关联库，用来加载外部对象文件，并且是只读的

RepositoriesCollection.Add("../link.tsr")

5. 当捕捉对象时，可以通过两种模式切换操作，使得切换后可以停止对控件的抓取，并还可以对被测对象进行操作

    半操作模式 - CTRL键，支持点击              操作模式 - CTRL+ ALT键，支持点击和键盘输入

6. 代码换行符：_ ，须放置在 . 后面

Browser("百度一下，你就知道")._
Page("百度一下，你就知道")._
WebButton("百度一下").Click

7. With...End WIth 可以提炼出代码中的公用部分，大大提高代码可读性，还可以嵌套With

With Browser("百度一下，你就知道").Page("百度一下，你就知道")
	.WebEdit("wd").Set "hello"
	.WebButton("百度一下").Click
End With

8. 封装对象模型：Test Object (TO) 测试对象，也可理解为被添加到对象库中的对象；Run-time Objects (RO) 运行时对象，即被测试软件在运行时实际所运行的那个对象。获取对象属性：GetTOProperty()，获取对象库中某个对象的某个属性的值；GetTOProperties()，获取所有属性的值；SetTOProperty()，设置对象库中某个对象的某个属性的值；GeROProperty()，获取实际在运行时的某个对象的某个属性的值（不是从对象库里面获取）

Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("新闻").SetTOProperty "text","LLLLL"
MsgBox "LOOK"
totest=Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("新闻").GetTOProperty("text") 
MsgBox totest
rotest=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("value")
MsgBox rotest
Set testObject=Browser("百度一下，你就知道").Page("百度一下，你就知道").Image("bd_logo1")
Set pro=testObject.GetTOProperties()
pronum=pro.Count
Print "duixiang "& pronum
For i = 0 To pronum-1 Step 1
    proname=pro(i).Name
    provalue=pro(i).Value
    print "+"& proname &"+  +"& provalue &"+"
Next

9. 自身接口，只支持运行时的对象，Object

With Browser("百度一下，你就知道").Page("百度一下，你就知道")
    .WebButton("百度一下").Object.value="sousuo"
    .WebEdit("wd").Object.value="QTP"
    .Link("新闻").Object.innerText="xinwen"
End With

10. ：冒号可以链接本不相干的两句或n句代码使其合成一句

rotest=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("value") : MsgBox rotest

11. 对浏览器窗口数量进行判别

objBrowser=Browser("CreationTime:=-1").Exist (0)
If objBrowser Then
    Msgbox "只有一个窗口"
else
    Msgbox objBrowser &"存在多个窗口"
End If

12.