发布新日志

  • QTP之右键录制.

    2009-10-21 16:45:01

     

    例如作这样一个录制(鼠标右击开始菜单,选取属性)
      使用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

  • QTP测试修改脚本之 修改对象

    2009-02-04 15:58:57

    以qtp自带的定机票网页来进行举例:

    在定完机票后,有两个按钮可以选择,一个是"back to flights",另一个是“back to home”,在录制脚本时,选择的是“back to home”,录制完成的脚本如下: 下面部分省略

    Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "88888888"
    Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebCheckBox("ticketLess").Set "ON"
    Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 69,8
    Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("home").Click

    在qtp的keyword view 中item字段查看到的对象为“home”

    2、实际操作时,我们需要将此处修改为“点击的是back to flight按钮,以便可以重复定票”

    3、操作:点击home后面的下拉箭头,选择"object from repository",则弹出slect object for step对话框。点击“手型图片”选中 对应网页的“back to flight”按钮,确定后即可。

    脚本即为:

    Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury_2").Image("backtoflights").Click

     

    重新回放,即可以反馈到对应的网页。。

     

    以上是我找到的修改方法,如果大家有更好的方法,记得告诉我哈

     

     

  • QTP9.5版本的delphi插件

    2009-02-04 15:22:35

    找到一个9.5的delphi插件,放上来,,需要的可以下载
  • QTP测试Delphi项目点滴记载-添加对象

    2009-02-04 15:18:07

    我的qtp是9.2的版本,没有安装delphi的插件,故qtp不能识别delphi的很多控件,导致,录制的时候可以录制成功,但是回放的时候始终不能识别到相应的对象,就需要用qtp的Object Identification工具进行对象的添加。

    步骤:

    1、录制后察在keyword view中,找到那个你需要自定义的控件所在的条目,点右键,有一个object propertys,看一下里面的条目,大部分默认使用window id做识别。这个delphi由于有些不是window的标准控件,故这个市没有用的。。这一步需要记录下属性中的nativeclass值,如“edit”

    2、打开Object Identification工具,点击“User-Defined”,在弹出的对话框class name中输入刚才记录下的名称“Edit”,后面选择其继承于“map to”,在下拉框中找到其父类。如改处的编辑框,其父类选择:singline edit

    3、在自定义的控件Assisive Properties 中选择x  y (表示控件的坐标,相对值),删除windows id项

    4、完成设置后确定,重新录制后,就可以回放成功了。

     

     

    以后操作适用于QTP不能识别的控件的自定义

Open Toolbar