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

全站熱搜
創作者介紹
創作者 createps 的頭像
createps

遊戲人生 人生遊戲

createps 發表在 痞客邦 留言(0) 人氣()

E-mail轉寄