VBScript

Example: Http.DownloadSb method

See more HTTP Examples

Demonstrates the DownloadSb method. 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

set http = CreateObject("Chilkat.Http")
http.KeepResponseBody = 1

set sb = CreateObject("Chilkat.StringBuilder")
success = http.DownloadSb("https://chilkatsoft.com/testData/helloWorld.txt","utf-8",sb)

statusCode = http.LastStatus
If (success = 0) Then
    If (statusCode = 0) Then
        ' Unable to either send the request or get the response.
        outFile.WriteLine(http.LastErrorText)
    Else
        ' We got a response, but the status code was not in the 200s
        outFile.WriteLine("Response status code: " & statusCode)
        ' Examine the response body.
        outFile.WriteLine("Response body:")
        outFile.WriteLine(http.LastResponseBody)
    End If

    outFile.WriteLine("Download failed.")

Else
    outFile.WriteLine("Download success, response status = " & statusCode)
    outFile.WriteLine(sb.GetAsString())
End If


outFile.Close