Webservice.md

Calling a Webservice via script

This script can be used to return text, HTML, XML or JSON from a webservice.

Public Function HTTP_GET(URL As String) As String
   'Add reference to Microsoft XML 6.0 in Edit\References... Menu
   Dim HTTP As New MSXML2.XMLHTTP60
   HTTP.Open("GET", URL, False) 'false = synchronous = wait for response, don't continue
   HTTP.send
   If HTTP.status<>200 Then
      'TODO error handling
   Else
      HTTP_GET=HTTP.responseText
      'HTTP_GET=HTTP.responseXML  'if you want to return an XML object change the return type of the function to MSXML2.DOMDocument60
   End If
End Function

Public Function HTTP_POST(URL As String, Request As String) As String
   'Add reference to Microsoft XML 6.0 in Edit\References... Menu
   Dim HTTP As New MSXML2.XMLHTTP60
   HTTP.Open("POST", URL, False) 'false = synchronous = wait for response, don't continue
   'Here you can set any headers required by the webservie
   'HTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   HTTP.send(Request)
   If HTTP.status<>200 Then
      'TODO error handling
   Else
      HTTP_POST=HTTP.responseText
   End If
End Function