QTP调出Web Image对象的右键菜单的方法

yabest

Web里很多对象都有Click方法（object.Click [x], [y], [BUTTON]），带上micRightBtn参数，都能实现右键点击调出右键菜单的操作。
可是不知为何，Image对象就是不能右键点击，不管是否带上micRightBtn参数，Click执行的都是左键点击操作，所以无法调出右键菜单。
应朋友要求，研究了一番，找出替代的解决方法，写了一个函数，可供大家参考



SelectImageMenu browser("test").Page("test").Image("image001"), "R"

'================================================================
' FUNCTION NAME:
'        SelectImageMenu
' FUNCTION DESCRIPTION:
'        Use this function to right-click on a image object and select the pop-up menu
' FUNCTION USAGE:
'        ret = SelectImageMenu(browser("test").Page("test").Image("image001"), "R")
' FUNCTION PARAMETER        
'        ImageObject : The web image object
'        MenuKey : The hot key of pop-up menu item you will select
' FUNCTION RETURN:
'        Return 0 when successfully, or return -1 when fail
'================================================================
Function SelectImageMenu(ImageObject, MenuKey)

        Dim wshShell
        Dim ieServerObject

        Dim x1, y1

        'Get the ie server object
        Set ieServerObject = Window("regexpwndclass:=IEFrame").WinObject("regexpwndclass:=Internet Explorer_Server")

        'get the image position
        x1 = CInt(ImageObject.GetROProperty("abs_x"))
        y1 = CInt(ImageObject.GetROProperty("abs_y"))

        'right-click on image through ie object
        ieServerObject.Click x1, y1, micRightBtn
        wait 1

        'Select the menu item by press hot key
        Set wshShell = CreateObject("WScript.Shell")
        wshShell.SendKeys MenuKey
        wait 1
   
        SelectImageMenu = 0
        
End Function


说明：

因为那右键弹出菜单QTP无法识别，所以QTP无法操作这菜单，只能用键盘按键来代替鼠标选择。

键盘按键可以是热键，如“复制(C)”这一菜单项，可以用按键C来选择，MenuKey就设为"C"。

键盘按键也可以是下箭头和回车键，如要选择第三个菜单项，可以按三下下箭头和回车键来选择，MenuKey就设为"{DOWN}{DOWN}{DOWN}{ENTER}"。这样没有热键的菜单也可以选择了，前提是菜单项目是固定的，不是可变的。

[ 本帖最后由 yabest 于 2007-8-17 18:08 编辑 ]

muyunsihe

谢谢

jlminghui

感谢楼主。

chenlimei0603

click 后面接的x,y坐标可以不写么？右键到底是怎么用，还是没看懂，

413307036

rojer521

好帖收藏

souchy

学习了！

617200

谢谢斑竹

a13763312220

asdfasdfasdf

a13763312220

asdfasdfasdfasd

master1172

非常感谢楼主，受教了，一直在头疼如何实现这个右键功能呢。

lqin1982121

thanks very much

annt7

这么好的东西虽然还用不到，但是也要收藏起来，以后肯定有用。谢谢楼主啦！

lilysun0411

我也要测个程序的右键快捷键,套用一下,谢谢!

ZH_0211

3Q

athenalich

thanks~~

看雪时节

没怎么看明白

yabest

Return 0 when successfully, or return -1 when fail

jiangdanyang

SelectImageMenu = 0
什么意思?谢谢LZ!

yabest

我也记不清了，好像是低级录制或模拟录制，可以得到这样的脚本
IE都可以这样用的！

Internet Explorer_Server对象就是IE中间内容部分的对象了，是IE的核心部件，很多软件嵌入了浏览器功能，其实就是引用了这个对象。

jackymail

Window("regexpwndclass:=IEFrame").WinObject("regexpwndclass:=Internet Explorer_Server")

ya老师：这个对象怎么找到的描述属性，每个ie都能做成这样的描述吗?winobject是指什么部件？