localip --> regresa la IP del equivo local...
Remopthost --> Dirrecion IP del equivo a conectarse... ( localhost, 127.0.0.1 son IPS locales sin contar las IPS de la Red LAN que hay standarts para esto )
RemotePort --> Puerto a conectarse
Por lo tanto en el cliente puede ser lo nsiguiente...
Caso En linea:
call Connect (IPREMOTA,PUERTOREMOTO)
Caso 2:
RemoteHost = "www.google.com.mx"
RemotePort = 80
call Connect
LocalPort --> PArte del puerto en escucha (Servidor)
listen --> pode y registra el puerto en escucha.
Caso Particular
Localport = 80
call listen
Evento Peticion
Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
with WS_Out
call .close
call .accept (requestid)
end with
End Sub
Nota, puedes aceptar la conexión en otro Socket si asi lo deseas:
Caso de conexion Lenta (Pero Segura):
Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
call Ws_Our.close
with WS_OtroSocket
call .close
call .accept (requestid)
end with
call Ws_Our.listen
End Sub
Caso Rapido en la conexion... (Inestable)
Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
with WS_OtroSocket
call .close
call .accept (requestid)
end with
End Sub
Edito:
Enlace ejemplar
http://foro.elhacker.net/index.php/topic,17665.msg233177.html#msg233177Aqui tienes Ejemplos de Chats que he hecho...
3 Ejemplos:
http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples1 Ejemplo Mas
http://infrangelux.sytes.net/FileX/?file=chat.zip&dir=/BlackZeroX/Programacion/vb61 Ejemplo Mas (Ajeno)
http://infrangelux.sytes.net/FileX/?file=chat.zip
Si no entendiste esto Estas muerto... y si no me entendiste nada de nada pasate a por google, recursos visual basic, openproject, PSC, uff vbFrance... u otra lugar donde haya ejemplos.
Dulce Infierno Lunar!¡.