如何录制系统托盘处的右键菜单?

qtptest

在系统托盘处,对着某个图标点右键,录不上呀,请问怎么才能录上,有人知道吗?

kevin_swpi

我所知道的这个是不能录制的...

期待高见...

qtptest

Dim cItems,aa
cItems=Window("Window").WinToolbar("通知区域").GetItemsCount
For i=1 to cItems
aa=Window("Window").WinToolbar("通知区域").GetItemProperty(i,"name")
If  aa = "网易POPO (涯（xiaohui))" Then
Window("Window").WinToolbar("通知区域").Press i,   micRightBtn
End If
Next
Dialog("个人信息").WinObject("AfxWnd42").Click 82,61
Dialog("个人信息").WinButton("关闭").Click

qtptest

右健菜单不知道怎么取了

milo.jiang

真是个好办法啊，请问执行了右键单击动作后，如何录制在弹出右键菜单上选择某一项内容并单击鼠标左键呢，期望大家的回复，谢谢：）

jihuli5

同问

liangjz

楼主参考下
http://softtest.chinaitlab.com/hangyei/723159_2.html

QTP 有 CreateObject("Mercury.DeviceReplay") 以及 KeyDown ，主动发消息给活动窗口

hsjzfling

论坛中早已经讨论过如何录制鼠标右键窗口操作，搜索下老帖就知道了，大致方法就是用wsh.Sendkeys方法

xiao*

参照下面函数
Sub RightClickObj(Obj, Offset_x, Offset_y)

       x_coord = Obj.GetROProperty("abs_x")

       y_coord = Obj.GetROProperty("abs_y")

       Set dr = CreateObject("Mercury.DeviceReplay")

       dr.MouseClick x_coord + Offset_x, y_coord + Offset_y, 2

End Sub

kelly_yan

楼上的达人指点一下吧。不明白怎么得到右键菜单的x，y值能

hsjzfling

举个具体的实例吧，下面代码的作用就是右键点击右下角系统托盘处名为"Maxthon"的图标，然后通过键盘操作选到"退出(X)"并回车，执行退出Mathon的操作，代码如下：
For i=1 to Window("Window").WinToolbar("通知区域").GetItemsCount
        if "Maxthon" = Window("Window").WinToolbar("通知区域").GetItemProperty(i, "name") then
        Window("Window").WinToolbar("通知区域").Press i,micRightBtn
        Exit for
        end if
Next
Set wsh=createobject("WScript.Shell")
wsh.sendkeys("{UP}~")

kelly_yan

谢谢hsjzfling,这个方法真的很好用.
不过wsh应该放在循环的里面.
我在循环外边写了msgbox发现在循环外边得到的i指向的name就不是Maxthon了

kelly_yan

还有个问题想情况.
用wsh.sendkeys("{UP}~")
可以在菜单中用键盘向上指向一个菜单,第一个菜单选项就是退出,如果我想选择的是退出菜单项上面的一个选项呢.
用一个语句可以操作么,还是要用两个来实现操作呢.
wsh.sendkeys("{UP}")
wsh.sendkeys("{UP}~")

topor

强烈建议楼上的自己动手试试，这样得出来得结论才能印象深刻...

kelly_yan

楼上批评的及是。向楼上的学习。
我刚才试了试这样写wsh.sendkeys("{UP}{UP}~")这样写wsh.sendkeys("{UP}")
wsh.sendkeys("{UP}~")都行。