51Testing软件测试论坛

标题: 怎么产生右击，出菜单 [打印本页]

作者: agreer 时间: 2007-6-20 15:18
标题: 怎么产生右击，出菜单
我要录制的网页上要有个右击，出现菜单，选择其中一项，弹出一个窗口。

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

请大家帮忙。

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

作者: agreer 时间: 2007-6-20 17:23
暂时找到一个方法，就是换个录制模式，转用模拟录制，把出菜单这步录下来了。回放通过。

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

希望大家继续给与建议。

作者: yhzmw 时间: 2007-6-20 22:03
在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 时间: 2007-6-21 09:14
标题: 支持！
就业学院够厉害sdlkfj6

作者: agreer 时间: 2007-6-21 11:46
感谢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！！！

作者: 成长的小咪 时间: 2007-6-23 08:31
去试试

作者: 成长的小咪 时间: 2007-6-23 08:31
学习

作者: 成长的小咪 时间: 2007-6-23 08:31
收藏

作者: yuandjing 时间: 2007-6-26 11:35
嗯，谢过yhzmw了，共同学习中

作者: fengle 时间: 2007-6-26 15:49
请问Setting.WebPackage("ReplayType") = 1或2到底有什么区别呀？？看QTP的帮助文档不是很明白！！

作者: jiangdanyang 时间: 2007-6-26 16:29
学习............

作者: xihong2004 时间: 2007-6-26 23:01
studing......

作者: jimmy2006.hi 时间: 2007-6-27 09:43
试前先顶一个sdlkfj2

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

作者: mayuping0516 时间: 2007-8-29 15:43
收藏学习中sdlkfj3

作者: zhuyuancan 时间: 2007-8-30 10:41
问：cur_replay_type = Setting.WebPackage("ReplayType") 和Setting.WebPackage("ReplayType") = cur_replay_type这两句代码的作用是什么啊？将这两条代码注销之后程序也能执行。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)