Get/post to RESTful web service

Question

I need to do some GETing and POSTing to a RESTful web service from VB6. What is the best and simplest way to do that?

Answer 1

You'll need to add a reference to the MSXML library:

Dim sUrl As String Dim response As String Dim xmlhttp  Set sUrl = "http://my.domain.com/service/operation/param"  Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "POST", sURL, False xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send()  Dim response As String = xmlhttp.responseText  Set xmlhttp = Nothing 

Answer 2

I needed this for GET requests in an old legacy application recently, and since the accepted answer doesn't compile I thought I'd post some working code. I'm sure it will help some poor sole using VB6 in the future ;) Here's a nice clean function.

Public Function WebRequest(url As String) As String
    Dim http As MSXML2.XMLHTTP
    Set http = CreateObject("MSXML2.ServerXMLHTTP")

    http.Open "GET", url, False
    http.Send

    WebRequest = http.responseText
    Set http = Nothing
End Function

And here's example usage:

Dim result As String
Dim url As String

url = "http://my.domain.com/service/operation/param"
result = WebRequest(url)

Happy VB6ing! :)