VBScript

Send HTTPS Get Without Waiting for the Response

See more REST Examples

This example demonstrates sending an HTTP GET request without waiting for the response. 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 assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rest = CreateObject("Chilkat.Rest")

' Connect to the server using TLS
bAutoReconnect = 0
success = rest.Connect("example.com",443,1,bAutoReconnect)
If (success = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

' Send a GET request to https://example.com/some/path 
success = rest.SendReqNoBody("GET","/some/path")
If (success = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

' OK, the request was sent.
' Close the connection.
maxWaitMs = 50
success = rest.Disconnect(maxWaitMs)

outFile.WriteLine("GET Request Sent.")

outFile.Close