Login

zra · 08-05-2018, 07:08 AM

Hi Dean,┬á

Quote:Sub SendPostToCQCTest()

Dim Result As String, status As String
Dim myURL As String, postData As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
┬á
myURL = "http://10.0.1.8:45822/TOSmessage"
postData = "a=15.2"
winHttpReq.Open "POST", myURL, False
winHttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send postData
Result = winHttpReq.responseText
status = winHttpReq.status
End Sub

This is some VBA code to post a message to CQC HTTP listener.┬á

I have a similar routine sent from a Raspberry Pi device that works as expected. In the case above, CQC is not receiving┬áthe postData string even though I know it's receiving the HTTP Post. I have a log set up to monitor it.

Is there something you can see that would prevent the receipt┬áof the postData?

***Dean Roddey*** · 08-05-2018, 08:59 AM

Can you use some sort of little doohicky program that you can send that to and capture the raw data that shows up? That would make it a lot more obvious what is going on.

zra · (This post was last modified: 08-05-2018, 10:53 AM by zra.)

(08-05-2018, 08:59 AM)Dean┬áRoddey Wrote: Can you use some sort of little doohicky program that you can send that to and capture the raw data that shows up? That would make it a lot more obvious what is going on.

MessageNumber DiagnosisTypes Timestamp TimeDelta EventRecord.Header.ProcessId EventRecord.Header.ThreadId Module Summary
7510 None 2018-08-05T11:24:29.2282435 0.0005846 3652 1676 HTTP Response, Status: OK (200), Version: HTTP/1.0
7507 None 2018-08-05T11:24:29.2276589 0.0000000 0 0 HTTP Request, POST /TOSmessage, Version: HTTP/1.1

I can provide more detail if needed.

This one was interesting:

Name Value Bit Offset Bit Length Type
Payload ${┬▓├¥├▓.┬┐┬╣.=.\P...;├á..a=15.2 160 208 BinaryValue

***Dean Roddey*** · (This post was last modified: 08-05-2018, 10:56 AM by Dean Roddey.)

That's not really the raw HTTP text. And yeh, it saying the value was binary is sort of wrong.

zra · 08-05-2018, 10:58 AM

(08-05-2018, 08:59 AM)Dean┬áRoddey Wrote: Can you use some sort of little doohicky program that you can send that to and capture the raw data that shows up? That would make it a lot more obvious what is going on.

Let me give you some more detail:

Name Value Bit Offset Bit Length Type
Method POST 0 32 String
Uri /TOSmessage 40 88 HTTP.UriType
Version HTTP/1.1 136 64 HTTP.VersionType
Headers map{Connection=[Keep-Alive],Content-Type=application/x-www-form-urlencoded;Charset=UTF-8,Accept=[*/*],User-Agent=Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5),Content-Length=6,Host=10.0.1.8:45822} 216 1720 MapValue`2
Payload a=15.2 1936 48 BinaryValue

Name Value Bit Offset Bit Length Type
Version HTTP/1.0 0 64 HTTP.VersionType
StatusCode 200 72 24 UInt32
ReasonPhrase OK 104 16 String
Headers map{Content-Type=text/html;charset=utf-8,Content-Length=32,Connection=[Close]} 136 648 MapValue`2
Payload <html><body>Done</body></html>.. 784 256 BinaryValue

zra · 08-05-2018, 11:07 AM

Dean,┬á

In HTML 1.0 you have to open and then close the connection┬áfor each command sent
In HTML 1.1 you can open a connection and have a persistent┬ástate┬á

In my other application, Raspberry Pi, I am sending a command to close the connection, but VBA is HTML 1.1 and it doesnt even offer a command to close the connection. It get performed with the post method, I guess.┬á

I don't know if that's causing the problem, but its something I thought of.

***Dean Roddey*** · 08-05-2018, 11:19 AM

The program you run I assume just runs and exits, right? So it will close the connection when it exits and the server will see that. You can always include a Close header line to make it clearer to the server that it's a one shot operation.

Actually I just realized you said the listener driver, not the web server. I don't think that the listener driver is going to do anything with post parameters encoded in the body. It only deals with query parameters. So re-do it as a GET and do the values you are passing as query parms, so

?a=15.2

and so forth. See if that doesn't work.

zra · (This post was last modified: 08-05-2018, 11:32 AM by zra.)

Message Offset: 0
0C 00 00 00 0C 00 00 00 36 00 00 00 B8 E8 56 2B
┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á6 ┬á. ┬á. ┬á. ┬á┬© ┬á├¿ ┬áV ┬á+
1A F6 00 0C 29 6A CB A5 08 00 45 00 00 AA 04 F8
┬á. ┬á├Â ┬á. ┬á. ┬á) ┬áj ┬á├ï ┬á┬Ñ ┬á. ┬á. ┬áE ┬á. ┬á. ┬á┬¬ ┬á. ┬á├©
40 00 80 06 00 00 0A 00 01 08 0A 00 01 66 B2 FE
┬á@ ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬áf ┬á┬▓ ┬á├¥
24 7B 8D 3D 85 5C F2 06 BF BF 50 18 01 00 17 0A
┬á$ ┬á{ ┬á. ┬á= ┬á. ┬á\ ┬á├▓ ┬á. ┬á┬┐ ┬á┬┐ ┬áP ┬á. ┬á. ┬á. ┬á. ┬á.
00 00
┬á. ┬á.
0C 00 00 00 0C 00 00 00 82 00 00 00 48 54 54 50
┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬áH ┬áT ┬áT ┬áP
2F 31 2E 30 20 32 30 30 20 4F 4B 0D 0A 43 6F 6E
┬á/ ┬á1 ┬á. ┬á0 ┬á ┬á 2 ┬á0 ┬á0 ┬á ┬á O ┬áK ┬á. ┬á. ┬áC ┬áo ┬án
74 65 6E 74 2D 54 79 70 65 3A 20 74 65 78 74 2F
┬át ┬áe ┬án ┬át ┬á- ┬áT ┬áy ┬áp ┬áe ┬á: ┬á ┬á t ┬áe ┬áx ┬át ┬á/
68 74 6D 6C 3B 20 63 68 61 72 73 65 74 3D 75 74
┬áh ┬át ┬ám ┬ál ┬á; ┬á ┬á c ┬áh ┬áa ┬ár ┬ás ┬áe ┬át ┬á= ┬áu ┬át
66 2D 38 0D 0A 43 6F 6E 74 65 6E 74 2D 4C 65 6E
┬áf ┬á- ┬á8 ┬á. ┬á. ┬áC ┬áo ┬án ┬át ┬áe ┬án ┬át ┬á- ┬áL ┬áe ┬án
67 74 68 3A 20 33 32 0D 0A 43 6F 6E 6E 65 63 74
┬ág ┬át ┬áh ┬á: ┬á ┬á 3 ┬á2 ┬á. ┬á. ┬áC ┬áo ┬án ┬án ┬áe ┬ác ┬át
69 6F 6E 3A 20 43 6C 6F 73 65 0D 0A 0D 0A 3C 68
┬ái ┬áo ┬án ┬á: ┬á ┬á C ┬ál ┬áo ┬ás ┬áe ┬á. ┬á. ┬á. ┬á. ┬á< ┬áh
74 6D 6C 3E 3C 62 6F 64 79 3E 44 6F 6E 65 3C 2F
┬át ┬ám ┬ál ┬á> ┬á< ┬áb ┬áo ┬ád ┬áy ┬á> ┬áD ┬áo ┬án ┬áe ┬á< ┬á/
62 6F 64 79 3E 3C 2F 68 74 6D 6C 3E 0D 0A
┬áb ┬áo ┬ád ┬áy ┬á> ┬á< ┬á/ ┬áh ┬át ┬ám ┬ál ┬á> ┬á. ┬á.

Message Offset: 0
0C 00 00 00 0C 00 00 00 2C 01 00 00 00 0C 29 6A
┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á, ┬á. ┬á. ┬á. ┬á. ┬á. ┬á) ┬áj
CB A5 B8 E8 56 2B 1A F6 08 00 45 00 01 1A 4A FE
┬á├ï ┬á┬Ñ ┬á┬© ┬á├¿ ┬áV ┬á+ ┬á. ┬á├Â ┬á. ┬á. ┬áE ┬á. ┬á. ┬á. ┬áJ ┬á├¥
40 00 80 06 98 72 0A 00 01 66 0A 00 01 08 24 7B
┬á@ ┬á. ┬á. ┬á. ┬á. ┬ár ┬á. ┬á. ┬á. ┬áf ┬á. ┬á. ┬á. ┬á. ┬á$ ┬á{
B2 FE F2 06 BE C7 8D 3D 85 5C 50 18 01 00 8F 1D
┬á┬▓ ┬á├¥ ┬á├▓ ┬á. ┬á┬¥ ┬á├ç ┬á. ┬á= ┬á. ┬á\ ┬áP ┬á. ┬á. ┬á. ┬á. ┬á.
00 00 50 4F 53 54 20 2F 54 4F 53 6D 65 73 73 61
┬á. ┬á. ┬áP ┬áO ┬áS ┬áT ┬á ┬á / ┬áT ┬áO ┬áS ┬ám ┬áe ┬ás ┬ás ┬áa
67 65 20 48 54 54 50 2F 31 2E 31 0D 0A 43 6F 6E
┬ág ┬áe ┬á ┬á H ┬áT ┬áT ┬áP ┬á/ ┬á1 ┬á. ┬á1 ┬á. ┬á. ┬áC ┬áo ┬án
6E 65 63 74 69 6F 6E 3A 20 4B 65 65 70 2D 41 6C
┬án ┬áe ┬ác ┬át ┬ái ┬áo ┬án ┬á: ┬á ┬á K ┬áe ┬áe ┬áp ┬á- ┬áA ┬ál
69 76 65 0D 0A 43 6F 6E 74 65 6E 74 2D 54 79 70
┬ái ┬áv ┬áe ┬á. ┬á. ┬áC ┬áo ┬án ┬át ┬áe ┬án ┬át ┬á- ┬áT ┬áy ┬áp
65 3A 20 61 70 70 6C 69 63 61 74 69 6F 6E 2F 78
┬áe ┬á: ┬á ┬á a ┬áp ┬áp ┬ál ┬ái ┬ác ┬áa ┬át ┬ái ┬áo ┬án ┬á/ ┬áx
2D 77 77 77 2D 66 6F 72 6D 2D 75 72 6C 65 6E 63
┬á- ┬áw ┬áw ┬áw ┬á- ┬áf ┬áo ┬ár ┬ám ┬á- ┬áu ┬ár ┬ál ┬áe ┬án ┬ác
6F 64 65 64 3B 20 43 68 61 72 73 65 74 3D 55 54
┬áo ┬ád ┬áe ┬ád ┬á; ┬á ┬á C ┬áh ┬áa ┬ár ┬ás ┬áe ┬át ┬á= ┬áU ┬áT
46 2D 38 0D 0A 41 63 63 65 70 74 3A 20 2A 2F 2A
┬áF ┬á- ┬á8 ┬á. ┬á. ┬áA ┬ác ┬ác ┬áe ┬áp ┬át ┬á: ┬á ┬á * ┬á/ ┬á*
0D 0A 55 73 65 72 2D 41 67 65 6E 74 3A 20 4D 6F
┬á. ┬á. ┬áU ┬ás ┬áe ┬ár ┬á- ┬áA ┬ág ┬áe ┬án ┬át ┬á: ┬á ┬á M ┬áo
7A 69 6C 6C 61 2F 34 2E 30 20 28 63 6F 6D 70 61
┬áz ┬ái ┬ál ┬ál ┬áa ┬á/ ┬á4 ┬á. ┬á0 ┬á ┬á ( ┬ác ┬áo ┬ám ┬áp ┬áa
74 69 62 6C 65 3B 20 57 69 6E 33 32 3B 20 57 69
┬át ┬ái ┬áb ┬ál ┬áe ┬á; ┬á ┬á W ┬ái ┬án ┬á3 ┬á2 ┬á; ┬á ┬á W ┬ái
6E 48 74 74 70 2E 57 69 6E 48 74 74 70 52 65 71
┬án ┬áH ┬át ┬át ┬áp ┬á. ┬áW ┬ái ┬án ┬áH ┬át ┬át ┬áp ┬áR ┬áe ┬áq
75 65 73 74 2E 35 29 0D 0A 43 6F 6E 74 65 6E 74
┬áu ┬áe ┬ás ┬át ┬á. ┬á5 ┬á) ┬á. ┬á. ┬áC ┬áo ┬án ┬át ┬áe ┬án ┬át
2D 4C 65 6E 67 74 68 3A 20 36 0D 0A 48 6F 73 74
┬á- ┬áL ┬áe ┬án ┬ág ┬át ┬áh ┬á: ┬á ┬á 6 ┬á. ┬á. ┬áH ┬áo ┬ás ┬át
3A 20 31 30 2E 30 2E 31 2E 38 3A 34 35 38 32 32
┬á: ┬á ┬á 1 ┬á0 ┬á. ┬á0 ┬á. ┬á1 ┬á. ┬á8 ┬á: ┬á4 ┬á5 ┬á8 ┬á2 ┬á2
0D 0A 0D 0A 00 00 00 00
┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á.
0C 00 00 00 0C 00 00 00 40 00 00 00 00 0C 29 6A
┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á. ┬á@ ┬á. ┬á. ┬á. ┬á. ┬á. ┬á) ┬áj
CB A5 B8 E8 56 2B 1A F6 08 00 45 00 00 2E 4A FF
┬á├ï ┬á┬Ñ ┬á┬© ┬á├¿ ┬áV ┬á+ ┬á. ┬á├Â ┬á. ┬á. ┬áE ┬á. ┬á. ┬á. ┬áJ ┬á├┐
40 00 80 06 99 5D 0A 00 01 66 0A 00 01 08 24 7B
┬á@ ┬á. ┬á. ┬á. ┬á. ┬á] ┬á. ┬á. ┬á. ┬áf ┬á. ┬á. ┬á. ┬á. ┬á$ ┬á{
B2 FE F2 06 BF B9 8D 3D 85 5C 50 18 01 00 3B E0
┬á┬▓ ┬á├¥ ┬á├▓ ┬á. ┬á┬┐ ┬á┬╣ ┬á. ┬á= ┬á. ┬á\ ┬áP ┬á. ┬á. ┬á. ┬á; ┬á├á
00 00 61 3D 31 35 2E 32 00 00 00 00
┬á. ┬á. ┬áa ┬á= ┬á1 ┬á5 ┬á. ┬á2 ┬á. ┬á. ┬á. ┬á.

zra · 08-05-2018, 11:35 AM

(08-05-2018, 11:19 AM)Dean┬áRoddey Wrote: The program you run I assume just runs and exits, right? So it will close the connection when it exits and the server will see that. You can always include a Close header line to make it clearer to the server that it's a one shot operation.

Actually I just realized you said the listener driver, not the web server. ┬áI don't think that the listener driver is going to do anything with post parameters encoded in the body. It only deals with query parameters. So re-do it as a GET and do the values you are passing as query parms, so

?a=15.2

and so forth. See if that doesn't work.

Will Do. I posted the HEX/ASCII data below. It does look like there is some garbage just prior to the data being sent. Not sure if that's the issue or not.┬á

Ill try the GET.

***Dean Roddey*** · 08-05-2018, 11:37 AM

I could actually pretty easily make a little HTTP capture program to help with such things. I'll put that on the list. It shouldn't be more than a casual afternoon project I think (famous last words.)

Login
Username:
Password:	Lost Password?
	Remember me

Possibly Related Threads…
Thread		Author	Replies	Views	Last Post
	Curious About Usage Post Public Domain	kblagron	17	2,082	09-24-2021, 09:00 AM Last Post: Dean Roddey
	Get Field Value via HTTP	znelbok	3	1,299	06-11-2020, 03:43 PM Last Post: Dean Roddey
	HTTP Trigger and Parameters	znelbok	1	1,058	06-11-2020, 03:41 PM Last Post: Dean Roddey
	HTTP SendPUT	simplextech	3	1,587	01-21-2020, 03:05 PM Last Post: simplextech
	CQC HTTP Events?	bjkiller	26	9,000	01-11-2020, 07:27 AM Last Post: simplextech
	Set value via HTTP Call	simplextech	2	1,281	01-07-2020, 04:39 PM Last Post: simplextech
	HTTP Trigger Driver - see trained URL's?	Shaky	1	1,742	09-15-2019, 12:25 PM Last Post: Dean Roddey
	HTTP Get driver not working	znelbok	10	5,476	08-28-2018, 10:10 AM Last Post: Dean Roddey
	HTTP Post	zra	7	3,573	05-18-2018, 08:47 AM Last Post: zra
	IFTT and HTTP Trigger parameter passing setup	Shaky	5	4,644	03-09-2018, 10:20 PM Last Post: Dean Roddey