Сокет занят ошибка

[xenomorph]

Привет всем!
Вопрос:

Пишу чат, он использует Winsock.
Ессли он уже раз запущен, - сокет Is Listening,
происходит ошибка - сокет занят.

Как её обработать?
Выскакивает Error ...

Такой код:

'===================
On Error GoTo e1
ChatServer.WS.Listen
e1:
Exit Sub
'===================

и такой:

'===================
Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS.Close
End Sub
'===================


Не прохдят
(вариант с получением "netstat /a" пройдёт, но есть ли вариант попроще?)
Посоветуйте пожалуйста ...

Огромное спасибо заранее!

[alibek]

А что ты хочешь?
Имеется запущенный сервер #1, ты запускаешь еще один экземпляр сервера #2. При этом у #2 происходит WS_Error.
Если ты хочешь закрыть #1, то ничего у тебя не выйдет. Разве что переписать #1 и #2 так, чтобы можно было передавать информацию между процессами, тогда с из #2 уведомляешь #1, что ему надо закрыть сокет.
А если ты просто хочешь обработать ошибку на #2, то все делаешь правильно, только добавь CancelDisplay = True.

[xenomorph]

2 Alibek Tx!
Последнее имелось ввиду

[SSecurity]

я решал проблему так:

Код: Выделить всё

Function ProveraPorta() As Boolean
On Error GoTo PERR
Net.Close
Net.LocalPort = 10056
Net.Listen
Net.Close
ProveraPorta = False
Exit Function

PERR:
Net.Close
ProveraPorta = True
Net.LocalPort = 0
End Function


Net - это Winsock
при False порт свободен ...