Bonjour tout le monde,
J'ai créer une fonction de connexion pour du TCP mais le problème réside qu'il ne sort pas en erreur quand il a personne sur le port où il tente de se connecter.
Pire, Com.connected est à True et je peu envoyer quelque chose sans aucune erreur. Pouvez-vous me dire comment tester que mon programme est effectivement connecté à quelque chose ?
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Connect(ByVal IP As IPEndPoint) Implements IClientToComTCPIP.Connect Dim tmp(0) As Byte Com = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Com.Connect(IP) Com.Blocking = False 'True ne change rien au problème Com.Send(tmp, 0, 0) 'Com.ReceiveTimeout = 2000 If Not Scheduler.IsAlive Then Scheduler.Start(Com) End If End Sub
Partager