Utilisation d'une RESt API en VB.Net [Résolu]

Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
- - Dernière réponse : Yves29
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
- 23 avril 2018 à 16:51
Bonjour,

Je dois développer une application en VB.NET utilisant une REST API + JSON. Je n'y connais rien en utilisation d'API. Quelqu'un pourrait il me donner un exemple en précisant les références ?

Merci de votre aide.
Afficher la suite 

Votre réponse

8 réponses

Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
Bonjour

t'es tu créé un compte?
As tu téléchargé la doc? des projets d'exemple?
Yves29
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
-
J'ai bien la doc mais pas de projets VB d'exemples.
Whismeril
Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
-
ET c#?
Yves29
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
-
Non plus.
Commenter la réponse de Whismeril
Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
Ok, je suppose qu'il y a une dll, l'as tu référencée à ton projet?

Et ensuite as tu essayé ces codes
https://check-mail.org/sample-code/verify-email-and-detect-disposable-email-with-dotnet/
Attention c'est du C#, à passer dans un traducteur en ligne
https://www.qwant.com/?q=C%23+to+VB.Net+online&t=all
Commenter la réponse de Whismeril
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
0
Merci
Pour moi, il n'y a pas de DLL mais il faut trouver la bonne méthode pour faire ses requêtes.
J'ai lu beaucoup d'articles dont :
http://howtostartprogramming.com/vb-net/vb-net-tutorial-51-httpwebrequest-post-method/
mais ça ne répond pas vraiment à mon besoin.
Commenter la réponse de Yves29
Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
T'as regardé ce site?
https://www.example-code.com/vbnet/rest.asp
Yves29
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
-
Oui j'y suis passé plusieurs fois, je vais tester leur DLL.
Yves29
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
-
Ça pourrait faire le job mais c'est payant.
Commenter la réponse de Whismeril
Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
Je ne peux pas faire plus, désolé
Commenter la réponse de Whismeril
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
0
Merci
J'ai trouvé alors je partage ...
Imports System
Imports System.Net
Imports System.IO
Imports System.Text

Public Class frmMain
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sURL As String
        sURL = "https://api-xxxxxxxxxxxxxxxx"

        Dim wrGETURL As WebRequest
        wrGETURL = WebRequest.Create(sURL)
        wrGETURL.Method = "GET"
        wrGETURL.ContentType = "application/json"
        wrGETURL.Headers.Add("Authorization", "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes("login:password")))
  'Ci-dessous le point qui m'a bloqué
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
  
  'si on travaille avec un proxy
        Dim myProxy As New WebProxy("proxy", 80)
        myProxy.BypassProxyOnLocal = True
  wrGETURL.Proxy = myProxy

        Dim objStream As Stream
        Try
            objStream = wrGETURL.GetResponse.GetResponseStream()
            Dim objReader As New StreamReader(objStream)
            Dim sLine As String = ""
            Dim i As Integer = 0
   'Création d'un fichier texte 
            Dim file As System.IO.StreamWriter
            file = My.Computer.FileSystem.OpenTextFileWriter("D:\Texte.txt", True)
            Do While Not sLine Is Nothing
                i += 1
                sLine = objReader.ReadLine
                If Not sLine Is Nothing Then
                    RichTextBox1.Text = sLine
                    'écriture dans le fichier texte    
                    file.WriteLine(sLine)
                End If
            Loop
            file.Close()
            objReader.Close()
            objStream.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class
Commenter la réponse de Yves29
Messages postés
12362
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
9 décembre 2018
Commenter la réponse de Whismeril
Messages postés
12
Date d'inscription
mardi 10 avril 2007
Dernière intervention
23 avril 2018
0
Merci
Je pensais avoir trouvé la solution mais le résultat n'est pas satisfaisant.
A la lecture de la réponse du site web de l'api, les données ne sont pas complètes.
Je ne récupère que le début des enregistrements.
J'ai vraiment besoin d'un coup de main.
Commenter la réponse de Yves29

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.