51Testing软件测试论坛

标题: 如何更好录制HTML编辑器 [打印本页]

作者: 郁金香    时间: 2007-7-30 10:18
标题: 如何更好录制HTML编辑器
我现在录制的程序中有三个html编辑器,由于QTP无法录制下在html编辑器中输入的文字,我采用的是object.write方法写入文字,如果为一个的话,回话没什么问题,但是现在是三个,回放时,它在向html编辑器中写文字时,不是我想象中的在指定的编辑器中输入文字。添加识别属性也不行。在此,想问各位,有没有别的办法实现向html编辑器中写文字
作者: surlary    时间: 2007-7-30 11:03
输入框的class是什么?
作者: xueqinzhaoqing    时间: 2007-7-30 15:09
识别出的对象是webelement
作者: surlary    时间: 2007-7-30 15:19
先看看OR里面这三个编辑器是不是分别被正确识别了,如果正确就可以先调用Click事件然后调用WScript.Shell来模拟按键操作。否则先要根据三个编辑器的属性进行设置,好让OR能分清楚这三个。
作者: xueqinzhaoqing    时间: 2007-7-30 16:43
标题: 回复surlary
WScript.Shell 我还没有用过。如何实现?
作者: surlary    时间: 2007-7-30 17:04

  1.         Public Sub SendKeys(strWords)
  2.                 Dim WSH
  3.                 On Error Resume Next
  4.                 Set WSH = CreateObject("WScript.Shell")
  5.                 WSH.SendKeys strWords
  6.                 Set WSH = Nothing
  7.         End Sub
复制代码

首先点击要输入的编辑器,然后调用SendKeys "your contents here..."
作者: xueqinzhaoqing    时间: 2007-7-31 13:07
标题: 回复surlary
谢谢你的回答,问题已经解决
作者: kangaroo    时间: 2007-8-23 12:08
标题: 回复 #2 surlary 的帖子
这里指的class是spy查出的class name 还是class ?
作者: surlary    时间: 2007-8-23 13:25
Class Name
作者: kangaroo    时间: 2007-8-23 16:26
标题: 回复 #9 surlary 的帖子
O  i see  3kx
作者: gzj_06    时间: 2007-8-23 22:07
原帖由 surlary 于 2007-7-30 17:04 发表

        Public Sub SendKeys(strWords)
                Dim WSH
                On Error Resume Next
                Set WSH = CreateObject("WScript.Shell")
                WSH.SendKeys strWords
                Set WSH = Nothing
        End Sub

首先点击要输入的编辑器,然 ...
首先编译器一定要能先被识别,是吧,否则用这个方法是不行的
作者: gzj_06    时间: 2007-8-23 22:24
标题: 回复 #1 郁金香 的帖子
原帖由 郁金香 于 2007-7-30 10:18 发表
我现在录制的程序中有三个html编辑器,由于QTP无法录制下在html编辑器中输入的文字,我采用的是object.write方法写入文字,如果为一个的话,回话没什么问题,但是现在是三个,回放时,它在向html编辑器中写文字 ...
我用object.write方法在网易126邮箱中试了下,果然可以写入文字,但只可惜最后一步点击发送按钮貌似操作无效,还不知怎么回事
作者: yabest    时间: 2007-8-24 02:27
原帖由 surlary 于 2007-7-30 17:04 发表

        Public Sub SendKeys(strWords)
                Dim WSH
                On Error Resume Next
                Set WSH = CreateObject("WScript.Shell")
                WSH.SendKeys strWords
                Set WSH = Nothing
        End Sub

首先点击要输入的编辑器,然后调用SendKeys "your contents here..."


SendKeys只能输入键盘按键,不能输入中文等文字。不过可以通过粘贴板来实现中文输入。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2