Foro de elhacker.net

Private Sub Command1_Click()
    Dim numElementos As Integer 'numero de sockets
    Dim i As Integer 'contador
    i = Text4.Text 'Index del Socket a Contactar
    'obtiene la cantidad de Winsocks que tenemos
    numElementos = Winsock2.UBound
    'si el socket se encuentra conectado...
    If Winsock2(i).State = sckConnected Then
        'enviamos el contenido de Text2
        Winsock2(i).SendData Text2.Text & vbCrLf
        'apuntamos al final del contenido del TextBox e
        'insertamos los nuevos datos obtenidos
        Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
        Text1.Text = Text1.Text & "Sock" & i & ":Servidor >" & Text2.Text & vbCrLf 'mostramos los datos
        Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
    End If
    'borramos Text2
    Text2.Text = ""
End Sub
Private Sub Winsock2_Close(Index As Integer)
    'cierra la conexion
    Winsock2(Index).Close
    'desplegamos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "Sock" & Index & ":*** Conexion cerrada por el Cliente." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Winsock2_Error(Index As Integer, 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)
    'cerramos la conexion
    Winsock2(Index).Close
    'mostramos informacion sobre el error
    MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
'Carga un nuevo socket al arreglo y devuelve su indice
Private Function NuevoSocket() As Integer
    Dim numElementos As Integer 'numero de sockets
    Dim i As Integer 'contador
    'obtiene la cantidad de Winsocks que tenemos
    numElementos = Winsock2.UBound
    'recorre el arreglo de sockets
    For i = 0 To numElementos
        'si algun socket ya creado esta inactivo
        'utiliza este mismo para la nueva conexion
        If Winsock2(i).State = sckClosed Then
            NuevoSocket = i 'retorna el indice
            Exit Function 'abandona la funcion
        End If
    Next
    'si no encuentra sockets inactivos
    'crea uno nuevo y devuelve su identidad
    Load Winsock2(numElementos + 1) 'carga un nuevo socket al arreglo
    'devuelve el nuevo indice
    NuevoSocket = Winsock2.UBound
End Function
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Dim numSocket As Integer 'el numero del socket
    'mostramos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Peticion numero " & requestID & vbCrLf
    Text1.SelStart = Len(Text1.Text)
    'creamos un nuevo socket
    numSocket = NuevoSocket
    'aceptamos la conexion con el nuevo socket
    Winsock2(numSocket).Accept requestID
    'desplegamos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "Sock" & numSocket & ":*** Conexion aceptada, listo para interactuar." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub