1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim mySocketUDP As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Dgram, System.Net.Sockets.ProtocolType.Udp)
Try
mySocketUDP.Connect(Host_IP, Host_Port)
Console.WriteLine(mySocketUDP.Connected)
If Not mySocketUDP.Connected Then ' Test si le socket est connecté donc si il y a un connexion au port
' Si le port est fermé
State_Port = "Close"
Else
' Si le port est ouvert
State_Port = "Open"
End If
Catch ex As Exception
' Si la connexion retourne une erreur. Interprété comme port fermé ou périphérique injoignable
State_Port = "Close"
MsgBox(ex.ToString)
End Try |