Ayuda con winsocks
Hola, alguien sabe dónde puedo encontrar documentación para winsocks en castellano?
Gracias!!!
Gracias!!!
En los libros en pantalla que viene en el MSN solo busca "Como usar el Control Winsock", te mando el codigo gener el servidor y el cliente en maquinas distinta corre cada programa
PARA EL SERVIDOR
TE PERMITE CONECTAR N MAQUINAS, PERO TIENES QUE ASEGURARTE QUE ESTA INSTALADO EL PROTOCOLO TCP/IP EN LAS MAQUINAS QUE QUIERAS CONECTAR
Y DESDE DISEÑO PON LA PROPIEDAD INDEX DEL WINSOCK A CERO, PARA QUE GENERES UN MATRIS DE CONTROLES WINSOCK
Private Sub wskServer_ConnectionRequest(Index As
Integer, ByVal requestID As Long)
If Index = 0 Then
Maquinas = Maquinas + 1
Load wskServer(Maquinas)
wskServer(Maquinas).Accept requestID
End If
End Sub
PARA EL CLIENTE, PON ESTE CODIGO EN EL EVENTO O CONTROL QUE QUIERAS QUE REALIZE LA CONEXION
sckCon.RemotePort = 1000
'AQUI PON LA DIRECCION IP O EL NOMBRE DESCRIPTIVO DE LA MAQUINA "127.0.0.1" Ó "MAQUINA-1"
sckCon.RemoteHost = "caiisa-6"
If sckCon.State = 0 Then
sckCon.Connect
End If
PARA EL SERVIDOR
TE PERMITE CONECTAR N MAQUINAS, PERO TIENES QUE ASEGURARTE QUE ESTA INSTALADO EL PROTOCOLO TCP/IP EN LAS MAQUINAS QUE QUIERAS CONECTAR
Y DESDE DISEÑO PON LA PROPIEDAD INDEX DEL WINSOCK A CERO, PARA QUE GENERES UN MATRIS DE CONTROLES WINSOCK
Private Sub wskServer_ConnectionRequest(Index As
Integer, ByVal requestID As Long)
If Index = 0 Then
Maquinas = Maquinas + 1
Load wskServer(Maquinas)
wskServer(Maquinas).Accept requestID
End If
End Sub
PARA EL CLIENTE, PON ESTE CODIGO EN EL EVENTO O CONTROL QUE QUIERAS QUE REALIZE LA CONEXION
sckCon.RemotePort = 1000
'AQUI PON LA DIRECCION IP O EL NOMBRE DESCRIPTIVO DE LA MAQUINA "127.0.0.1" Ó "MAQUINA-1"
sckCon.RemoteHost = "caiisa-6"
If sckCon.State = 0 Then
sckCon.Connect
End If
