(VBScript) Socket Convenience Method: BuildHttpGetRequest

Demonstrates the BuildHttpGetRequest method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' The BuildHttpGetRequest method is a convenience method for building
' an HTTP GET request.  Normally, an application would use Chilkat's HTTP or REST API's
' for sending HTTP requests.  

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Socket")
set socket = CreateObject("Chilkat.Socket")

url = "http://www.chilkatsoft.com/test.asp?x=123&y=456"
reqStr = socket.BuildHttpGetRequest(url)
outFile.WriteLine(reqStr)
outFile.WriteLine("----")

' The result is:

' 	GET /test.asp?x=123&y=456 HTTP/1.1
' 	Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
' 	Connection: keep-alive
' 	User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
' 	Accept-Language: en-us,en;q=0.5
' 	Host: www.chilkatsoft.com

' The result is meant to look like a request from a browser.

' The same thing can be done using the Url and HttpRequest classes, but with more flexibility.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")
req.SetFromUrl url
reqStr = req.GenerateRequestText()
outFile.WriteLine(reqStr)
outFile.WriteLine("----")

' The result is:

' 	GET /test.asp?x=123&y=456 HTTP/1.1
' 	Host: domain

' Add some headers..
req.AddHeader "Host","www.chilkatsoft.com"
req.AddHeader "Accept-Language","en-us,en;q=0.5"
req.AddHeader "Some-Other-Header","123456"

reqStr = req.GenerateRequestText()
outFile.WriteLine(reqStr)

' The result is now:

' 	GET /test.asp?x=123&y=456 HTTP/1.1
' 	Host: www.chilkatsoft.com
' 	Accept-Language: en-us,en;q=0.5
' 	Some-Other-Header: 123456

outFile.Close