Dim 下一頁 As mshtml.HTMLAnchorElement = Nothing
For Each objElement As mshtml.HTMLAnchorElement In frm1.contentWindow.document.getElementsByTagName("A")
If objElement.innerText IsNot Nothing AndAlso objElement.innerText.Trim() = "下一頁 ▼" Then
下一頁 = objElement
瀏覽內頁(下一頁)
Exit For
End If
Next
請先 登入 以發表留言。