трабл с on error goto

[Mel]

У меня на форме есть 2 сокета.
первый клиент, а второй сервер...
мне нада сделать так, чтобы если клиент не может подсоединится к удаленному серверу, то серверный сокет открывал порт...

КАК ЭТО СДЕЛАТЬ
помогите плз

[GSerg]

Так винсок же возвращает код ошибки. Анализируй его и действуй.

[Mel]

А можна пожалуйста с конкретным примером?

[GSerg]

Определи событие

Private Sub Winsock1_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)

В рамках этого события проверяй, не совпадает ли Number с sckConnectRefused (или sckConnectAborted, не помню). Если совпадает, открывай порт на втором сокете.

[sanches]

Вот небол. примерчик

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

Option Explicit

Private Sub Command1_Click()
    sckClient.Connect "127.0.0.1", 1234
End Sub

Private Sub sckClient_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)
    If Number = sckConnectionRefused Then
        sckClient.Close
        MsgBox "Starting server.", vbInformation
        sckServer.Listen
    End If
End Sub