vb.net image url grabber

note does not work on images.google.com
have not tested on facebook images

whats needed
2 textboxes
1 button 
1 webbrowser


small code for app source





Code:
Public Class Form1
   
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = New Point(924, 405)
    End Sub

  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")

        For Each CurElement As HtmlElement In PageElements

            TextBox2.Text = TextBox2.Text & CurElement.GetAttribute("src") & Environment.NewLine

        Next
    End Sub
End Class


.zip   imageurlgrabber.zip (Size: 74.62 KB / Downloads: 2)

* This article was originally published here

Comments