VB自动填表问题80分求解

自动填写下面的表单标题栏:<inputname="subject"id="subject"class="txt"value=""tabindex="1"/></span>... 自动填写下面的表单
标题栏:<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>

请哪位高手给出完整代码谢谢 最好加上注释
展开
 我来答
intehel
2009-03-13 · TA获得超过1293个赞
知道大有可为答主
回答量:1601
采纳率:100%
帮助的人:1761万
展开全部
引用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" class="txt" style="height:50px"></textarea>
'<button type="submit" id="postsubmit" value="true" name="topicsubmit" tabindex="1" onclick="javascript:alert(1);">提交</button>
'</body></html>

'by xsoft [http://281131020.qzone.qq.com]

'要自动填写的话,加入下列代码:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Command1.Value = True
End If
End Sub
老人与孩v动手洞脑
2009-03-13 · TA获得超过599个赞
知道小有建树答主
回答量:400
采纳率:0%
帮助的人:328万
展开全部
在你上面的表单代码之后加上那个这段代码,页面加载后,表单就会被填充你指定的内容
<script language="javascript">
document.getElementById("subject").value="自定义主题";
document.getElementById("e_textarea").innerText="自定义内容";
</script>
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hbs_hxgs
2009-03-13 · 超过48用户采纳过TA的回答
知道小有建树答主
回答量:248
采纳率:0%
帮助的人:158万
展开全部
把网页发出来看看
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
binuisoft
2009-03-13 · TA获得超过1449个赞
知道小有建树答主
回答量:385
采纳率:0%
帮助的人:420万
展开全部
把网址发上来,才行的呀。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ok100fen
2009-03-13 · 超过28用户采纳过TA的回答
知道答主
回答量:313
采纳率:0%
帮助的人:0
展开全部
网址发上来
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 3条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式