Get HTTPS Method Issues

I have been using the following procedure to read data from webpages on HTTP for years.

Code:

---

    Dim strReturn                  ' As String
    Dim objHTTP                    ' As MSXML.XMLHTTPRequest
    Dim strURL
    If Len(strURL) = 0 Then Exit Function
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    strURL = "https://www.codebankers.com/secure1.html"
    objHTTP.Open "GET", strURL, False
    objHTTP.send                    'Get it.
    strReturn = objHTTP.responseText
    Set objHTTP = Nothing
    GetHTMLCode = strReturn

---

But since my Hosting company have forced HTTPS on all domains, the procedure no longer works and give me an error of "An error occurred in the secure channel support"

Please i need help on a procedure that can work for HTTPS.

It works fine with HTTPS but you need Windows 10 or 11.

Quote:

---

Originally Posted by Tobyy

Please i need help on a procedure that can work for HTTPS.

---

Btw, for anything less than Win10 you can use Http Request Replacement class from here. This implements TLS 1.3 support in VB6 and works on NT4/Win98 or better.

cheers,
</wqw>