Share via

queryString$ in vb6.0

Bill dim 21 Reputation points
2021-12-16T18:45:16.753+00:00

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
Community Center | Not monitored
0 comments No comments

Your answer

Answers can be marked as 'Accepted' by the question author and 'Recommended' by moderators, which helps users know the answer solved the author's problem.