Hallo,
ich arbeite zur zeit an einem downloader für Comics. Dazu muss ich überprüfen ob die internetadresse erreichbar ist.
das problem dabei ist, dass die nummer des comics unregelmäßig springt (zb. erster comic 000501, zweiter 000504, dritter 000510)
ich habe mir folgenden Code gebastelt:
Spoiler anzeigen
das seltsame ist, dass alle comics durchweg aufgelistet werden obwohl die internetadresse nicht existiert (000501,000502,000503....)
___________________________________________________________
mfg faxe10008
ich arbeite zur zeit an einem downloader für Comics. Dazu muss ich überprüfen ob die internetadresse erreichbar ist.
das problem dabei ist, dass die nummer des comics unregelmäßig springt (zb. erster comic 000501, zweiter 000504, dritter 000510)
ich habe mir folgenden Code gebastelt:
VB.NET-Quellcode
- Dim webbrowser As New WebBrowser
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim zahl As String ' Nummer des Comics in Liste später
- Try
- For comic_ = 500 To 1200
- zahl = comic_.ToString
- If zahl.Length = 3 Then
- zahl = "000" & zahl.ToString
- ElseIf zahl.Length = 4 Then
- zahl = "00" & zahl.ToString
- ElseIf zahl.Length = 5 Then
- zahl = "0" & zahl.ToString
- ElseIf zahl.Length = 6 Then
- zahl = "" & zahl.ToString
- End If ' Comic nummer muss immer 6 stellen lang sein
- webbrowser.Navigate("http://static.nichtlustig.de/comics/full/" & zahl & ".jpg") ' webbrowser zur adresse navigieren
- If webbrowser.DocumentText.Contains("The requested URL") = False Then 'prüfen ob "the requested url" im seitenquellen text nicht vorhanden ist
- ListBox1.Items.Add("http://static.nichtlustig.de/comics/full/" & zahl & ".jpg")
- 'hinzufügen zu der Liste
- End If
- Next
- Catch ex As Exception
- End Try
- End Sub
das seltsame ist, dass alle comics durchweg aufgelistet werden obwohl die internetadresse nicht existiert (000501,000502,000503....)
___________________________________________________________
mfg faxe10008
faxe1008