Post by Nathan Lecompte on Jan 16, 2014 16:12:18 GMT 10
Get Images, Links, and Website Source (Browser Extras)Download Source Code : BrowserExtras_-TUTORIAL-.zip (126.2 KB)IntroductionThis 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 codeThe 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 ' OverviewAs 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. I hope you found this article interesting, if you have any problems please leave a reply.
|
|
Post by zealot on Mar 30, 2016 5:47:54 GMT 10
It says its dangerous
|
|