Foro de elhacker.net

 
Option Explicit
Private WithEvents Socket       As CSocketPlus  '   //  Para el Listening
 
Private Sub Form_Load()
Dim IDS&
    Set Socket = New CSocketPlus
    With Socket
        For IDS& = 0 To 10
            Call .ArrayAdd(IDS&)
        Next
        .LocalPort(0) = 41
        Call .Listen(0)
    End With
End Sub
 
Private Sub Form_Terminate()
    Set Socket = Nothing
End Sub
 
Private Sub Socket_CloseSck(ByVal Index As Variant)
    Debug.Print "DESCONECTADO:"; vbTab; Index
End Sub
 
Private Sub Socket_ConnectionRequest(ByVal Index As Variant, ByVal RequestID As Long)
Dim ThisIDAcept&
Dim Status          As SockState
    With Socket
        Do
            ThisIDAcept& = ThisIDAcept& + 1
            If .ArrayIndexInUse(ThisIDAcept&) Then
                Status = .State(ThisIDAcept&)
                If Status = sckClosed Or Status = sckError Or Status = sckClosing Then
                    Exit Do
                End If
            Else
                'Call .ArrayAdd(AceptConexion&) '   //  DESGRACIADAMENTE NO SE PUEDE AÑADIR XS
                Exit Sub                        '   //  POR ENDE IGNORAMOS ESTA CONEXION
                'Exit Do
            End If
        Loop
        Call .CloseSck(ThisIDAcept&)
        Call .Accept(ThisIDAcept&, RequestID)
    End With
    Debug.Print "ID Socket Aceptado:"; vbTab; ThisIDAcept&
End Sub
 
Private Sub Socket_DataArrival(ByVal Index As Variant, ByVal bytesTotal As Long)
Dim vData$
    Socket.GetData Index, vData$, vbString
    Debug.Print "("; vData$; ") :-->"; vbTab; vData$
End Sub