[VB.NET] [Socket] Tester si un port est ouvert ?

Le code est celui ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

# Public Sub TestPort() # _blEtat = True # ' Instanciation d'une plage d'IP d'une seule valeur # Dim PlageIP As System.Net.IPAddress = System.Net.Dns.Resolve(Host).AddressList(0) # Dim HostetPort As New System.Net.IPEndPoint(PlageIP, Port) # ' Test quel type de port est sélectionné # If _strProtocol = "Tcp" Then ' Si c'est Tcp alors on défini un Socket Tcp # Dim LeSocket1 As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp) # Try # LeSocket1.Connect(HostetPort) # If Not LeSocket1.Connected Then ' Test si le socket est connecté donc si il y a un connection au port # ' Si le port est fermé # _blEtat = False # Return # Else # ' Si le port est ouvert # _blEtat = True # Return # End If # Catch # ' Si la connection retourne une erreur. Intérprété comme port fermé ou périphérique injoignable # _blEtat = False # Return # End Try # Else 'Sinon on définit un Socket Udp # Dim LeSocket2 As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Udp) # Try # LeSocket2.Connect(HostetPort) # If Not LeSocket2.Connected Then ' Test si le socket est connecté donc si il y a un connection au port # ' Si le port est fermé # _blEtat = False # Return # Else # ' Si le port est ouvert # _blEtat = True # Return # End If # Catch # ' Si la connection retourne une erreur. Intérprété comme port fermé ou périphérique injoignable # _blEtat = False # Return # End Try # End If # End Sub

---

Mais il n'est pas fiable même pour tester les ports en local (tester avec le port 21 par exemple)

Citation:

---

Mais il n'est pas fiable même pour tester les ports en local (tester avec le port 21 par exemple)

---

C'est vrai, je m'étais déjà posé la question lors des tests ("Pourquoi mon port 21 est fermé alors que je peux ma connecter au ftp..."). Je ne sais pas si cela et ton cas mais le port 21 est ouvert uniquement si un serveur ftp est installé sur le pc est qu'il est en marche. Enfin je dis cela car je me suis fais avoir car mon serveur ftp n'était pas encore réinstallé...:aie:

Bon, je ne dispose pas de VB dans le coin, mais si je fais ce code en C# , le port ftp est bien trouvé (testé sur ftp.kernel.org) :

Code:

---

1 2 3 4 5 6 7 8 9

TCPClient tcpClient = null;   try { tcpClient = new TcpClient(hostname, portToTest); } catch {}   if (tcpClient != null) Console.WriteLine(portToTest+" open"); else Console.WriteLine(portToTest+" not responding");

---

Oui j'ai testé sur un serveur mysql (port 3306) et il est bien detecté comme ouvert.

Code:

---

1 2 3 4 5 6 7

Try _sock.Connect(TxtIp.Text, i) ' _sock est déclaré comme socket status = "OUVERT" Catch status = "FERME" EndTry

---

Merci pour la conversion en VB Ghost Emperor.

Par contre, il me semble que certains firewall, au lieu de renvoyer un message signalant que le port est fermé, ne répond pas. Du coup, de l'autre côté le port attends la connection. D'où l'intérêt d'utiliser un TimeOut :?

Citation:

---

Merci pour la conversion en VB Ghost Emperor.

Par contre, il me semble que certains firewall, au lieu de renvoyer un message signalant que le port est fermé, ne répond pas. Du coup, de l'autre côté le port attends la connection. D'où l'intérêt d'utiliser un TimeOut :?

---

Oui effecivement un timeout est préférable sinon c'est la valeur par défaut qui est utilisée (qui peut être longue), mais le code fonctionne tout de même.

Par contre, il devrait être obligatoire d'effectuer le scan sur un thread séparé sinon le logiciel arrête de répondre pendant un certain temps (oui, oui, j'ai fais cette bétise :P)