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

arrow
arrow
    全站熱搜

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

    E-mail轉寄