Red de conocimiento informático - Problemas con los teléfonos móviles - Problemas de programación en VB

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