Envoi d'une commande reseau

Bonjour,

Je souhaiterais envoyer la commande suivante à une adresse Ip donnée, et récupérer la réponse.
Je me documente sur les sockets mais n'avance que petit à petit.
Si pour un ping c'est facile, je trouve cela plus complexe pour cette commande.

En VB, j'envoyais la commande suivante à partir de mon socket (trouvée, ce n'est pas de moi) :

Code:

---

1 2

Commande = Chr(&H1) + Chr(&HF8) + Chr(&H0) + Chr(&H10) + Chr(&H0) + Chr(&H1) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H20) + Chr(&H43) + Chr(&H4B) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H0) + Chr(&H0) + Chr(&H21) + Chr(&H0) + Chr(&H1)

---

et j'attendais mon

Code:

---

Winsock1.GetData Reponse

---

pour la réponse...

Je n'arrive pas à convertir ce bout de code en vb.net 2005.

Cordialement

J'ai changé de méthode , je pense avoir réussi a envoyer la commande :yaisse2:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Class Form1   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) Dim ip As IPAddress = IPAddress.Parse("192.168.1.2")   Dim Commande As String Commande = Chr(&H1) + Chr(&HF8) + Chr(&H0) + Chr(&H10) + Chr(&H0) + Chr(&H1) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H0) + Chr(&H20) + Chr(&H43) + Chr(&H4B) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H41) + Chr(&H0) + Chr(&H0) + Chr(&H21) + Chr(&H0) + Chr(&H1)     Dim sendbuf As Byte() = Encoding.ASCII.GetBytes(Commande) Dim ep As New IPEndPoint(ip, 137) s.SendTo(sendbuf, ep) Console.WriteLine("Message sent to the ip address")   End Sub   End Class

---

Cependant comment récupérer la reponse ? 8O

Merci de votre aide