VBScript

Example: Socket.DupSocket method

See more Socket/SSL/TLS Examples

Demonstrates how to call the DupSocket 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 socket = CreateObject("Chilkat.Socket")
success = socket.Connect("example.com",443,1,5000)

' ...
' ...

' Duplicate the socket to share the same connection across threads.
' In a multithreaded application, each thread should use its own socket object. For example:

' - The main thread can use the original socket for reading.
' - A secondary thread can use a duplicate for writing.
' - Another thread can use a separate duplicate to monitor the connection status.

set socket_for_sending = CreateObject("Chilkat.Socket")
success = socket.DupSocket(socket_for_sending)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

set socket_for_monitor = CreateObject("Chilkat.Socket")
success = socket.DupSocket(socket_for_monitor)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

' All three socket objects: socket, socket_for_sending, and socket_for_monitor share the same underlying connection.

outFile.Close