Question

vb WebBrowser 触发按钮

网页代码如下：
<P style="TEXT-ALIGN: center; WIDTH: 700px">
<FORM id=form1 method=post name=form1
action=zhidao_dati_jieguo.asp>你选择的答案是：<SELECT id=Udanan name=Udanan> <OPTION
selected value="">请选择</OPTION> <OPTION value=1>A</OPTION> <OPTION
value=2>B</OPTION> <OPTION value=3>C</OPTION> <OPTION
value=4>D</OPTION></SELECT>    验证码:<INPUT id=CheckCode size=10
type=text name=CheckCode><IMG style="CURSOR: pointer"
onclick=this.src+=parseInt(Math.random()*10) alt=看不清楚？点击更换下一张。 align=absMiddle
src="为明学堂-开心辞典_files/checkcode1.asp" height=23 width="115"> <INPUT style="BACKGROUND-COLOR: #0099cc" onclick=form_check() value=提交答案 type=button>
<INPUT value=dati_submit type=hidden name=action><INPUT value=21505 type=hidden
name=Qid> </FORM><INPUT style="BACKGROUND-COLOR: #cccccc" onclick="javascript: window.location='zhidao_dati.asp'" value=跳过，挑战下一题 type=button>
</P></DIV></DIV></DIV></DIV></DIV>
<DIV id=footer>

我要触发的是"提交答案"按钮，请问怎么做？

Answer 1

Private Sub Command1_Click()
For Each obj In WebBrowser1.Document.getelementsbytagname("input")
If obj.value = "提交答案" Then obj.Click
Next
End Sub