Hola a todos, miren yo quiero hacer un chat. el problema que tengo no es para conectarme ni nada de eso, el problema es como hacer un servidor que hacepte más de 1 una conección.
siempre me da error.

En otros foros me han dicho que es imposible en Visual Basic. Estoy pregutando aqui porque ustedes son los unicos que me pueden confirmar esta información.

salu2s y gracias de antemano.

Atte: YOXD

No estoy muy seguro, soy nuevo en esto de los programas con winsock, pero creo que crear un control para cada conexión serviría.
Recuerda poner el Index del winsock que hagas en 0.

Código:

Dim wsIndex as Integer
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
 ws(0).Close
 wsIndex = wsIndex + 1
 Load ws(wsIndex)
 ws(wsIndex).Accept requestID
 ws(0).Listen
End Sub

Aquí el winsock(0) sería el que escucha e iría creando un winsock para cada conexión que hiciera.
Espero te sirva.

DarkNeko

Gracias man... me sacaste de la duda.

muy bueno el blog XD

mmm... ahora nme da error
nose porque ... me estare equivocando en algo?

La verdad no sé, nunca he utilizado ese código con más de un cliente (no tengo más de una semana usando winsock, jejeje). Habrá que preguntarle a los expertos .
Gracias por el cumplido (por lo del blog) xD.

DarkNeko

Private intMax As Long

Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub

Espero eso te sirva Saludos.<?:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" />