Question

VB中webbrowser的应用，获取数据

我用webbrowser制作了登陆窗口，并通过登陆窗口进去到网页，成功了，可是进去网页后，我想自动打开其中的一个链接，这时候不知道怎么写代码了，
网页部分代码如下： <li> <a class="tab" href="#news"> <span>News </span> </a> </li>
<li> <a class="tab" href="#work"> <span>Captcha </span> </a> </li>
<li> <a class="tab" href="#payments"> <span>Payments </span> </a> </li>
<li> <a class="tab" href="#profile"> <span>Profile </span> </a> </li>
我想自动打开Captcha的链接，请问该如何做呢，打开这个链接后，我想网页在webbrowser中的显示的是网页的底部，有如下代码：WebBrowser1.Document.body.scrollTop = WebBrowser1.Document.body.scrollHeight

请问这个自动打开连接改如何实现呢？

网页中还有个数据， 部分网页代码如下：tr>
<td>Ballance (updated with 2 minutes delay) : <div id="ballance" style="color:#cc0000">0.000 </div> </td>
</tr>
我想在VB上弄个标签，和0.000这个数据同步，请问，该如何做？

Answer 1

Private Sub Command1_Click()
WebBrowser1.Navigate WebBrowser1.LocationURL & "#work"
End Sub
_________________________________________________________________
这段代码用来自动导航到Captcha。
—————————————————————————————————————
到网页的最底部这个功能我找过了还没找到。
——————————
Private Sub Label1_Click()
Dim i
For i = 1 To WebBrowser1.DataBindings.Count
With WebBrowser1.DataBindings.Item(i - 1)
If .DataField = "0.0000" Then Label1.Caption = .DataSource
End With
Next i
End Sub