如何更好录制HTML编辑器

郁金香

我现在录制的程序中有三个html编辑器，由于QTP无法录制下在html编辑器中输入的文字，我采用的是object.write方法写入文字，如果为一个的话，回话没什么问题，但是现在是三个，回放时，它在向html编辑器中写文字时，不是我想象中的在指定的编辑器中输入文字。添加识别属性也不行。在此，想问各位，有没有别的办法实现向html编辑器中写文字

surlary

输入框的class是什么？

xueqinzhaoqing

识别出的对象是webelement

surlary

先看看OR里面这三个编辑器是不是分别被正确识别了，如果正确就可以先调用Click事件然后调用WScript.Shell来模拟按键操作。否则先要根据三个编辑器的属性进行设置，好让OR能分清楚这三个。

xueqinzhaoqing

WScript.Shell 我还没有用过。如何实现？

surlary

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

复制代码

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

xueqinzhaoqing

谢谢你的回答，问题已经解决

kangaroo

这里指的class是spy查出的class name 还是class ?

surlary

Class Name

kangaroo

O  i see  3kx

gzj_06

原帖由 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-7-30 10:18 发表
我现在录制的程序中有三个html编辑器，由于QTP无法录制下在html编辑器中输入的文字，我采用的是object.write方法写入文字，如果为一个的话，回话没什么问题，但是现在是三个，回放时，它在向html编辑器中写文字 ...

我用object.write方法在网易126邮箱中试了下，果然可以写入文字，但只可惜最后一步点击发送按钮貌似操作无效，还不知怎么回事

yabest

原帖由 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只能输入键盘按键，不能输入中文等文字。不过可以通过粘贴板来实现中文输入。