Facundo92
15 de Febrero del 2006

hola.. estoy creando un chat y hay algo que no sale.. bueno aca les dejo el codigo por favor si alguien save que ocurre comuniquemelo a mi mail [email protected] o deje la respuesta..

Codigo:
Servidor:
private sub from1_load()
WinSock1.LocalPort = 888
Text1.Text =
Text2.Text =
Command1.Caption = "Escuchar"
comman2.caption= "enviar"

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Cliente:
private sub from1_load()
WinSock1.RemotePort = 888
Text1.Text =
Text2.Text =
Text3.Text =
Command1.Caption = "Conectar"
Command2.Caption = "Enviar"

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

el error que sale es que me dice que snedata no es algo valido o algo asi...
gracias

CSDK
15 de Febrero del 2006

TE ENVIO POR CORREO EL CODIGO ESPERO QUE TE AYUDE