以下是《摘抄》，非原创
QTP中WebElement对象的赋值
由于一般web上面的编辑控件，QTP都识别成WebElement对象，所以在编辑框中输入的内容，QTP没有录制下来，以下代码实现了WebElement的赋值：
Dim MyWebElement
Set MyWebElement = Browser("Tencent BBS V3.1_2").Page("Community Server - 回复内容").Frame("Frame").WebElement("WebElement").Object
MyWebElement.innerHTML = "替换成要输入的内容即可"
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
QTP中对识别为WebElement的对象进行输入操作的一种解决办法
在设计自动化框架的过程，发现了一些被QTP识别为WebElement的对象，需要对其进行输入操作；而WebElement只有click方法，是没有输入的方法的。
考虑了实际中确实需要具有这种输入的支持(比如利用js生成的输入框，比较常见的是HTML编辑器输入框)，就着手去解决。找到了一种解决办法：利用WshShell对象的SendKey方法来实现。在网上找了个html代码编辑器的实例，实现具体代码如下：
Option Explicit
Dim oWin32
Set oWin32 = CreateObject("wscrīpt.shell")
oWin32.Run("http://www.ewebeditor.net/demo/")
'由于html编辑器输入框没有找到稳定的属性用于识别，QTP录制时也没有录下对其操作，所以采用先将焦点移到其上一个对象，再按tab移动焦点到html编辑器上
Browser("title:=.*eWebEditor").page("title:=.*eWebEditor").WebList("name:=select","index:=0").FireEvent "onfocus"
'对IE窗口模拟键盘输入操作
With oWin32
.sendkeys "{TAB}"
wait 2
.sendkeys "ksadjflonfocusksjdlemowstitlitoWebLeEvenfocusonfocusonfocusonfocusonfocusonfocusonfocusdsjflkjdsklfjlkdsjf"
End With
以上是我想到的一种实现方式，也是目前正在使用的方式。但只是一个不得已的解决方法——因为这种方式是很脆弱的，焦点变动，甚至一个Windows消息提示都可能使脚本失败。
欢迎交流更好的解决思路！
