' Check if Server Port is available
Dim isPortAvailable As Boolean = True
Dim ipGlobalProp As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Dim ipEndPt() As IPEndPoint = ipGlobalProp.GetActiveTcpListeners
For Each tcpListeners As IPEndPoint In ipEndPt
If tcpListeners.Port = ServerPort Then
isPortAvailable = False
Exit For
End If
Next
If isPortAvailable = False Then
' Connection already open on Server Port
InvokeUpdateServerStatus("[ERROR] Connection Already Open on TCP Port: " & ServerPort)
Else
' Enable Start Server Button
InvokeButtonStartServer(True)
InvokeUpdateServerStatus("[INFO] Server Ready to Start...")
End If