Private Sub Form_Load()
 WebBrowser1.Navigate "http://tw.knowledge.yahoo.com/question/question?qid=1608022401307"
End Sub

 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 For i = 0 To WebBrowser1.Document.body.All.length
  If Not (WebBrowser1.Document.body.All(i) Is Nothing) Then
   If WebBrowser1.Document.body.All(i).tagName = "IMG" Then Debug.Print WebBrowser1.Document.body.All(i).href
  End If
 Next i
End Sub

 

arrow
arrow
    全站熱搜

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

    E-mail轉寄