QTP 实现右键操作菜单

自动化测试过程中难免会碰到对对象的右键操作，普通录制是无法录制成功的，在脚本里面可以设置回放模式为2，即模拟鼠标操作。

具体代码如下：

            Dim ip_folderName ，arr_ip_folderName 

         ip_folderName =  "其他文件夹||已删除" '

        arr_ip_folderName =  Split (ip_folderName, "||" ,- 1 , 1 )
         Set  wshShell =  CreateObject ( "WScript.Shell" )
         Setting.WebPackage( "ReplayType" ) =  2    'set reply mode

          For  i =  0   To   ubound (arr_ip_folderName)
              If  arr_ip_folderName(i) =  "收件箱"   Then
                   currentPage.WebElement( "innertext:=" &arr_ip_folderName(i)& "(.)*" , "index:=2" ).Click ,,micRightBtn
               Else
                 currentPage.WebElement( "text:=" &arr_ip_folderName(i)& "(.)*" , "index:=0" ).Click ,,micRightBtn
              End   If     
                    wshShell.SendKeys  "{DOWN}"   '键盘向下的箭头
                    wshShell.SendKeys  "{ENTER}"   '回车键
              wait   3
         Next

        Setting.WebPackage( "ReplayType" ) =  1   'reset reply mode