kooyee ‘s blog

请问，如何调用呢？

看看这段代码

Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.Length - 1 '检测所有标签

If UCase(vDoc.All(i).innerText) = "INPUT" Then '找到input标签

Set vTag = vDoc.All(i)

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Private Sub Command2_Click()
Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.Length - 1 '检测所有标签

If UCase(vDoc.All(i).innerText) = "INPUT" Then '找到input标签

Set vTag = vDoc.All(i)
End If
Next
Text1.Text = vTag

End Sub


还是不可以？上面是我做的我想把读到的内容存到TEXT1.TEXT中？

我试过了可以读到网页里的文字信息，TKS

但读的HTML代码.会乱码.

是不是不支持unicode？

Click a arrow on a google web site automaticly.

--------------------------------------------------------------------------------

I want to write a code to click automaticly the "next arrow" or the "last arrow" on the bottom of the following web site.

http://www.google.com/finance/stocks...rt=&sortOrder=

I know the htmlText for these two arrow is as following:


HTML Code:
<DIV class=tpbd closure_hashCode_f042o7="42">
<DIV class=SP_arrow_next></DIV></DIV>
<DIV class=tpsd>21 - 40 of 2658 rows</DIV>
<DIV class=tpbd closure_hashCode_f042o7="41">
<DIV class=SP_arrow_previous></DIV></DIV>
<DIV class=tpbd closure_hashCode_f042o7="40">
<DIV class=SP_arrow_first></DIV></DIV><SELECT class=tpdd
closure_hashCode_f042o7="39"><OPTION value=10>10</OPTION><OPTION selected
value=20>20</OPTION><OPTION value=30>30</OPTION></SELECT>
<DIV class=tpsrd>Show rows:</DIV>
But I can not find a way write it. If anybody can show me how to do it, will be deep appreciated.