HTMLソースからリンク部のURLを獲得するには？ (ID:87754)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

1)テキストボックスにキーワードを入力
2)「検索」ボタンを押すとGoogleなどの検索エンジンにキーワードを引き渡す
3)Googleなどの検索エンジンから返却されたHTMLソースを獲得する
4)獲得したHTMLソースから検索結果であるURLを抜き出す

というようなものをVB６で作りたいと考えています。
私は4)の部分で戸惑っています。IE.documentを使用してソースからURLを抜き出すことは可能なのでしょうか？

私と同じものを作ろうとしている方が結構おられるようなので、過去ログなどで調べて私なりに組み立てたプログラムを載せておきます。
Option Explicit

Dim IE                      As Object

Private Sub Command1_Click()
    'IE.Visible = True
    SyncNavigate "http://www.google.ne.jp"
    IE.document.All.Item("q").Value = Text1.Text
    Call IE.document.Forms.Item(0).submit
    
    Call LoopWhileBusy
    Call test

End Sub

Private Sub Form_Load()
    Set IE = CreateObject("InternetExplorer.Application")
    Text1.Text = ""
End Sub

Sub SyncNavigate(ByVal URL As String)
    IE.Navigate URL
    Call LoopWhileBusy
End Sub

Sub LoopWhileBusy()
    Do
        DoEvents
    Loop While IE.Busy
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    IE.Quit
    End
End Sub

Private Sub test()
    Debug.Print IE.document.getElementsByTagName("HTML").Item(0).outerHTML
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る