Path: csiph.com!4.us.feeder.erje.net!2.eu.feeder.erje.net!feeder.erje.net!1.eu.feeder.erje.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Rob <gbzrope@gmail.com>
Newsgroups: comp.lang.basic.misc
Subject: WinHTTP problems
Date: Tue, 22 Jan 2019 13:28:44 -0000
Lines: 35
Message-ID: <VA.000000b6.4f005841@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: individual.net 2kyQVRavuF1tDC7bD18qTAS4n7AutwXWgX8idqj7Vfym/gySkI
Cancel-Lock: sha1:rxfWT/63158zKf8XN6sJljnuY5I=
X-Newsreader: Virtual Access Open Source http://www.virtual-access.org/
Xref: csiph.com comp.lang.basic.misc:463

I have a *large* legacy program written in VB6,  Very successfull, 
works fine on all flavours of Windows up to and including 10

Now I need to communicate with a third party using TML Basic Auth and 
JSON.

SO far I have created some short code to test the communications:

Dim HttpReq As New WinHttp.WinHttpRequest

HttpReq.SetCredentials "<username>", "<password>", 0


 HttpReq.Open "PUT", "https://<API URL>", False
 
 
 HttpReq.setRequestHeader "Content-Type", "application/json"
 
 HttpReq.Send " "
 
 HttpReq.Send "GET https://<API URL>"
 
 Both the Send methods result in:
 {
    "status": "error",
    "code": 401,
    "message": "Access denied"
}


The sane credentials do work OK in Postman app.

What am I missing or doing wrong please?