Discussion :

[dakota77]

Bonjour,

Je voudrais interroger un datalogger qui se trouve sur un réseau Ethernet et récupérer les données.

Syntaxe pour l'interroger : http://192.168.0.xxx /ecmd?s0ticks
Je dois introduire un login et un mot de passe.
Le datalogger renvoie les 4 valeurs qui m'intéressent.

Quelqu'un sait comment je pourrais faire ça en VB.Net ?

Merci pour votre aide.

[francktfr]

Bonjour,

j'utilise cette fonction pour poster des informations sur une page web :

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
21
22
23
   Private Function Post_request(ByVal url As String, ByVal data As String) As String
        Dim reader As IO.StreamReader = Nothing
        Dim writer As IO.StreamWriter = Nothing
        Try
            Dim hwebrequest As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
            hwebrequest.Method = "POST"
            hwebrequest.ContentType = "application/x-www-form-urlencoded"
            hwebrequest.ContentLength = data.Length
            hwebrequest.Timeout = 10000
            writer = New IO.StreamWriter(hwebrequest.GetRequestStream, System.Text.Encoding.Default)
            writer.Write(data)
            writer.Close()
            Dim hwebresponse As System.Net.HttpWebResponse = hwebrequest.GetResponse
            reader = New IO.StreamReader(hwebresponse.GetResponseStream, System.Text.Encoding.Default)
            Dim s As String = reader.ReadToEnd().Trim
            reader.Close()
            Return s
        Catch ex As Exception
            If reader IsNot Nothing Then reader.Close()
            Log(data, EventLogEntryType.Warning)
            Return "ERR:" & ex.Message.ToString
        End Try
    End Function

La variable data est le contenu a envoyer à la page par la méthode POST :

Code :

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

1
2
3
4
5
6
 
Dim Contenu As String = ""
Contenu &= System.Web.HttpUtility.UrlEncode("code") & "=" & System.Web.HttpUtility.UrlEncode(ConfigFichier.CodeCentre) & "&"
Contenu &= System.Web.HttpUtility.UrlEncode("ip_local") & "=" & System.Web.HttpUtility.UrlEncode(ip_detect) & "&"
Contenu &= System.Web.HttpUtility.UrlEncode("nom") & "=" & System.Web.HttpUtility.UrlEncode(ConfigFichier.NomCentre) & "&"
....

[dakota77]

Merci pour ta réponse.

Le souci est que je dois envoyer un login et mot de passe.
Et avec ce code je ne vois pas où je peux le mettre.

Merci