I am not a programmer! But I've scambled together thousands of lines that work automatically on the Betfair API (or have until now). Does anyone know what I need to change here??
----
Function SendLoginRequest(url, appkey, username, password) As String
On Error GoTo ErrorHandler:
Dim xhr: Set xhr = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim myToken As String
If xhr.Status <> 200 Then
Err.Raise vbObjectError + 1000, "Util.SendRequest", "The call to API-NG was unsuccessful. Status code: " & xhr.Status & " " & xhr.statusText & ". Response was: " & xhr.responseText
End If
Set xhr = Nothing
On Error GoTo 0
Exit Function
ErrorHandler:
HandleError "SendRequest"
'Resume Next
Comment