Convertir curl en vb

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:

---

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:

---

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.

Bonjour,

Qqch comme ca :

https://stackoverflow.com/questions/...l-using-vb-net

Bon codage++

Bonjour,
Merci pour la réponse.
J'ai récupéré la fonction.
Mais je ne parviens pas à récupérer la réponse du serveur:
"La connexion sous-jacente a été fermée"

Code:

---

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 29 30 31 32 33 34 35 36 37

Imports System.IO 'pour stream Imports System.Net 'pour webrequest Imports System.Text 'pour encoding   Public Class Form3   Private Function SendRequest(ByVal uri As Uri, ByVal jsonDataBytes As Byte(), ByVal contentType As String, ByVal method As String) As String Dim response As String Dim request As WebRequest   request = WebRequest.Create(uri) System.Net.ServicePointManager.UseNagleAlgorithm = False System.Net.ServicePointManager.Expect100Continue = False request.ContentLength = jsonDataBytes.Length request.ContentType = contentType request.Method = method   Using requestStream = request.GetRequestStream requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length) requestStream.Close()   Using responseStream = request.GetResponse.GetResponseStream Using reader As New StreamReader(responseStream) response = reader.ReadToEnd() End Using End Using End Using   Return response End Function   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim data = Encoding.UTF8.GetBytes("""{ \""login\"": \""Monlogin\"", \""password\"": \""MonMdp\""}""") Dim uri As New Uri("http://apiv2.frizbi.evolnet.fr/api/auth/login?api_key=MonApiKey") Dim result_post = SendRequest(uri, data, "application/json", "POST") End Sub End Class

---

Citation:

---

L'exception System.Net.WebException n'a pas été gérée
Message="La connexion sous-jacente a été fermée*: Une erreur inattendue s'est produite lors de l'envoi."
Source="System"
StackTrace:
à System.Net.HttpWebRequest.GetResponse() à EnvoiSMS.Form3.SendRequest(Uri uri, Byte[] jsonDataBytes, String contentType, String method) dans C:\Users\cma\MACON habitat\Service Informatique - General\Dev Interne\Programmes VB\EnvoiSMS_via_J2S\EnvoiSMS\EnvoiSMS\Form3.vb:ligne 22 à EnvoiSMS.Form3.Button1_Click(Object sender, EventArgs e) dans C:\Users\cma\MACON habitat\Service Informatique - General\Dev Interne\Programmes VB\EnvoiSMS_via_J2S\EnvoiSMS\EnvoiSMS\Form3.vb:ligne 35 à System.Windows.Forms.Control.OnClick(EventArgs e) à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) à System.Windows.Forms.Control.WndProc(Message& m) à System.Windows.Forms.ButtonBase.WndProc(Message& m) à System.Windows.Forms.Button.WndProc(Message& m) à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) à EnvoiSMS.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81 à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) à System.Threading.ThreadHelper.ThreadStart()
InnerException: System.IO.IOException
Message="Réception d'un EOF inattendu ou de 0 octet du flux de transport."
Source="System"
StackTrace:
à System.Net.FixedSizeReader.ReadPacket(Byte[] buffer, Int32 offset, Int32 count) à System.Net.Security.SslState.StartReadFrame(Byte[] buffer, Int32 readBytes, AsyncProtocolRequest asyncRequest) à System.Net.Security.SslState.StartReceiveBlob(Byte[] buffer, AsyncProtocolRequest asyncRequest) à System.Net.Security.SslState.ForceAuthentication(Boolean receiveFirst, Byte[] buffer, AsyncProtocolRequest asyncRequest) à System.Net.Security.SslState.ProcessAuthentication(LazyAsyncResult lazyResult) à System.Threading.ExecutionContext.runTryCode(Object userData) à System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData) à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) à System.Net.TlsStream.ProcessAuthentication(LazyAsyncResult result) à System.Net.TlsStream.Write(Byte[] buffer, Int32 offset, Int32 size) à System.Net.PooledStream.Write(Byte[] buffer, Int32 offset, Int32 size) à System.Net.ConnectStream.WriteHeaders(Boolean async)
InnerException:

---