Para este caso solo se va a desrrollar
el servidor por que los clientes de la practica pasada deben de
funcionar, debido a que el manejo de los hilos de cada socket que
se encargara de cada cliente se realizara en el servidor.
Primero creamos un nuevo proyecto
en Visual Basic, y asignamos todoas las propiedades que se desean
modificar.
Agregamos 1 Boton de comando que
se encargaran de arrancar.
En el boton para arrancar el servidor
agregamos el siguiente codigo
Private Sub Form1_load()
NoCliente = 0
Server.LocalHost = 1000
Server.Listen
End Sub
En el evento del winsock Connection
Request agregamos el siguiente codigo
Private Sub Server_ConnectionRequest(Index As Integer, ByVal requestID
As Long)
If Index = 0 Then
NoCliente = NoCliente + 1
Load Server(NoCliente)
sckServer(NoCliente).LocalPort = 0
sckServer(NoCliente).Accept requestID
End If
End Sub
|