Hallo Community,
ich wollte hier mal reinstellen wie man ein Favicon ohne einen Download also ohne das man die datei in einem Ordner hat bekommt.
Ich hoffe ich konnte einigen weiterhelfen!
EDIT: man kann jetzt jede beliebige Seite eingeben zB:
dann sucht er sich den Hauptteil herraus - in diesem Fall vb-paradise.de - und zeigt das Favicon davon an!
ich wollte hier mal reinstellen wie man ein Favicon ohne einen Download also ohne das man die datei in einem Ordner hat bekommt.
Quellcode
- Imports System.Net
- Imports System.IO
- Public Class FaviconDownloader
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- PictureBox1.BackgroundImage = GetFavicon(New Uri(ÜberprüfeURL(TextBox1.Text)))
- End Sub
- Function GetFavicon(ByVal URl As Uri) As Image
- Dim dURl As String = URl.Authority
- Dim dieUrl As String = ÜberprüfeURL(dURl) 'Url wird überprüft (http davor gesetzt
- Dim Req As WebRequest = WebRequest.Create(dieUrl & "/favicon.ico") 'Eine neue Anfrage wird erstellt für das icon
- Dim res As WebResponse = Req.GetResponse 'Die antwort wird geholt
- Dim s As New StreamReader(res.GetResponseStream) 'Der Antwort Stream wird ausgelesen mit einem StreamReader
- Dim bild As Image = Image.FromStream(s.BaseStream) 'Das Bild wird von dem Stream erstellt
- Return bild 'Das Bild wird zurückgegeben
- End Function
- Function ÜberprüfeURL(ByVal URL As String) As String
- Dim fertig As String = URL
- If Not fertig.StartsWith("http://") Then fertig = "Http://" & URL
- Return fertig
- End Function
- End Class
Ich hoffe ich konnte einigen weiterhelfen!
EDIT: man kann jetzt jede beliebige Seite eingeben zB:
dann sucht er sich den Hauptteil herraus - in diesem Fall vb-paradise.de - und zeigt das Favicon davon an!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „progglord“ ()