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 ?

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
Merci d'avance