VB自动填表问题 bs自动填表的实现
|
VB自动填表问题 自动填写下面的表单标题栏：<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" 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 IfEnd Sub （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |