[VB.NET 2.0] [Socket] Tester ouverture de ports !

Bonjour à tous,

Je cherche désespéremment à faire un programme pour checker si les ports d'un routeur sont ouverts ou pas. Voici le code :

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
For i As Integer = Min_Port To Max_Port
            Dim PlageIP As System.Net.IPAddress = System.Net.Dns.Resolve(T_Ip.Text).AddressList(0)
            Dim HostetPort As New System.Net.IPEndPoint(PlageIP, i)
            'Dim ipAddress As Net.IPAddress = Net.IPAddress.Parse(T_Ip.Text)
            'Dim localEndPoint As New Net.IPEndPoint(ipAddress, i)
 
            Dim LeSocket1 As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
 
            Dim ligne As New ListViewItem(i.ToString)
            Try
                Bgw.ReportProgress(i)
                LeSocket1.Connect("192.168.0.3", i)
 
                If LeSocket1.Connected = True Then 'si le client est connecté ===> le port est ouvert
                    ligne.SubItems.Add("Ouvert")
                    ligne.ForeColor = Color.Green
                    LeSocket1.Shutdown(Net.Sockets.SocketShutdown.Both)
                Else 'sinon il est fermé !
                    ligne.SubItems.Add("Fermé")
                    ligne.ForeColor = Color.Red
                End If
            Catch ex As Exception
                ligne.SubItems.Add("Fermé : erreur")
                ligne.ForeColor = Color.Red
            End Try
 
            ListTemp.Add(ligne)
 
            LeSocket1.Close()
            LeSocket1 = Nothing
        Next

Pourtant y'a quelque chose de bizarre 8O En effet, il n'y a pas de serveur... Et donc pendant mes tests, tous mes ports sont fermés (or j'ai configuré mon routeur pour ouvrir certains ports).

Comment puis je donc tester les ports ?

Merci :lol: