Breadcrumbs

[dj1437]

Hey guys,
I was recently working on Webquest, and I was wondering, when the browser finishes loading the document, how would i be able to make the websites favicon become the forms icon? Thanks!

[clanc789]

You could try the getelemenetbyid functoin? I dont know much about this really but give it a try.

[comathi]

You might be able to tweak this a bit:

Code: Select all

        Dim iconURL = "http://www.microsoft.com/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim mimage = Image.FromStream(stream)
        Me.ToolStripLabel1.Image = mimage
 

Taken from http://social.msdn.microsoft.com/Forums ... 12b1cbc317

[Skillful]

A bit tweaked version of Comathi :P

Code: Select all

Dim iconURL = "http://" + txtURL.Text +"/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim mimage = Image.FromStream(stream)
        Me.PictureBox1.Image = mimage

[dj1437]

I have used those codes provided, but I still cant find out how to fix my problem. Please help!!! :(

[Usman55]

Tell us how the text is displayed in your textbox. I'd send you the working code but I'm not on my computer now.

[Download]

Code: Select all

Dim iconURL = Webbrowser1.Url.Tostring + "/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim mimage = Image.FromStream(stream)
        Me.PictureBox1.Image = mimage

this should work

[Martin]

A bit tweaked version of Skillful :P

Code: Select all

Dim iconURL = "http://" + txtURL.Text +"/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim mimage = Image.FromStream(stream)
        Me.PictureBox1.Image = mimage
        Msgbox("Done")

[Vikhedgehog]

A bit tweaked version of Martin :P

Code: Select all

Dim iconURL = "http://" + txtURL.Text +"/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim mimage = Image.FromStream(stream)
        Me.PictureBox1.Image = mimage
        Msgbox("Done! Yay!")

[Download]

A bit tweaked version of Vikhedgehog's

Code: Select all

Dim iconURL = webbrowser1.url.tostring +"/favicon.ico"
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        Dim iconimage = Image.FromStream(stream)
        PictureBox1.Image = iconimage
        Msgbox("Loading Done")