Problème création serveur
Bonjour,
je voudrais créer un client serveur pour éteindre les PC de mon réseau.
Mais j'ai un soucis, lorsque je crée mon serveur, le formulaire n'est pas visible alors qu'il est bien lancé et le serveur est bien crée.
Code:
1 2 3 4 5 6 7 8 9 10 11
| LabelConnecté.Visible = True
Dim sRemoteAddress As String
Dim address As IPAddress = IPAddress.Parse("127.0.0.1")
Dim tcplistener As TcpListener = New TcpListener(address, 8100)
tcplistener.Start()
LabelNonConnecté.Visible = False
Dim SocketpourClient As Socket = tcplistener.AcceptSocket
sRemoteAddress = CType(SocketpourClient.RemoteEndPoint, IPEndPoint).Address.ToString
MsgBox("Un client vient de se connecter." & Microsoft.VisualBasic.Chr(10) & "IP du client : " & sRemoteAddress & "" & Microsoft.VisualBasic.Chr(10) & "") |
Lorsque je lance mon client, la connexion se fait mon formulaire réapparait.
Avez vous une explication ?