Question

VB WebBrowser1模拟点网页按钮

一。请教怎样用VB WebBrowser1 来点 这个“发送” 按钮呢，

<INPUT class=btnStyle type=submit value=发送 name=submit1>

二。怎样把说话的人名字 写进 “所有人” 这里，就是给这个下拉菜单添加内容

<SELECT class=editStyle
style="WIDTH: 88px" onchange=parent.cs(this.value) name=talkto><OPTION
value=所有人 selected>所有人</OPTION>

Answer 1

如果网页不是框架结构的话可以这样写：
For i = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All.Item(i, 0).Name = "submit1" Then
WebBrowser1.Document.All.Item(i, 0).Click
Exit For
End If
Next