Bind and Listen on an Available Port in a Range

See more Socket/SSL/TLS Examples

Demonstrates Socket.BindAndListenPortRange, which searches an inclusive port range for an available TCP port, binds it, and begins listening. It returns the selected port, or -1 on failure.

Dim socket As New Chilkat.Socket

'  Search the inclusive port range for an available TCP port, bind it, and begin listening.  The
'  method returns the selected port, or -1 when no port can be bound.
Dim boundPort As Integer = socket.BindAndListenPortRange(5000,5100,25)
If (boundPort < 0) Then
    Debug.WriteLine(socket.LastErrorText)
    Exit Sub
End If

Debug.WriteLine("Listening on port " & boundPort)