VB自动填表问题80分求解

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:32:37
自动填写下面的表单
标题栏：<input name="subject" id="subject" class="txt" value="" tabindex="1" /></span>
内容栏：<textarea class="autosave max" name="message" id="e_textarea" tabindex="1" class="txt" style="height:300px"></textarea>
提交按钮：<button type="submit" id="postsubmit" value="true" name="topicsubmit" tabindex="1">
提交</button>

请哪位高手给出完整代码谢谢 最好加上注释

引用Microsoft HTML Object Library

代码：
Option Explicit

Private Sub Command1_Click()
Dim doc As MSHTML.HTMLDocument
Set doc = WebBrowser1.document

Dim inpute As MSHTML.IHTMLInputElement
Set inpute = doc.getElementById("subject")
inpute.Value = "这是要填的subject"

Dim e As MSHTML.IHTMLElement
Set e = doc.getElementById("e_textarea")
e.Value = "message"

Set e = doc.getElementById("postsubmit")
e.Click
End Sub

Private Sub Form_Load()
WebBrowser1.navigate "h:\1.html"
End Sub

'以下是1.html的内容
'<html><body>
'<input name="subject" id="subject" class="txt" value="" tabindex="1" />
'<textarea class="autosave max" name="message" id="e_textarea" tabindex="1&