20 lines
540 B
Plaintext
20 lines
540 B
Plaintext
Function SendHTTPRequest(URL)
|
|
|
|
'Create the array for the return values of this function
|
|
Dim HTTPRequest(1)
|
|
|
|
Set Request = CreateObject("MSXML2.XMLHTTP")
|
|
Request.Open "POST", URL, False
|
|
Request.Send
|
|
HTTPRequest(0) = Request.ResponseText
|
|
HTTPRequest(1) = Request.Status
|
|
|
|
If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
|
|
AddDebugLine "Response from WebServices!"
|
|
AddDebugLine "Status: " & HTTPRequest(1)
|
|
AddDebugLine "Body: " & HTTPRequest(0)
|
|
ShowDebugBox "WebServices"
|
|
End If
|
|
|
|
SendHTTPRequest = HTTPRequest
|
|
End Function |