VBA HTTPS Response Fehlercode 400 lässt Programm abstürzen

[IT-Biene]

Hallo Zusammen,

ich habe im folgendem Code-Schnipsel das Problem, dass wenn der Facebook Graph

den HTTP Fehlercode 400 zurück gibt, dass das Programm dann abstürzt. Wenn die Antwort

vom Facebook Graph 200 ist, läuft das Programm ohne Probleme.

Könnt Ihr mir sagen wieso das Programm abstürzt bzw. wie ich dies abfangen kann?

Ich habe schon versucht mit

IF hres.StatusCode() = 200 Then

normal ablaufen

Else

Programm beenden

End IF

Aber das Programm stürzt trotzdem ab.

      

ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf AcceptCert)

        Dim args() As String = Split(Command(), " ", -1)

        Dim sURL As String = "https://graph.facebook.com/" & args.GetValue(0) & "?fields=id,likes"

        Dim ssave As String = args.GetValue(1) & "\antwort.txt"

        TextBox1.Text = sURL

        TextBox2.Text = ssave

        Dim hreq As HttpWebRequest = CType(HttpWebRequest.Create(sURL), HttpWebRequest)

        Dim hres As HttpWebResponse = CType(hreq.GetResponse(), HttpWebResponse)

        Dim s As Stream = hres.GetResponseStream()

        Dim sr As New StreamReader(s)

        Dim html As String = sr.ReadToEnd() & vbCrLf

        sr.Close()

        s.Close()

        File.WriteAllText(ssave, html)

        Close()

[uenetz]

Frage: Gibt es denn in VBA keine Möglichkeit mit Try...Catch...Finally-Anweisungen zu arbeiten, damit eventuell auftretende Fehler u.a. besser lokalisieren können?

[hbspike]

Kann es sein, dass du nen falschen Request absetzt und der Response "quasi" null ist?

400 Bad Request

Die Anfrage-Nachricht war fehlerhaft aufgebaut.

[IT-Biene]

Da ich kein richtiger Programmierer bin, kannte ich die Funktion On Error nicht und ja es gibt so eine.

On Error-Anweisung (Visual Basic)

@hbspike Nein, wenn ich mir die URL im Browser aufrufe, erhalte ich eine Antwort vom Webserver mit einer Fehlermeldung.

Dies kann aber verschiedene Gründe haben, aber den gleichen Fehler zurückgeben.

Aber unterm Strich kann ich jetzt den Error abfangen und weiterverarbeiten. Danke für eure Vorschläge.