Close a Socket Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.Close, which gracefully terminates and closes the current TCP, TLS, or SSH channel connection. The argument bounds how long to wait for clean shutdown processing.

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 socket = CreateObject("Chilkat.Socket")

'  Connect to the server using TLS.  The 3rd argument enables the TLS handshake after the TCP
'  connection succeeds; the 4th is the maximum time to wait, in milliseconds.
bTls = 1
maxWaitMs = 5000
success = socket.Connect("example.com",5000,bTls,maxWaitMs)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

'  StringCharset controls the character encoding used when sending and receiving text.
socket.StringCharset = "utf-8"

'  Gracefully close the current TCP, TLS, or SSH channel connection.  The argument is the maximum
'  number of milliseconds to wait for clean shutdown processing (0 waits indefinitely).
success = socket.Close(1000)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Connection closed.")

outFile.Close