Community Center | Not monitored
Tag not monitored by Microsoft.
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Can you please tell me, what should be the contents of queryString$ in the following function?
Private Function PostRequest(queryString$, userid$, key$, body$) As String
With New WinHttpRequest
.Open "POST", "https://data.azure-api.net/Senddata?" & queryString, True
.SetRequestHeader "userid", userid
.SetRequestHeader "Key", key
.SetRequestHeader "Content-Type", "application/json"
.Send body '<- UTF8-conversion of the body-string happens automatically
If Not .WaitForResponse(10) Then '<- give it 10 seconds timeout
Debug.Print "http-request timed out..:"
ElseIf .Status <> 200 Then
Debug.Print "http-request failed with status: "; .Status & " " & .StatusText
Else 'success (let's return the string-response)
PostRequest = .ResponseText 'again, conversion from UTF8 is automatic
End If
End With
End Function
Tag not monitored by Microsoft.