[/

CLIENTE

Dim datos As String 'Creamos una variable para almacenar los datos que se reciban
Private Sub Form_Load()
txtLogs.Text = ""    'Borramos contenido..
txtEnviar.Text = ""  '...
wskCliente.LocalPort = 666 'Especificamos el puerto para escuchar
wskCliente.Listen 'Ponemos en escucha el winsux, para poder esperar la conexion con el servidor
txtLogs.Text = txtLogs.Text & "Esperando conexion... " & Time & vbCrLf
End Sub

Private Sub wskCliente_Close()
txtLogs.Text = txtLogs.Text & "se perdio la conexion " & Time & vbCrLf 'Si se cierra la conexion el txtlogs lo mostrara textualmente
wskCliente.Close 'Cerramos el sock
wskCliente.Listen 'Ponemos otra vez en escucha
txtEnviar.Enabled = False
End Sub

Private Sub wskCliente_ConnectionRequest(ByVal requestID As Long)
wskCliente.Close 'En caso de que se pida conexion, se cierra el winsock para evitar errores
wskCliente.Accept requestID 'aceptamos y pedimos el id ....
txtLogs.Text = txtLogs.Text & "conexion establecida " & Time & vbCrLf 'Muestra si se ha conectado
txtEnviar.Enabled = True
End Sub

Private Sub wskCliente_DataArrival(ByVal bytesTotal As Long)
wskCliente.GetData datos 'Cuando llegan strings los guardamos en esta variable
txtLogs.Text = txtLogs.Text & "Server: " & datos & " " & Time & vbCrLf 'ponemos en el txtlogs lo que llegue
datos = "" 'borramos el contenido de datos, porque si llega otra se suman las dos strings (ej. 1- borrar, 2-cambiar = borrarcambiar)
End Sub

Private Sub wskCliente_Error(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)
wskCliente.Close
wskCliente.Listen 'Si por alguna extraña razon (xD) hay un error cerramos y volvemos a escuchar
End Sub

Private Sub txtEnviar_KeyPress(KeyAscii As Integer)
Select Case KeyAscii   'seleccionamos el tipo de caso
Case 13                'si presionan la tecla enter hace lo que dice abajo
wskCliente.SendData txtEnviar 'Enviamos los datos del textbox de abajo
txtLogs.Text = txtLogs.Text & "Client: " & txtEnviar.Text & " " & Time & vbCrLf
txtEnviar.Text = ""
End Select 'termina de seleccionar el caso keyascii
End Sub

SERVER

Dim datos As String 'Creamos una variable para almacenar los datos que vengan del cliente
Private Sub Form_Load()
txtLogs.Text = ""
txtEnviar.Text = ""     'Borramos el contenido de texbox y le ponemos tiempo al timer
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error 'Si hay un error va a error...
txtLogs.Text = txtLogs.Text & "Enviando peticion de conexion a 127.0.0.1 ... " & Time & vbCrLf 'Aqui se indica graficamente que se esta haciendo
wskServidor.Connect "127.0.0.1", 666 'El codigo indica que wsk... se tiene que conectar a 127.0.0.1 y al puerto 666
Error:
Exit Sub     'si hay error en la conexion sale del sub y pasan dos segundos para que se repita todo
End Sub

Private Sub txtEnviar_KeyPress(KeyAscii As Integer)
Select Case KeyAscii   'seleccionamos el tipo de caso
Case 13                'si presionan la tecla enter hace lo que dice abajo
wskServidor.SendData txtEnviar 'Enviamos los datos del textbox de abajo
txtLogs.Text = txtLogs.Text & "Server: " & txtEnviar.Text & " " & Time & vbCrLf
txtEnviar.Text = ""
End Select 'termina de seleccionar el caso keyascii
End Sub

Private Sub wskServidor_Close()
txtLogs.Text = txtLogs.Text & "Conexion finalizada " & Time & vbCrLf 'nos dice que ya se acabo la conexion
txtEnviar.Enabled = False 'Se hace esto para que no envie nada mientras el winsock no este conectado
Timer1.Enabled = True 'volvemos a intentar la conexion
wskServidor.Close 'se cierra para prevenir errores
End Sub 'termina el sub

Private Sub wskServidor_Connect()
Timer1.Enabled = False 'Si se conecta termina con el proceso del timer
txtLogs.Text = txtLogs.Text & "Conexion establecida con 127.0.0.1 " & Time & vbCrLf 'nos muestra que hay una conexion
txtEnviar.Enabled = True 'activa el textbox
End Sub

Private Sub wskServidor_DataArrival(ByVal bytesTotal As Long)
wskServidor.GetData datos 'en la variable previamente creada almacenamos lo que llegue
txtLogs.Text = txtLogs.Text & "Client: " & datos & " " & Time & vbCrLf 'muestra los datos recividos
datos = ""
End Sub

Private Sub wskServidor_Error(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)
txtLogs.Text = txtLogs.Text & "No se logro conectar al host " & Time & vbCrLf 'nos dice que no se logro conectar
wskServidor.Close 'cierra el winsock para volver a intentar
End Sub

]

wskServidor.Connect "127.0.0.1", 666 'El codigo indica que wsk... se tiene que conectar a 127.0.0.1 y al puerto 666

Porque no lo hago asi... lo que hago es ponerlo de esta forma
wskServidor.Connect "localhost", 666 'En localhost pongo el IP de mi computadora ó mi localhost (en este momento estoy usando mi localhost porque como la IP cambia, a menos que tenga una IP fija)

Creen que aun asi ese sea el problema... o que debo cambiar y en vez de poner mi localhost debo poner mi IP.