GET-Request und Credentials
10.01.2018 08:43:37
Christian
ich grübel seit gestern über dem Problem, dass ich eine einfache GET-Abfrage machen möchte. Da es sich um einen geschützten Bereich handelt, müssen Credentials übergeben werden. Aber irgendeinen Fehler findet VBA immer. Nur ich finde ihn nicht:
Option Explicit
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Private Sub CommandButton1_Click()
Dim MyRequest As New WinHttpRequest
MyRequest.Open "GET", _
"https://api.test123.de"
MyRequest.SetCredentials "meinusername", "meinpasswort",
HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
MyRequest.Send
MsgBox MyRequest.ResponseText
End Sub
Anzeige