35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
' SendHTTPRequest(URL : String)
|
|
' ----------------------------------------------------------------------------
|
|
' KURZBESCHREIBUNG
|
|
'
|
|
' Returns: SendHTTPRequest : String
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 10.08.2020 / MK
|
|
' Version Date / Editor: 10.08.2020 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
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 |