UC知道如何用VB选中网页的复选框并提交页面
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:57:15
我用了Webbrowser空间来显示网页
投票的提交按钮代码如下：
<div id="vote"><input value="投票" onclick="send()" type="button"></div>
复选框代码：
<input name="check1" id="check1" value="" onclick="onclick(this)" type="checkbox">
请教高手如何选中复选框并点击投票按钮！
请大家提供经过测试的代码，我已经给出了HTML源码，如果解决了问题再加分！
顺便说一下，这个网页用了InnerHTML！
3、4楼： 执行后报错：对象变量或With块变量未设置|实时错误91！
投票的提交按钮代码如下：
<div id="vote"><input value="投票" onclick="send()" type="button"></div>
复选框代码：
<input name="check1" id="check1" value="" onclick="onclick(this)" type="checkbox">
请教高手如何选中复选框并点击投票按钮！
请大家提供经过测试的代码，我已经给出了HTML源码，如果解决了问题再加分！
顺便说一下，这个网页用了InnerHTML！
3、4楼： 执行后报错：对象变量或With块变量未设置|实时错误91！
Private Sub Command1_Click()
WebBrowser1.Document.All("check1").Checked = True
End Sub
Private Sub Command2_Click()
WebBrowser1.Document.All("vote").firstchild.Click
End Sub
Private Sub Form_Load()
Form1.WebBrowser1.Navigate App.Path & "\1.htm"
Command1.Caption = "复选框"
Command2.Caption = "投票"
End Sub
1.htm 的代码就是
投票的提交按钮代码如下：
<div id="vote"><input value="投票" onclick="send()" type="button"></div>
复选框代码：
<input name="check1" id="check1" value="" onclick="onclick(this)" type="checkbox">
其实楼上说的已经很清楚了
Private Sub Command1_Click()
Web.Navigate2 "http://123.123.com/123.asp" ‘打开网页
End Sub
'下边就是关健