Vérifier qu'un port est bien ouvert sur mon serveur, et à distance...
remilafouine
Messages postés32Date d'inscriptionjeudi 20 janvier 2005StatutMembreDernière intervention11 juin 2007
-
1 oct. 2005 à 15:54
remilafouine
Messages postés32Date d'inscriptionjeudi 20 janvier 2005StatutMembreDernière intervention11 juin 2007
-
1 oct. 2005 à 18:08
Bonjour à toutes et à tous !
Comme je l'ai dis dans le sujet, je voudrais pouvoir vérifier qu'un port est bien ouvert sur mon serveur réseau, tout ça à partir d'un programme en VB .Net sur mon poste dans mon réseau local. J'ai demandé à un copain de classe, qui m'a parlé des sockets. J'ai donc jeté un petit regard sur la librairie en ligne de MSDN, mais franchement; j'y comprend pas grand chose...
Ce que je voudrais plus exactement, c'est que lors d'un clic sur le bouton "Button1", mon programme esaaye de se connecter au port désiré, et si il arrive à s'y connecter, qu'il m'affiche dans une TextBox un texte du genre "le port est bien ouvert"...
Merci de votre aide !
A voir également:
Vérifier qu'un port est bien ouvert sur mon serveur, et à distance...
remilafouine
Messages postés32Date d'inscriptionjeudi 20 janvier 2005StatutMembreDernière intervention11 juin 20071 1 oct. 2005 à 18:08
J'ai essayé d'intégrer un peu comme j'ai pu ce code, mais ca ne marche pas... j'ai un peu modifié le code pour l'intégrer dans la gestion du clic sur le bouton... Voilà le code :
Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click
Dim server
As
String =
Me.TextBox1.Text
Try
' Create a TcpClient.
' Note, for this client to work you need to have a TcpServer
' connected to the same address as specified by the server, port
' combination.
Dim port
As Int32 = 21
Dim client
As
New TcpClient(server, port)
Dim Message
As
String
' Translate the passed message into ASCII and store it as a Byte array.
Dim data
As [Byte]() = System.Text.Encoding.ASCII.GetBytes(Message)
' Get a client stream for reading and writing.
' Stream stream = client.GetStream();
Dim stream
As NetworkStream = client.GetStream()
' Send the message to the connected TcpServer.
stream.Write(data, 0, data.Length)
' Receive the TcpServer.response.
' Buffer to store the response bytes.
data =
New [Byte](256) {}
' String to store the response ASCII representation.
Dim responseData
As [String] = [String].Empty
' Read the first batch of the TcpServer response bytes.
Dim bytes
As Int32 = stream.Read(data, 0, data.Length)