I love this project!

[Montclair]

I just wanted to say thank you for coding this. It's truly fantastic and has freed my older systems from TLS issues everywhere on the net. I'm using it to connect everywhere without issue. For example, I decided today that I needed one of my programs to be able to send email. All the stuff I found online was dated and / or didn't work properly older systems. Your simple example in the readme put me on the right track and with some research into SMTP commands and responses, I've got my program sending test emails, and am nearly finish coding a fully functional routine.

I wouldn't have been able to do any of this without paying for some third party DLL, considering the older system this program runs on. And, being able to make a DLL without changing a line of code (just had to change one property on three classes) opens up this same access to everything for my older VBA applications.

Thank you so much for this fantastic project!

[wqweto]

Great!

(just had to change one property on three classes)

Which property? Can we fix this in trunk branch?

[Montclair]

"Instancing" had to be changed to "5 - MultiUse" for the three class modules, cAsyncSocket, cHttpRequest, and cTlsSocket. That's only necessary to get the project to compile to a DLL.

[etc6849]

Thanks! Installing the root certificate fixed the error, disregard my other post that I deleted :)

Do you have a way we can donate to you? This DLL fixed a huge problem with my custom home automation setup, and I want to thank you.

[etc6849]

All the GETs now work on my HA server. However, I'm having trouble sending an image which was working under Windows 10 using MSXML2.XMLHTTP.

What the codes does is reads in an image stored on the hard drive (originally captured from a webcam that gets triggered when the doorbell is rang). Then it sends the image using an HTTP Post.

As before, this is probably due to my lack of understanding something, but of course any help or hints are always much appreciated :)

EDIT: oXMLHTTP.Send bytePayLoad is generating the error:
The operation timed out (-2147012894)

---

WinHttpRequest.vbs (works in Windows 7):

Const WinHttpRequestOption_SslErrorIgnoreFlags = 4
Const SslErrorFlag_UnknownCA = 256
Const URL = "https://api.telegram.org/bot"
Const TOKEN = "xxx"
Const METHOD_NAME = "/sendPhoto?"
Const CHAT_ID = "xxx"
Const FOLDER = "C:\"
Const JPG_FILE = "Image1.jpg"

Set data = CreateObject("Scripting.Dictionary")
data.Add "chat_id", CHAT_ID

' generate boundary
For n = 1 To 16: s = s & Chr(65 + Int(Rnd * 25)): Next
BOUNDARY = s & CDbl(Now)

For Each key In data.keys
    part = part & "--" & BOUNDARY & vbCrLf
    part = part & "Content-Disposition: form-data; name=""" & key & """" & vbCrLf & vbCrLf
    part = part & data(key) & vbCrLf
Next

' filename
part = part & "--" & BOUNDARY & vbCrLf
part = part & "Content-Disposition: form-data; name=""photo"";filename=""" & JPG_FILE & """" & vbCrLf & vbCrLf

' read jpg file as binary
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1 'binary
ado.Open
ado.LoadFromFile FOLDER & JPG_FILE
ado.Position = 0
jpg = ado.Read
ado.Close

' combine part, jpg , end
ado.Open
ado.Position = 0
ado.Type = 1 ' binary
ado.Write ToBytes(part)
ado.Write jpg
ado.Write ToBytes(vbCrLf & "--" & BOUNDARY & "--")
ado.Position = 0

reqURL = URL & TOKEN & METHOD_NAME
With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "POST", reqURL, False
    .setRequestHeader "Content-Type", "multipart/form-data;boundary=" & BOUNDARY
    .Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_UnknownCA
    .send ado.Read
    WScript.echo Replace(.ResponseText, ",", vbCrLf)
End With

Function ToBytes(stuff)
    With CreateObject("ADODB.Stream")
       .Open
       .Type = 2 ' text
       .Charset = "_autodetect"
       .WriteText stuff
       .Position = 0
       .Type = 1
       ToBytes= .Read
       .Close
    End With
End Function

---

cHttpRequest.vbs (doesn't work on windows 7 or any XP version I have):

Const WinHttpRequestOption_SslErrorIgnoreFlags = 4
Const SslErrorFlag_UnknownCA = 256
Const URL = "https://api.telegram.org/bot"
Const TOKEN = "xxx"
Const METHOD_NAME = "/sendPhoto?"
Const CHAT_ID = "xxx"
Const FOLDER = "C:\"
Const JPG_FILE = "Image1.jpg"

Set data = CreateObject("Scripting.Dictionary")
data.Add "chat_id", CHAT_ID

' generate boundary
For n = 1 To 16: s = s & Chr(65 + Int(Rnd * 25)): Next
BOUNDARY = s & CDbl(Now)

For Each key In data.keys
    part = part & "--" & BOUNDARY & vbCrLf
    part = part & "Content-Disposition: form-data; name=""" & key & """" & vbCrLf & vbCrLf
    part = part & data(key) & vbCrLf
Next

' filename
part = part & "--" & BOUNDARY & vbCrLf
part = part & "Content-Disposition: form-data; name=""photo"";filename=""" & JPG_FILE & """" & vbCrLf & vbCrLf

' read jpg file as binary
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1 'binary
ado.Open
ado.LoadFromFile FOLDER & JPG_FILE
ado.Position = 0
jpg = ado.Read
ado.Close

' combine part, jpg , end
ado.Open
ado.Position = 0
ado.Type = 1 ' binary
ado.Write ToBytes(part)
ado.Write jpg
ado.Write ToBytes(vbCrLf & "--" & BOUNDARY & "--")
ado.Position = 0

reqURL = URL & TOKEN & METHOD_NAME
With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "POST", reqURL, False
    .setRequestHeader "Content-Type", "multipart/form-data;boundary=" & BOUNDARY
    .Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_UnknownCA
    .send ado.Read
    WScript.echo Replace(.ResponseText, ",", vbCrLf)
End With

Function ToBytes(stuff)
    With CreateObject("ADODB.Stream")
       .Open
       .Type = 2 ' text
       .Charset = "_autodetect"
       .WriteText stuff
       .Position = 0
       .Type = 1
       ToBytes= .Read
       .Close
    End With
End Function

[wqweto]

Yes, there was a problem sending byte-arrays on POST which is fixed in 62114be and included in 1.0.1 release of the binaries. Let me know if this fixes upload with your code above.

Latest version also allows loading custom CAs from a PEM file like this

Const WinHttpRequestOption_RootCA = 20
...
    .Option_(WinHttpRequestOption_RootCA) = "C:\path\to\ca-bundle.pem"

This is compatible with curl project CA certificates extracted from Mozilla bundle file they maintain for their own purposes.

Edit: Btw, with stock WinHttpRequest and here with cHttpRequest it is more memory efficient to directly send the ADODB.Stream object (or any other IStream interface implementing object) without first reading its content into a byte-array i.e. directly calling .Send ado instead of .Send ado.Read.

In this case you don't need to reposition the stream at the beginning beforehand too i.e. setting ado.Position = 0 is not needed as no ado.Read is called.

[etc6849]

EDIT: it works now. I forgot how I was calling it in Windows x64 and used the 64 bit cScript.exe instead of the 32 bit cScript.exe.

Many thanks for the scripting hint! Will take a look. I mainly learned programming (really just scripting) for my home automation hobby, but I'm always interested in learning and improving. Not going to quit my day job (has nothing to do with programming) yet though.

I de-registered the old version and deleted the old dll, and the new dll registers ok. However, windows will not let me use it and gives the error: Activex component cna't create object 'HttpRequest.cHttpRequest'.

[etc6849]

Please see my edit above. Works great. Thanks!

[wqweto]

Just to let you know that in commit 41e1ef3 a latent heisenbug was fixed which prevented compiled cTlsSocket instances from establishing connection to some servers while working ok in VB6 IDE.

The bug stemmed from a bug in the VB6 compiler and affected native compiled binaries only.

Update your sources to latest revision if you can and want to.