如何录制或实现右键菜单操作？

Mr.chenzx 发表于 2008-11-12 22:35:30

请高手指点一下啊！
如何使用QTP录制或实现WEB或Windows应用程序下的右键菜单操作？

Mr.chenzx 发表于 2008-11-13 13:34:25

自问自答吧

示例一：

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:15

cool

默默巫 发表于 2008-11-14 15:16:26

- -楼主还真是自问自答．

david208 发表于 2008-11-14 15:53:21

WScript.Shell是什么东东是封装好的sh??这不是linux下的吗？

liyayaliutao 发表于 2008-11-14 16:10:42

学习了.....不错的东西

Mr.chenzx 发表于 2008-11-15 12:24:24

WshShell对象提供对本地 Windows 外壳程序的访问的对象。
可以在QTP帮助文档中搜索“WshShell”找到说明。

Old々Man 发表于 2008-11-15 12:34:37

Window Script Host

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

Mr.chenzx 发表于 2008-11-15 13:01:25

我认为应该是WindowsScriptHost

页: [1]

51Testing软件测试论坛 's Archiver

如何录制或实现右键菜单操作？

自问自答吧