(VBScript) Async Accept Socket Connection

Demonstrates how to get the connected client socket after accepting a connection asynchronously.

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)

' This example assumes the Chilkat Socket API to have been previously unlocked.
' See Socket Unlock Sample for sample code.

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

' Bind to a port and listen.
' This example will listen at port 5555 and allows for a backlog
' of 25 pending connection requests.
success = listenSocket.BindAndListen(5555,25)
If (success <> 1) Then
    outFile.WriteLine(listenSocket.LastErrorText)
    WScript.Quit
End If

' Start a background task to accept an incoming connection ...
maxWaitMs = 20000
' acceptTask is a Chilkat.Task
Set acceptTask = listenSocket.AcceptNextConnectionAsync(maxWaitMs)
success = acceptTask.Run()

' ...
' ...
' ...

' Imagine at this point the task has completed successfully,
' and a connection was accepted.  Here's how to get the connected socket...
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Socket")
set connectedClient = CreateObject("Chilkat.Socket")
success = connectedClient.LoadTaskResult(acceptTask)

' Here's how it works:  The AcceptNextConnection method would normally
' return a socket object when called synchronously.  When called asynchronously,
' it cannot do so because it returns the task object.  When the async method
' (running in a background thread) completes, the socket object that is the client
' connection is contained within the task object.
' 
' This can be generalized for any case where a Chilkat method returns an object.
' The async version of that method is such that the object returned in the background
' thread is contained within the task object.

' To get the result object, we create a new object instance of that type.
' In this case, we create a socket object (connectedClient).  There is a LoadTaskResult
' method in all Chilkat classes that can be a return value of an async method call.
' The LoadTaskResult method transfers the returned object from the task to the caller.

outFile.Close