QTP之右键录制.

上一篇 / 下一篇  2009-10-21 16:45:01 / 个人分类:QTP

 

例如作这样一个录制(鼠标右击开始菜单,选取属性)
  使用Wscript.Shell的方法如何录制:

Window("Window").WinButton("开始").Click 0, 0, micRightBtn    '选择对象
  Dim Wsh,n                                        '定义参数,其中N向上向下移动的次数.
  n=7 '对应循环的次数
  Set Wsh=CreateObject("Wscript.Shell")
  For i=1 to n
  wait 1                                       '等待一秒可以清楚地看到效果
 Wsh.SendKeys "{UP}"              ' 相当于鼠标向上移动三次DOWN为向下.


  Next
  Wsh.SendKeys "{Enter}"          '按下回车键选取属性
  Set Wsh=nothing '释放Wsh变量

附: wsh键值表
键          参数
退格键      {BACKSPACE}、{BS}或{BKSP}
BREAK       {BREAK}
CAPS LOCK   {CAPSLOCK}
DEL或DELETE{DELETE}或{DEL}
下箭头      {DOWN}
END         {END}
ENTER       {ENTER}或~
ESC         {ESC}
HOME        {HOME}
INS或INSERT{INSERT}或{INS}
左箭头      {LEFT}
NUM LOCK    {NUMLOCK}
PAGE DOWN   {PGDN}
PAGE UP     {PGUP}
PRINT SCREEN{PRTSC}
右箭头      {RIGHT}
SCROLL LOCK{SCROLLLOCK}
TAB         {TAB}
上箭头      {UP}
F1、F2、F3...{F1}、{F2}、{F3}Q


TAG:

 

评分:0

我来说两句

Open Toolbar