Prüfen, ob URL erreichbar

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Prüfen, ob URL erreichbar

    Hallo Leute!
    Ich arbeite gerade an meinem Update-Programm.
    Dafür möchte ich gerne prüfen, ob eine URL erreichbar ist, oder nicht.
    Geschickterweise möchte ich das nicht über einen Try-Catch-Block lösen, sondern eher so:

    VB.NET-Quellcode

    1. If URLErreichbar = 1 Then 'Hierfür brauch ich den Code
    2. Msgbox("URL erreichbar!")
    3. Else
    4. Msgbox("URL nicht erreichbar!")
    5. End If


    Dabei möchte ich nicht prüfen, ob der Server erreichbar ist (Ping), sondern ob der Server einen 404-Error ausgibt.
    Also weis wie man prüfen kann, ob die URL einen 404-Error ausgibt?
    Vielen Dank im Vorraus!

    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    VB.NET-Quellcode

    1. Function URLErreichbar(ByVal URL As String) As Integer
    2. Try
    3. My.Computer.Network.Ping(URL)
    4. Return 1
    5. Catch
    6. Return 0
    7. End Try
    8. End Function


    VB.NET-Quellcode

    1. If URLErreichbar("http://google.at") = 1 Then
    2. Msgbox("URL erreichbar!")
    3. Else
    4. Msgbox("URL nicht erreichbar!")
    5. End If


    Kein Plan wie es anders geht.
    Whos Faster ALPHA: Bald....

    Hab sowas noch nie gemacht und den folgenden Code noch nich ausprobiert, aber geht das nich so?

    VB.NET-Quellcode

    1. If My.Computer.Network.Ping("http://google.de") Then
    2. MsgBox("Alles OK")
    3. Else
    4. MsgBox("Fehler!!")
    5. End If
    Also ohne Try...Catch...etc...-Zeugs

    Nein, Int32 verbrauchen 4 Bytes Speicher und nicht nur 1 Byte, wie Bools... msdn.microsoft.com/de-de/library/47zceaw7%28v=VS.90%29.aspx


    er will nicht den server fragen, ob er online ist, sondern abfragen ob eine spezielle datei zur verfügung steht. das ist nunmal nicht der sinn von ping!

    nimm einen webclient und fang alle exceptions. tritt keine auf, kann die datei abgerufen werden. tritt eine auf, kannst du auf die datei nicht zugriefen, warum auch immer. (keine rechte / datei gibts nicht etc.)

    BjöNi schrieb:

    Hab sowas noch nie gemacht und den folgenden Code noch nich ausprobiert, aber geht das nich so?

    VB.NET-Quellcode

    1. If My.Computer.Network.Ping("http://google.de") Then
    2. MsgBox("Alles OK")
    3. Else
    4. MsgBox("Fehler!!")
    5. End If
    Also ohne Try...Catch...etc...-Zeugs

    Der Server ist ja erreichbar, aber ich wollte es gerne so, dass wenn er einen 404-Error ausgibt, ne meldung kommt und wenn nicht, die datei heruntergeladen wird.

    grad reineditiert. nimm einen webclient oder webrequest. ich glaube mit dem request kann man nach einer datei fragen, ohne sie laden zu müssen. schau dir die system.net.****-klasse jeweils an.

    @FuFu^^:
    Nein, Int32 verbrauchen 4 Bytes Speicher und nicht nur 1 Byte, wie Bools... msdn.microsoft.com/de-de/library/…v=VS.90%29.aspx

    Hatte das jetzt gerade was mit meinem Post zu tun?
    Wenn ja, versteh ich nich wodrauf du raus willst...

    @Superleo1810:
    Ach so... Dann fällt mir nichts anderes als TryCatch ein...
    EDIT: Mir fällt was ein - On Error GoTo bla - noch schlimmer!

    EDIT2:
    @FuFu^^:
    meinst du "Also ohne Try...Catch...etc...-Zeugs"? Ja, das hab ich reineditiert, bevor du gepostet hast, weils mir noch eingefallen ist - was dagegen?

    Nein bjöni, das mit dem Speicher bezog sich nicht auf dich. Ich übergehe deine Posts einfach mal, weil sie auch mit dem "Try...Catch...etc...-Zeugs", wie du es nennst, nicht im geringsten dem TE bei seiner fragestellung (die du selbst nicht durchdrungen zu haben scheinst) helfen.


    Ping nutzt man um zu testen, ob Server erreichbar sind! NICHT um zu testen, ob Dateien auf Servern abrufbar sind. Alle hier bisher geposteten Lösungsvorschläge helfen dem TE nicht im geringsten.



    VB.NET-Quellcode

    1. MessageBox.Show(My.Computer.Network.Ping("http://www.vb-paradise.de/wcf/images/avatars/avatar-2532.png").ToString)
    Wenn du's nicht glaubst führe mal die Code-Zeile aus. Es kommt eine Exception, obwohl es das Bild gibt. Komisch, oder?

    VB.NET-Quellcode

    1. MessageBox.Show(My.Computer.Network.Ping("www.vb-paradise.de").ToString)
    hingegen funktioniert tadellos.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „FuFu^^“ ()

    Nach längerem durchforsten von google-ergebnissen hab ich nun das hier gefunden:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Windows.Forms
    3. Imports System.Runtime.InteropServices
    4. Imports System.Security.Permissions
    6. ''' <summary>
    7. ''' Demo navigateError Event
    8. ''' source from:
    9. ''' http://msdn.microsoft.com/de-de/library/system.windows.forms.webbrowser.createsink.aspx
    10. ''' </summary>
    11. ''' <remarks></remarks>
    12. '''
    13. <PermissionSetAttribute(SecurityAction.Demand, Name:="FullTrust")> _
    14. Public Class Form1
    15. Inherits Form
    17. Private WithEvents wb As New WebBrowser2()
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. wb.Dock = DockStyle.Fill
    21. Controls.Add(wb)
    23. ' Attempt to navigate to an invalid address.
    24. wb.Navigate("google.com/1/2/3/notexist/blabla/sohfohghg/3895676/259259/245/452")
    26. 'this displays the following message:
    28. 'Network Error (dns_unresolved_hostname)
    29. 'Your requested host "www.widgets.microsoft.com" could not be resolved by DNS.
    30. 'For assistance, contact your network support team.
    32. End Sub
    34. Private Sub wb_NavigateError( _
    35. ByVal sender As Object, _
    36. ByVal e As WebBrowserNavigateErrorEventArgs) _
    37. Handles wb.NavigateError
    39. ' Display an error message to the user.
    40. MessageBox.Show("Cannot navigate to " & e.Url & " status " & e.StatusCode.ToString)
    41. 'messagebox displays: "Cannot ..... status 404"
    43. End Sub
    45. End Class
    47. Public Class WebBrowser2
    48. Inherits WebBrowser
    50. Private cookie As AxHost.ConnectionPointCookie
    51. Private helper As WebBrowser2EventHelper
    53. <PermissionSetAttribute(SecurityAction.LinkDemand, _
    54. Name:="FullTrust")> Protected Overrides Sub CreateSink()
    56. MyBase.CreateSink()
    58. ' Create an instance of the client that will handle the event
    59. ' and associate it with the underlying ActiveX control.
    60. helper = New WebBrowser2EventHelper(Me)
    61. cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, helper, GetType(DWebBrowserEvents2))
    62. End Sub
    64. <PermissionSetAttribute(SecurityAction.LinkDemand, _
    65. Name:="FullTrust")> Protected Overrides Sub DetachSink()
    67. ' Disconnect the client that handles the event
    68. ' from the underlying ActiveX control.
    69. If cookie IsNot Nothing Then
    70. cookie.Disconnect()
    71. cookie = Nothing
    72. End If
    73. MyBase.DetachSink()
    75. End Sub
    77. Public Event NavigateError As WebBrowserNavigateErrorEventHandler
    79. ' Raises the NavigateError event.
    80. Protected Overridable Sub OnNavigateError(ByVal e As WebBrowserNavigateErrorEventArgs)
    82. RaiseEvent NavigateError(Me, e)
    84. End Sub
    86. ' Handles the NavigateError event from the underlying ActiveX
    87. ' control by raising the NavigateError event defined in this class.
    88. Private Class WebBrowser2EventHelper
    89. Inherits StandardOleMarshalObject
    90. Implements DWebBrowserEvents2
    92. Private parent As WebBrowser2
    94. Public Sub New(ByVal parent As WebBrowser2)
    95. Me.parent = parent
    96. End Sub
    98. Public Sub NavigateError(ByVal pDisp As Object, _
    99. ByRef URL As Object, ByRef frame As Object, _
    100. ByRef statusCode As Object, ByRef cancel As Boolean) _
    101. Implements DWebBrowserEvents2.NavigateError
    103. ' Raise the NavigateError event.
    104. Me.parent.OnNavigateError(New WebBrowserNavigateErrorEventArgs( _
    105. CStr(URL), CStr(frame), CInt(statusCode), cancel))
    107. End Sub
    109. End Class
    111. End Class
    113. ' Represents the method that will handle the WebBrowser2.NavigateError event.
    114. Public Delegate Sub WebBrowserNavigateErrorEventHandler(ByVal sender As Object, _
    115. ByVal e As WebBrowserNavigateErrorEventArgs)
    117. ' Provides data for the WebBrowser2.NavigateError event.
    118. Public Class WebBrowserNavigateErrorEventArgs
    119. Inherits EventArgs
    121. Private urlValue As String
    122. Private frameValue As String
    123. Private statusCodeValue As Int32
    124. Private cancelValue As Boolean
    126. Public Sub New( _
    127. ByVal url As String, ByVal frame As String, _
    128. ByVal statusCode As Int32, ByVal cancel As Boolean)
    130. Me.urlValue = url
    131. Me.frameValue = frame
    132. Me.statusCodeValue = statusCode
    133. Me.cancelValue = cancel
    135. End Sub
    137. Public Property Url() As String
    138. Get
    139. Return urlValue
    140. End Get
    141. Set(ByVal value As String)
    142. urlValue = value
    143. End Set
    144. End Property
    146. Public Property Frame() As String
    147. Get
    148. Return frameValue
    149. End Get
    150. Set(ByVal value As String)
    151. frameValue = value
    152. End Set
    153. End Property
    155. Public Property StatusCode() As Int32
    156. Get
    157. Return statusCodeValue
    158. End Get
    159. Set(ByVal value As Int32)
    160. statusCodeValue = value
    161. End Set
    162. End Property
    164. Public Property Cancel() As Boolean
    165. Get
    166. Return cancelValue
    167. End Get
    168. Set(ByVal value As Boolean)
    169. cancelValue = value
    170. End Set
    171. End Property
    173. End Class
    175. ' Imports the NavigateError method from the OLE DWebBrowserEvents2
    176. ' interface.
    177. <ComImport(), Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), _
    178. InterfaceType(ComInterfaceType.InterfaceIsIDispatch), _
    179. TypeLibType(TypeLibTypeFlags.FHidden)> _
    180. Public Interface DWebBrowserEvents2
    182. <DispId(271)> Sub NavigateError( _
    183. <InAttribute(), MarshalAs(UnmanagedType.IDispatch)> _
    184. ByVal pDisp As Object, _
    185. <InAttribute()> ByRef URL As Object, _
    186. <InAttribute()> ByRef frame As Object, _
    187. <InAttribute()> ByRef statusCode As Object, _
    188. <InAttribute(), OutAttribute()> ByRef cancel As Boolean)
    190. End Interface


    dabei versucht der webbrowser auf die seite "google.com/1/2/3/notexist/blabla/sohfohghg/3895676/259259/245/452" zuzugreifen, die natürlich nicht existiert, und tatsächlich kommt eine error404-msgbox.
    nun möchte ich es aber so machen, dass FALLS die URL abrufbar ist, das update gestartet wird, und falls nicht, eine entsprechende messagebox gezeigt wird.
    gibt es da ne lösung?

    Superleo1810 schrieb:

    Geschickterweise möchte ich das nicht über einen Try-Catch-Block lösen

    Was ist deiner Meinung nach geschickt daran ?

    Superleo1810 schrieb:

    GAlso weis wie man prüfen kann, ob die URL einen 404-Error ausgibt?

    Ja, die Seite aufrufen und den zurückgegebenen Statuscode prüfen: der wird allerddings immer in einem Catch-Block erschien, was ja auch vollkommen in Ordnung ist.
    Den kürzesten Request den Du meiner Meinung nach absetzten kannst ist der HTTP "HEAD" Request: der fragt nur den Server ob die Datei da ist und welche Länge sie hat. Punkt.

    Obwohl einem bei einer solchen Funktion CheckURL als erstes ein Boolean Wert einfällt: sicher ist nur, dass beim Http 200 (=OK) die Datei da ist. Ansonsten können alle möglichen anderen Http-Codes Gründe haben warum die Datei eben nicht /nicht mehr oder nur noch nicht erreichbar ist. Willst Du explizit den 404 (NotFound) abfragen so kommt Webstatus.ProtocolError dem am nächsten (+ Abfrage der Message). Man kann natürlich auch statt dem HttpWebRequest auf tiefer liegende Klassen (TCPClient / Sockets ausweichen und den Request manuell in den Stream schreiben).

    Hier mal eine Möglichkeit:
    HEAD Request

    VB.NET-Quellcode

    1. Function Check(ByVal url As String, Optional ByVal timeout As Integer = 20000) As Boolean
    2. Dim uri As Uri = Nothing, response As HttpWebResponse = Nothing, request As HttpWebRequest
    3. ' check valid uri
    4. If Not (url.StartsWith("http") OrElse url.StartsWith("https")) Then url = "http://" & url
    5. ' create webrequest
    6. Try
    7. request = CType(WebRequest.Create(url), HttpWebRequest)
    8. request.Method = "HEAD" : request.Timeout = timeout
    9. response = CType(request.GetResponse, HttpWebResponse)
    10. ' header enthalten zum beispiel die Länge der Datei
    11. Dim headers = response.Headers ' nicht benötigt
    12. Debug.Print(headers.ToString) ' nicht benötigt
    13. Catch ex As WebException
    14. Debug.Print("Exception;: {0}", ex.Status)
    15. ' 404
    16. If ex.Status = WebExceptionStatus.ProtocolError Then Return (False)
    17. ' rethrow
    18. Throw
    19. Finally
    20. If response IsNot Nothing Then response.Close()
    21. End Try
    22. ' all OK
    23. Return True
    24. End Function


    Der WebBrowser ist nun eher einer der langsamsten und aufwändigsten Alternativen ...

    @jan99 Nein.
    In Zeile 7 würde eine Timeout-Exception geworfen werden, dann ginge es in Zeile 13 / 14 weiter.
    ====
    Edit:
    Im Finally wird in jedem Falle aufgeräumt, was aufzuräumen ist (sofern implementiert).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Moin!

    erst einmal danke - aber was bedeutet das Throw?

    Aus den Dingen, die ich recherchiert habe, bin ich nicht schlau geworden!

    Habe für einen Test einmal eine ungültige URL abgeprüft und bei dem Throw kommt folgende Meldung:

    {"Der Remotename konnte nicht aufgelöst werden: 'ma23-bagis-001'"}


    ... sodass sich mein Skript aufhängt. Das soll es aber nicht ! Wie würde ich das in Griff bekommen?


    Gruß Jan

    jan99 schrieb:

    Throw
    löst die zu spezifizierende Exception aus oder reicht die aktuelle Exception an den Aufrufer weiter:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Try
    3. If Not IO.File.Exists("c:\Temp\Blub.bla") Then
    4. Throw New IO.FileNotFoundException("Nicht gefunden", "Blup.bla") ' Exception auslösen
    5. End If
    6. 'DoIt
    7. Catch ex As IO.FileNotFoundException ' genau diese abfangen
    8. If Not IO.File.Exists("c:\Temp\Blub.bla") Then
    9. MessageBox.Show("Die Datei ist ja immer noch nicht da")
    10. Throw ' zum Aufrufer durchreichen
    11. End If
    12. End Try
    13. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    jan99 schrieb:

    Vorteil
    Dazu musst Du das Umfeld verstehen. Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!