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" οnclick="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
2795
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
