投稿者 パル36  (学生) 投稿日時 2011/8/6 13:03:21
こんにちは。今回も画像検索について質問させてください。

Googleの画像検索で例えば「テスト」と検索します。
真ん中に画像一覧が表示されるのですが、この表示されている画像のアドレスを取得するのはどうすれば良いのでしょうか。

現在、コードでは下のように取得しています。
Dim Body As HtmlElement = BrowserMain.Document.Body 'BrowserMain(WebBrowser)からソースを取得 
Dim Images As HtmlElementCollection = Body.GetElementsByTagName("img"'Img要素を取得 

        For Each Img As HtmlElement In Images '取得したImg要素を1つずつ繰り返す。 
            Dim src As String = Img.GetAttribute("src"'src属性(アドレス)を代入 
            Dim ext As String = Path.GetExtension(src) '変数srcから拡張子だけを取得して代入 

            If src.Length = 0 Then '文字数が0のとき(アドレスがないとき) 
                lstFile.Items.Remove(src) 'リストからアイテムを削除  
            Else
                lstFile.Items.Add(src) '文字があれば追加 
            End If

'別のリスト(lstExt)に変数extの値を追加します。 
            If Not lstExt.Items.Contains(ext) Then '別のリストに拡張子がないなら追加 
                lstExt.Items.Add(ext, True)
            End If
        Next



(コメントを今つけたので、見にくいかもしれません)

これで取得されるのですが、アドレスがエンコードされたようにアルファベットだらけになります。
(例)http://t1.gstatic.com/images?q=tbn:ANd9GcQdhaJCva2PkXBwUfnJK_zvu8LtNP0n3Y8e_ObbQ2t6VSM3Iq2gpg
どうしたらもとのアドレスが取得できるのでしょうか。

ちなみにそのへんなアドレスでも、画像を表示することができます。

宜しくお願いします。