VBScript

REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

See more REST Examples

Demonstrates how the autoReconnect argument to the Connect method is used. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rest = CreateObject("Chilkat.Rest")

' This example demonstrates the usage of the autoReconnect argument to the Connect method.
' When autoReconnect is on, subsequent REST method calls will automatically re-connect
' if necessary, using the same information (domain/IP address, port number, and TLS).
bTls = 0
port = 80
bAutoReconnect = 1
success = rest.Connect("dev.markitondemand.com",port,bTls,bAutoReconnect)

' Get a stock quote:
success = rest.AddQueryParam("symbol","AAPL")
responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

set xml = CreateObject("Chilkat.Xml")
success = xml.LoadXml(responseXml)
outFile.WriteLine("AAPL LastPrice: " & xml.GetChildContent("LastPrice"))

' Get another stock quote.  If a new HTTP connection is required,
' the REST object will automatically connect using the same parameters.
success = rest.AddQueryParam("symbol","AMZN")
responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = xml.LoadXml(responseXml)
outFile.WriteLine("AMZN LastPrice: " & xml.GetChildContent("LastPrice"))

outFile.Close