Path: csiph.com!aioe.org!news.mixmin.net!news.unit0.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Rob <gbzrope@gmail.com>
Newsgroups: comp.lang.basic.visual.misc
Subject: WinHTTP problems
Date: Tue, 22 Jan 2019 13:28:43 -0000
Lines: 40
Message-ID: <VA.000000b5.4f0056ba@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: individual.net DHFp+khjdJOdTElYy/xQeQmMHL7G3dBK6p84B5aUWxf0bRwj+9
Cancel-Lock: sha1:+Cq0SjzjWUNEMq9tJlKl2q8Pc+g=
X-Newsreader: Virtual Access Open Source http://www.virtual-access.org/
Xref: csiph.com comp.lang.basic.visual.misc:2378

Hi,

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?

-- 
RobP