Webbrowser Seite nicht gefunden

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Webbrowser Seite nicht gefunden

    Hallo,

    ich will bei meinem nächsten Programm, das man seine lieblingsseiten zusammen fügt und wenn diese Seiten nicht verfügbar ist, soll eine Messagebox aufkommen.

    ich denke mal mit einer if then else anweißung müsste ich daran gehen, aber irgendwie bekomme ich das nicht hin

    hier mein code:

    VB.NET-Quellcode

    1. web.Navigate(TextBox1.Text)
    3. If web.Document.Title.Then Then
    5. Else
    6. ListBox1.Items.Add(TextBox1.Text)
    7. End If

    Die bessere Methode wäre ein WebRequest oder einen WebClient mit dem du versuchst die Seite herunter zu laden. Kommt ein Fehler, ist die Seite nicht verfügbar.

    VB.NET-Quellcode

    1. Dim webClient As New WebClient()
    3. Try
    4. webClient.DownloadString("Website url")
    5. Catch
    6. 'Seite nicht gefunden
    7. End Try

    hmm...

    komisch, wenn ich den Code so übernheme, dann kommt immer eine fehlermeldung, in der ein pfad zu meinem PRogramm führt, und dem was ich eingegeben habe.

    VB.NET-Quellcode

    1. Dim webClient As New WebClient
    2. Try
    3. webClient.DownloadData(TextBox1.Text)
    4. Catch ex As Exception
    5. MessageBox.Show(ex.Message)
    6. End Try

    Oder

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim Timeout_Timer As New Timer
    5. Dim WithEvents DownloadData As New Net.WebClient
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. If DownloadData.IsBusy = False AndAlso Timeout_Timer.Enabled = False Then
    11. Timeout_Timer.Interval = 1500
    12. AddHandler Timeout_Timer.Tick, AddressOf Timeout_Timer_Tick
    13. Timeout_Timer.Enabled = True
    15. DownloadData.DownloadDataAsync(New Uri("https://www.google.de"))
    16. AddHandler DownloadData.DownloadDataCompleted, AddressOf DownloadDataCompleted_DownloadCompleted
    18. End If
    20. End Sub
    22. Private Sub Timeout_Timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
    24. DownloadData.CancelAsync() : Timeout_Timer.Enabled = False
    26. End Sub
    28. Private Sub DownloadDataCompleted_DownloadCompleted(sender As Object, e As Net.DownloadDataCompletedEventArgs)
    30. If e.Error IsNot Nothing Then
    31. MessageBox.Show("Die Seite ist nicht erreichbar !")
    32. Else
    33. MessageBox.Show("Die Seite ist erreichbar")
    34. End If
    36. Timeout_Timer.Enabled = False
    38. End Sub
    40. End Class



    Oder in der Richtung - ausbau fähig :

    VB.NET-Quellcode

    1. Dim HttpReq As HttpWebRequest = CType(WebRequest.Create("http://www.googl.de"), HttpWebRequest)
    2. Dim response As HttpWebResponse = CType(HttpReq.GetResponse, HttpWebResponse)
    4. If (response.StatusCode = HttpStatusCode.OK) Then
    5. MessageBox.Show("Seite gefunden.")
    6. ElseIf (response.StatusCode = HttpStatusCode.NotFound) Then
    7. MessageBox.Show("Seite nicht gefunden.")
    8. End If

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „TVX“ ()

Facebook
Telefonspende