Hallo,
mein Programm speichert LesezeichenLinks
in My.Settings ab. Diese bekomme ich auch
wieder hergestellt. Nur möchte ich dann noch
einen kleinen Webbrowser (nur für diese Abfrage)
nach der URL suchen lassen und dort versuchen
das Favicon.ico downzuloaden. Das funktioniert
aber nicht mit folgendem Code:
Orange = Wichtige Stelle
Woran liegt das??
Danke im Voraus
Hastling
EDIT: Das Programm macht mir die Stelle nicht orange :P !
Also dann hier noch einmal der wichtige Code:
Worum macht der nichts?
Danke im Voraus
Hastling
mein Programm speichert LesezeichenLinks
in My.Settings ab. Diese bekomme ich auch
wieder hergestellt. Nur möchte ich dann noch
einen kleinen Webbrowser (nur für diese Abfrage)
nach der URL suchen lassen und dort versuchen
das Favicon.ico downzuloaden. Das funktioniert
aber nicht mit folgendem Code:
VB.NET-Quellcode
- For mama = 0 To My.Settings.LesezeichenText.Count - 1
- Dim neu As New ToolStripMenuItem
- neu.Text = My.Settings.LesezeichenText.Item(mama)
- neu.Name = My.Settings.LesezeichenName.Item(mama)
- LesezeichenToolStripMenuItem.DropDownItems.Add(neu)
- neu.ShowDropDown()
- AddHandler neu.Click, AddressOf lesezeichenöffnen
- AddHandler neu.MouseDown, AddressOf lesezeichenmenu
- Dim webbi As New WebBrowser
- webbi.Navigate(My.Settings.LesezeichenName.Item(mama))
- If My.Computer.FileSystem.FileExists("favicon.ico") Then
- My.Computer.FileSystem.DeleteFile("favicon.ico")
- End If
- Try
- My.Computer.Network.DownloadFile("http://" & webbi.Document.Domain & "/favicon.ico", "favicon.ico")
- Dim ico As New Icon("favicon.ico")
- ImageList1.Images.Add(ico.ToBitmap)
- neu.Image = ImageList1.Images.Item(0)
- ImageList1.Images.Clear()
- My.Settings.WebseiteBild += 1
- Catch err As Exception
- My.Settings.WebseiteBild += 1
- End Try
- Next
Orange = Wichtige Stelle
Woran liegt das??
Danke im Voraus
Hastling
EDIT: Das Programm macht mir die Stelle nicht orange :P !
Also dann hier noch einmal der wichtige Code:
VB.NET-Quellcode
- Dim webbi As New WebBrowser
- webbi.Navigate(My.Settings.LesezeichenName.Item(mama))
- If My.Computer.FileSystem.FileExists("favicon.ico") Then
- My.Computer.FileSystem.DeleteFile("favicon.ico")
- End If
- Try
- My.Computer.Network.DownloadFile("http://" & webbi.Document.Domain & "/favicon.ico", "favicon.ico")
- Dim ico As New Icon("favicon.ico")
- ImageList1.Images.Add(ico.ToBitmap)
- neu.Image = ImageList1.Images.Item(0)
- ImageList1.Images.Clear()
- My.Settings.WebseiteBild += 1
- Catch err As Exception
- My.Settings.WebseiteBild += 1
- End Try
- Next
Worum macht der nichts?
Danke im Voraus
Hastling
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Hastling“ ()