Discussion :

[nicolas_cs2i]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Winsock1.GetData Reponse

pour la réponse...

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

Cordialement

[nicolas_cs2i]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

Merci de votre aide