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.