Bonjour,

Mon fournisseur me fourni un exemple de requête curl que je voudrai utiliser dans du code vb.

Exemple de requête fourni par mon fournisseur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
curl -X POST "http://adresse.fr/api/auth/login?api_key=CleAPI" -H "accept: application/json" -H "Content-Type: application/json" -d "{ \"login\": \"MonLogin\", \"password\": \"MonMdp\"}"
Voici mon code (j'ai bien entendu remplacé adresse.fr, CleAPI, MonLogin et MonMdp par les véritables valeurs) :
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
24
25
26
27
28
    Private Sub test2()
        Dim myReq As HttpWebRequest
        Dim myResp As HttpWebResponse
        Dim reader As StreamReader
 
        Try
            myReq = HttpWebRequest.Create("http://adresse.fr/api/auth/login?api_key=CleAPI")
 
            myReq.Method = "POST"
            myReq.ContentType = "application/json"
            myReq.Accept = "application/json"
            Dim myData As String = """{ \""login\"": \""MonLogin\"", \""password\"": \""MonMdp\""}"""
            MsgBox(1)
            myReq.GetRequestStream.Write(System.Text.Encoding.UTF8.GetBytes(myData), 0, System.Text.Encoding.UTF8.GetBytes(myData).Count)
            MsgBox(2)
            myResp = myReq.GetResponse
            MsgBox(3)
            Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
            Dim myText As String
            myText = myreader.ReadToEnd()
 
            'Me.txtMuestra.Items.Add(myText)
            MsgBox(myText)
        Catch ex As Exception
            'txtMuestra.Items.Add(ex)
            MsgBox(ex)
        End Try
    End Sub
Lors de l'exécution, j'obtiens bien le msgbox 1 et le 2 mais jamais le 3.

Avez-vous une idée ?

Merci.