如何点击左右键菜单上的内容

下面的例子是是从右键菜单打开google大全
1.将link对象对加到本地对象库并保存
2.编写下面的代码
Setting.WebPackage("ReplayType") = 2

Browser("Google").Page("Google").Link("Google 大全").FireEvent "onclick", , ,micRightBtn

Setting.WebPackage("ReplayType") = 1

Index =1
Set wshShell = CreateObject("Wscript.Shell")
For i =1 to index
    WshShell.sendKeys "{DOWN}"

Next
WshShell.sendKeys "{ENTER}"
Set WshShell = nothing

这里面的重点是学习FireEvent的使用和QTP的两种运行模式：
1.Event模式  --  事件跟踪

2. Mouse模式 --   鼠标跟踪

Event模式就是我们平时默认用的模式，也就是事件，其实QTP的click方法只是触发了对象的CLICK事件，而并未真正通过鼠标来进行点击按钮。而如果我们使用的是Mouse模式的话，我们会看到回放的时候，鼠标是跟着对象走的，即鼠标跟踪模式。

下面的例子是左键菜单的问题

1.打开连接：http://ucenter.51cto.com/reg_01.php?reback=http%253A%252F%252Fwww.51cto.com%252F#

录制录制代码：

Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("guanzhu").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("guanzhu_2").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").Image("ico_queding").Click 15,9

Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("hangye").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("hangye_2").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").Image("ico_queding").Click 21,12
Browser("51cto用户注册").Page("51cto用户注册").WebList("companysize").Select "1000－4999人"

运行后结果如下：

2.将下面这个两个不能识别的对象添加到对象库并保存

 

对象库显示如下

3.修改代码（红色字体问修改的部分）

Setting.WebPackage("ReplayType") = 2

Browser("51cto用户注册").Page("51cto用户注册").WebElement("WebElement").FireEvent "onclick", , ,micLeftBtn

Setting.WebPackage("ReplayType") = 1


Set wshShell = CreateObject("Wscript.Shell")

If true Then
    WshShell.sendKeys "{DOWN}"
    WshShell.sendKeys "{TAB}"
End If
Set WshShell = nothing

Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("guanzhu").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("guanzhu_2").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").Image("ico_queding").Click 15,9

Setting.WebPackage("ReplayType") = 2

Browser("51cto用户注册").Page("51cto用户注册").WebElement("WebElement_2").FireEvent "onclick", , ,micLeftBtn

Setting.WebPackage("ReplayType") = 1

Index =1
Set wshShell = CreateObject("Wscript.Shell")
If true Then
    WshShell.sendKeys "{DOWN}"
    WshShell.sendKeys "{TAB}"
End If
Set WshShell = nothing

Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("hangye").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").WebCheckBox("hangye_2").Set "ON"
Browser("51cto用户注册").Page("51cto用户注册").Image("ico_queding").Click 21,12
Browser("51cto用户注册").Page("51cto用户注册").WebList("companysize").Select "1000－4999人"

代码运行之后的结果如下：