Click here to Skip to main content
65,938 articles
CodeProject is changing. Read more.
Articles
(untagged)

Get Images, Links, and Website Source (Browser Extras)

0.00/5 (No votes)
16 Jul 2013 1  
Get images, links, and source code from a website.

Introduction

This will show you how to get images, links and source code from a website using a web-browser control. This can be added to an external web-browser project.

Using the Code

The code requires WebBrowser, TabControl, Richtextbox, PictureBox, (2x)ListBox.

Double click the WebBrowser control and in the DocumentCompleted Sub, add the following code:

'
RichTextBox.Text = WebBrowser.DocumentText.ToString 'Gets the source of the current website loaded
'
For Each ele As HtmlElement In WebBrowser.Document.Links
    Dim eletarget As String = ele.GetAttribute("href")
    LINKS-ListBox.Items.Add(eletarget) 'Adds the Links to the ListBox
Next
'
For Each ele As HtmlElement In WebBrowser.Document.All
    '
    If ele.GetAttribute("src").ToLower.Contains(".jpg") Then
        Dim imgsrc As String = ele.GetAttribute("src")
        IMAGES-ListBox.Items.Add(imgsrc) 'Adds all .jpg images to the ListBox
    End If
    '
    If ele.GetAttribute("src").ToLower.Contains(".png") Then
        Dim imgsrc As String = ele.GetAttribute("src")
        IMAGES-ListBox.Items.Add(imgsrc) 'Adds all .png images to the ListBox
    End If
    '
    If ele.GetAttribute("src").ToLower.Contains(".gif") Then
        Dim imgsrc As String = ele.GetAttribute("src")
        IMAGES-ListBox.Items.Add(imgsrc) 'Adds all .gif images to the ListBox
    End If
    '
    If ele.GetAttribute("src").ToLower.Contains(".bmp") Then
        Dim imgsrc As String = ele.GetAttribute("src")
        IMAGES-ListBox.Items.Add(imgsrc) 'Adds all .bmp images to the ListBox
    End If
    '
Next

Now double click the ListBox which will get the images and in the Click Sub, add the following code:

'
PREVIEW-PictureBox.ImageLocation = IMAGES-ListBox.SelectedItem.ToString
'Gets the selected image in the ListBox and previews it in the PictureBox 

Go to the DoubleClick Sub of the same ListBox as before and insert the following code:

'
WebBrowser.Navigate(IMAGES-ListBox.SelectedItem.ToString)
'Selected Image in ListBox navigates to the Image URL in the WebBrowser
'  

Finally, double click the ListBox which will get the links and in the DoubleClick Sub, add the following code:

'
WebBrowser.Navigate(LINKS-ListBox.SelectedItem.ToString)
'Selected Link in ListBox navigates to the link in the WebBrowser
'  

Points of Interest

As you can see, the code is very simple and very easy to build onto. It doesn't have to be links or images, it can also be other files and resources.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here