怎么产生右击，出菜单

agreer

我要录制的网页上要有个右击，出现菜单，选择其中一项，弹出一个窗口。

可我不能产生右击效果。
Browser(XXX).Page(XXX).Frame("PageFrame").Link(XXX).Click 5,4,micRightBtn

请大家帮忙。

我查看论坛里说有什么按住Ctrl键，可以出现右键的菜单。这个是在哪里操作啊，在active screen里吗？

agreer

暂时找到一个方法，就是换个录制模式，转用模拟录制，把出菜单这步录下来了。回放通过。

刚才忘记说了，我的右键菜单是javascript的。google搜索一下，好像只能转成模拟模式。

希望大家继续给与建议。

yhzmw

在qtp中使用鼠标右键的功能
  
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Program Files\Internet Explorer","open"
Browser("title:=about:blank").Navigate "http://www.baidu.com/"

Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").Sync
cur_replay_type = Setting.WebPackage("ReplayType")

Setting.WebPackage("ReplayType") = 2 '配置使用浏览器事件或鼠标运行鼠标操作的'方式.1 - 使用浏览器事件运行鼠标操作,2 - 使用鼠标'运行鼠标操作。在windows程序中不需要配置鼠标事件
browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebEdit("name:=wd").Click 10,0,1  'object.Click [X], [Y], [BUTTON]  x,y是相对于'object左上角的坐标，
'button值可选择0，1，2。0为左键，1为右键，2为中键


Setting.WebPackage("ReplayType") = cur_replay_type

index = 4   '粘贴操作在右键的第四个项，删除在第五个，则需要定义为5。

Set WshShell = CreateObject("Wscript.Shell")
For i = 1 To index
WshShell.sendKeys "{DOWN}"   '在弹出的右键菜单中依次下移到第四个
wait 1
Next
WshShell.sendKeys "{ENTER}"  '选择粘贴操作
wait 1
Set WshShell = nothing

browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebButton("name:=百度搜索").Click

smallmark

就业学院够厉害sdlkfj6

agreer

感谢yhzmw

终于成功了。

总结一下，yhzmw给的方法可以处理ie默认的那些右键菜单，而且可以用方向键来上下移动。
我的右键菜单有些不同，是javascript的，不能通过方向键来上下移动，我采用了下面的方法：
Browser("browser").Page("page").Frame("PageFrame").Link("新建模块").FireEvent "onmouseover"
Browser("browser").Page("page").Frame("PageFrame").Link("新建模块").Click

至于出右键菜单，主要是Setting.WebPackage("ReplayType") = 2这句，然后 click方法，选右键。

再次感谢yhzmw！！！

成长的小咪

去试试

成长的小咪

学习

成长的小咪

收藏

yuandjing

嗯，谢过yhzmw了，共同学习中

fengle

请问Setting.WebPackage("ReplayType") = 1或2到底有什么区别呀？？看QTP的帮助文档不是很明白！！

jiangdanyang

学习............

xihong2004

studing......

jimmy2006.hi

试前先顶一个sdlkfj2

jimmy2006.hi

我执行到Browser("title:=about:blank").Navigate "http://www.baidu.com/"这句话就找不到browser,用SPY看了一下，title为（未命名），我改成Browser("title:=（未命名）").Navigate "http://www.baidu.com/"还是不成，怎么解决呢？

mayuping0516

收藏  学习中sdlkfj3

zhuyuancan

问：cur_replay_type = Setting.WebPackage("ReplayType") 和Setting.WebPackage("ReplayType") = cur_replay_type这两句代码的作用是什么啊？将这两条代码注销之后程序也能执行。