Accept the Next Incoming Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

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.BindAndListen(5000,25)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

'  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
'  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
'  includes the server-side TLS handshake.
set connectedSock = CreateObject("Chilkat.Socket")
success = socket.AcceptNext(20000,connectedSock)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Accepted a connection from " & connectedSock.RemoteIpAddress)

outFile.Close