Dim BanderaConectado As Boolean
Dim Indice(1 To 1000) As Boolean
Dim Form As New Form1
Dim Posicion As Double

Private Sub CmdConectar_Click()
   Call Conexion
   TxtMensaje.SetFocus
End Sub

Private Sub CeroIndice()
   Dim cont As Integer
   For cont = 1 To 1000
       Indice(cont) = False
   Next cont
End Sub

Private Sub Conexion()
   WSCEnvia.RemoteHost = TxtIp
   WSCEnvia.RemotePort = 49577
   WSCEnvia.Connect
   BanderaConectado = True
   TxtIp.Enabled = False
   CmdConectar.Enabled = False
   CmdDesconectar.Enabled = True
   If WSCEnvia.State = sckConnecting Then
       Form1.Caption = WSCEnvia.LocalIP & " - " & "Conectando..."
   End If
End Sub

Private Sub CmdDesconectar_Click()
   CmdConectar.Enabled = True
   TxtIp.Enabled = True
   CmdDesconectar.Enabled = False
   WSCEnvia.Close
End Sub

Private Sub CmdEnviar_Click()
   Call Envio
End Sub

Private Sub Envio()
   Dim Cadena As String
   If TxtMensaje.Text <> "" Then
       If WSCEnvia.State = sckConnected Then
           WSCEnvia.SendData TxtMensaje.Text
           Posicion = Posicion + Len(TxtMensaje.Text) + 2
           TxtTexto.Text = TxtTexto.TextRTF
           TxtTexto.Text = Mid(TxtTexto.Text, 1, Len(TxtTexto.Text) - 3) & TxtMensaje.Text & "}"
           TxtTexto.TextRTF = TxtTexto.Text
           TxtMensaje.Text = ""
           TxtTexto.SelStart = Len(TxtTexto.Text)
       Else
           TxtMensaje.Text = "NO ESTAS CONECTADO"
       End If
   End If
   TxtMensaje.SetFocus
End Sub

Private Sub Command1_Click()
   Dim a As Integer
   a = MsgBox("Recibe mensajes de múltiples fuentes" & vbCrLf & "Envia mensajes a un único destinatario", vbInformation, "Que hace... DiegoWinPopUp")
End Sub

Private Sub Form_Load()
   Call CeroIndice
   Posicion = 0
   WSCRecibe(0).LocalPort = 49577
   WSCRecibe(0).Listen
   Form1.Caption = WSCEnvia.LocalIP & " - " & "Desconectado"
End Sub

Private Sub Timer1_Timer()
   If WSCEnvia.State = sckConnected Then
       Form1.Caption = WSCEnvia.LocalIP & " - " & "Conectado"
   Else
       Form1.Caption = WSCEnvia.LocalIP & " - " & "Desconectado"
   End If
End Sub

Private Sub TxtMensaje_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       Call Envio
   End If
End Sub

Private Sub WSCRecibe_ConnectionRequest(Index As Integer, ByVal requestID As Long)
   Dim cont As Integer
   Dim BanderaIndice As Boolean
   cont = 1
   BanderaIndice = False
   While BanderaIndice = False
       If Indice(cont) = False Then
           Indice(cont) = 1
           BanderaIndice = True
       Else
           cont = cont + 1
       End If
   Wend
   Load WSCRecibe(cont)
   WSCRecibe(cont).Accept requestID
   If BanderaConectado = False Then
       TxtIp.Text = WSCRecibe(0).RemoteHostIP
       Call Conexion
   End If
End Sub

Private Sub WSCRecibe_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   Dim Cadena As String
   WSCRecibe(Index).GetData Cadena
   
   TxtTexto.Text = TxtTexto.TextRTF
   TxtTexto.Text = Mid(TxtTexto.Text, 1, Len(TxtTexto.Text) - 3) & vbCrLf & Cadena & "}"
   TxtTexto.TextRTF = TxtTexto.Text
   TxtTexto.SelStart = Posicion
   TxtTexto.SelLength = Len(Cadena) + 2
   TxtTexto.SelColor = &HFF5555
   Posicion = Posicion + Len(Cadena) + 2
End Sub

Label1.Caption = Time
Text1.Text = Time

WSCEnvia.SendData TxtMensaje.Text & "(" & Time & ")"

Private Sub Form_Load()
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = Time
   Text1.Text = Time
End Sub