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

Mr.chenzx

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

Mr.chenzx

示例一：

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

cool

默默巫

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

david208

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

liyayaliutao

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

Mr.chenzx

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

Old々Man

Window Script Host

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

Mr.chenzx

我认为应该是Windows  Script  Host