Programación General > Visual Basic 6.0 e inferiores

 Re: ¿Donde esta el error?

<< < (2/2)

martin campos quintero:
Aqui subo el código corregido bro

****PROGRAMA CLIENTE****

Private Sub Command1_Click()
  Winsock1.Connect "Pc8Compaq", 1145 'Se conecta al equipo llamado "Pc8Compaq" donde está el programa servidor por medio del puerto 1145 que es el que está escuchando el servidor
End Sub

Private Sub Command2_Click()
  Winsock1.SendData txtSend.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdata As String
  Winsock1.GetData strdata
  txtOutPut.Text = strdata
End Sub


****PROGRAMA SERVIDOR****

Private Sub Command1_Click()
  Winsock1.SendData txtSendData.Text 'Envía datos del "txtSendData" al cliente
End Sub

Private Sub Form_Load()
  Winsock1.LocalPort = 1145 'Establece que el socket esperará conexiones por el puerto 1145
  Winsock1.Listen 'Pone el socket a la espera de conexiones
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  If Winsock1.State <> sckClosed Then
    Winsock1.Close
    Winsock1.Accept requestID
  End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdata As String
  Winsock1.GetData strdata 'Almacena los datos recibidos en la variable strdata
  txtOutPut.Text = strdata
End Sub

Listo, ese chat ya es funcional  ;)

Ya si quieres hacer que al servidor se le conecten varios clientes, nadamás dime y te paso el código, suerte  :P

fap1603:
Pues a mi si me interesa el chat con varios clientes, si pudieras pasarme el codigo, te lo agradeceria mucho, me ahorrarias mucho tiempo, yo tengo algo pensado como hacerlo, pero ahora mismo no me da mucho tiempo por mi trabajo, y necesito algo de esto de todas formas, mi correo es fap1603@hotmail.com.  Gracias.

martin campos quintero:
Bueno FAP aquí subo el código, haciendo notar que en este los clientes solo pueden enviar mensajes al servidor y no a otros clientes, el servidor al enviar un mensaje lo envía a todos los clientes, esta característica la podrias usar para hacer una rutina que envíe un mensaje al servidor con la ip destino para poder enviar mensajes de cliente a cliente, o sea haciendo al servidor como si fuera un servidor de mensajes  :huh:

Navegación

[0] Índice de Mensajes

[*] Página Anterior