Problemas de programación en VB
Opción
Explícito
Privado
Sub
form_load()
tcpServer.LocalPort
=
8888
tcpServer.Listen
lblState.Caption
=
"No hay clientes actualmente in!Listening
lblState.Caption
=
"¡Actualmente no hay clientes! "
Fin
Sub
Privado
Sub
tcpServer_ConnectionRequest(ByVal
requestID
Como
Long)
Si
tcpServer.
lt;gt;
sckClosed
Entonces
tcpServer.Close
tcpServer.Accept
requestID
Long.p >lblState.Caption
=
"¡Un cliente ha entrado en esta máquina! IP: "
amp;
tcpServer.RemoteHostIP
Fin
Sub
Privado