51Testing软件测试论坛

标题: 如何录制或实现右键菜单操作？ [打印本页]

作者: Mr.chenzx 时间: 2008-11-12 22:35
标题: 如何录制或实现右键菜单操作？
请高手指点一下啊！
如何使用QTP录制或实现WEB或Windows应用程序下的右键菜单操作？

作者: Mr.chenzx 时间: 2008-11-13 13:34
标题: 自问自答吧
示例一：

rem 在一个页面的某链接上按右键
Browser("Google").Page("qwewqe - Google 搜索").Link("qwewqe 的博客空间联城网[免费发布信息][分类信息,信").Click micRightBtn

Dim wshShell
   Set wshShell = CreateObject("WScript.Shell")
'模拟键盘操作，向下移动两次
For i=1 to 2
wshShell.SendKeys "{DOWN}" '模拟键盘操作
Next
'模拟键盘操作，按回车键，完成在新窗口中打开链接
wshShell.SendKeys "{ENTER}"

示例二：

em  在Word中复制粘贴一段文字的右键操作
'选择需要复制的原文字，Drop后面的内容定义了文字块的坐标
Window("Microsoft Word").WinObject("Microsoft Word 文档").Drag 510,180
Window("Microsoft Word").WinObject("Microsoft Word 文档").Drop 645,178
'按右键
Window("Microsoft Word").WinObject("Microsoft Word 文档").Click 576, 182, micRightBtn

Dim wshShell
   Set wshShell = CreateObject("WScript.Shell")
'模拟键盘操作，向下移动两次
For i=1 to 2
wshShell.SendKeys "{DOWN}" '模拟键盘操作
Next
'模拟键盘操作，按回车键，完成复制操作
wshShell.SendKeys "{ENTER}" '模拟键盘操作

'在需要粘贴的位置按右键
Window("Microsoft Word").WinObject("Microsoft Word 文档").Click 393, 564, micRightBtn
'模拟键盘操作，在右键菜单上向下移动三次，按回车键，完成粘贴操作
For i=1 to 3
wshShell.SendKeys "{DOWN}" '模拟键盘操作
Next
wshShell.SendKeys "{ENTER}" '模拟键盘操作

作者: intothestorm 时间: 2008-11-13 13:37
cool

作者: 默默巫 时间: 2008-11-14 15:16
- -楼主还真是自问自答．

作者: david208 时间: 2008-11-14 15:53
WScript.Shell是什么东东是封装好的sh??这不是linux下的吗？

作者: liyayaliutao 时间: 2008-11-14 16:10
学习了.....不错的东西

作者: Mr.chenzx 时间: 2008-11-15 12:24
WshShell对象提供对本地 Windows 外壳程序的访问的对象。
可以在QTP帮助文档中搜索“WshShell”找到说明。

作者: Old々Man 时间: 2008-11-15 12:34
Window Script Host

[ 本帖最后由 Old々Man 于 2008-12-1 11:55 编辑 ]

作者: Mr.chenzx 时间: 2008-11-15 13:01
我认为应该是Windows Script Host

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