Hola:
Lo primero una aclaracion a cerca del funcionamiento de los chats un poco decentillos:
Creo q funcionan asi: Existe un solo servidor y los usuarios tiene ckientes q se conectan a él (tipo messenger) El servidor se encarga de administrar las combersaciones.
Si tu solamente kieres hacer un caht entre dos personas no te hace falta todo esto, con dos aplicaciones como las q estas haciendo ahora te sobra.
En cuanto a lo del fallo puede q este aki:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
rpt = MsgBox(datos, vbOKOnly)
End Sub
Sustitulle la ultima linea por
msgbox datos,vbokonly,"CHAT"
A ver si asi te llegan.
Para q los dos programas puedan interactuar tiene q poner el evento ws_DataArrival en ambos.
Mira te improviso ahora en un momen un chat para dos pc's:
'La parte de q se conecten y tal la pones como la tuya por ejemplo
'q es siempre lo mismo
'lst es un listbox, ws el winsock, txtMensaje el textbox donde
'escribimos lo q vamos a mandar y cmdMandar el boton donde
'le damos para enviar
Dim nick As String
Private Sub cmdMandar_Click()
lst.AddItem (nick & " dice:")
lst.AddItem (txtMensaje.Text)
ws.SendData "nk" & nick & " dice:"
ws.SendData "co" & txtMensaje.Text
txtMensaje.Text = ""
End Sub
Private Sub Form_Load()
nick = InputBox("Introduce nick", nick)
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left(datos, 2) = "nk" Then
lst.AddItem (Mid(datos, 3))
End If
If Left(datos, 2) = "co" Then
lst.AddItem (Mid(datos, 3))
End If
End Sub
Esto lo tienes q incluir en los dos, despues solo te keda poner tb a los dos a la escuxa de un puerto en el formload (por si alguien te kiere hablar) y añadir un boton en el q te puedas conectar a una ip q tienes q escribir en un text box o algo asi
(por supuesto esto tb en los dos), digo dos pero con este metodo puedes hablar con todas las personas q kieras, siempre q conozcas su ip, eso si, si kieres q se pueda hablar con varias a la vez tienes q hacer una matriz de controles ws... Si kieres q haga esto dale a buscar, WarGhost tenia por ahi un code muy weno pa esto, y si no pos posteas aki y te intentamos ayudar
Espero q te sea util y q funcione, por q lo acabo de escribir, ni sikiera lo e provado xDDDDD pero vamos q tiene pinta de haberme kedado muy chulo, no te parece????
1S4ludo
Mostrar Mensajes
