Imports System

Imports System.Net

Imports System.Text

Imports System.IO

Imports Newtonsoft.Json

​

Public Module Module1

    Public Sub Main()

'       Imports luxior.selectlife.assurance

'Imports luxior.selectlife.data

'Imports System.Net

'Imports System.IO

'Partial Class e_select_IS_Pages_Communs_FEN_LOCATION

    'Inherits System.Web.UI.Page

'    Inherits luxior.site.ui.FEN_PageSite

'    Public Function getScripttest() As String

        Dim sUrl As String = "http://luxior.cowebo.com:8888/cwbapi"

        Dim cookieContainer As CookieContainer = new CookieContainer()

        ''''''''''''''''

        ' Requète pour récupérer le Bearer

        ''''''''''''''''

        Dim postData As String = "{""client_id"":""5022f5dd-05c2-49b3-9bf6-d2c19b684489"",""grant_type"":""password"",""username"":""gdeponsay@cowebo.com"",""password"":""cwbcwb""}"

        Dim sResponse = requete(sUrl + "/oauth2/access_token","POST", postData, "",cookieContainer)

​

        'luxior.tools.Developpement.sauvegarderInf)ormation2("~/selectlife/thierry.txt", "reponse:" & sResponse)

​

        Dim bearer As String = getInJson(sResponse,"access_token")

        Console.WriteLine(bearer)

        ''''''''''''''''

        ' Requète pour créer un contrat

        ''''''''''''''''

​

        Dim postDataCreateContract As String = "{""NOM"":""HAB-1103001-NOM"",""IDCOURTIER"":""alkzdlamzkdjlmkazjdmlkajzdmlkjazd"",""CONTRAT"":""HAB-1103001"",""PRENOM"":""HAB-1103001-NOM"",""IDCLIENT"":""alkzdlamzkdjlmkazjdmlkajzdmlkjazd"",""TYPE"":""HAB""}"

        Dim sResponse2 = requete(sUrl + "/luxior/contracts","POST", postDataCreateContract, bearer,cookieContainer)

        Console.WriteLine(sResponse2)

​

'        Return resultat

'    End Function

'End Class

    End Sub

​

    public Function parseJson(json As String)

​

        return JsonConvert.DeserializeObject(json)

​

    End Function

​

    public Function getInJson(json As String, key As String)

​

    Dim result = parseJson(json)

        return result(key)

​

    End Function

​

    public Function requete(sUrl As String,method As String, postData As String, bearer As String, cookieContainer As CookieContainer)

​

        Dim wHeader As WebHeaderCollection = New WebHeaderCollection()

        Dim wRequest As HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(sUrl), HttpWebRequest)

​

        Dim encoding As New UTF8Encoding

        Dim byteData As Byte() = encoding.GetBytes(postData)

        'wHeader.Clear()

        'wHeader.Add("authorization", "Bearer " + bearer)

        'wRequest.Headers = wHeader

        'wRequest.Headers.Add("authorization", "Bearer " + bearer)

        wRequest.Headers("Authorization") = "Bearer " + bearer

        wRequest.CookieContainer = cookieContainer

        wRequest.ContentType = "application/json"

        wRequest.ContentLength = byteData.Length

        wRequest.Method = method

        Dim postreqstream As Stream = wRequest.GetRequestStream()

        postreqstream.Write(byteData, 0, byteData.Length)

        postreqstream.Close()

        Dim wResponse As HttpWebResponse = DirectCast(wRequest.GetResponse(), HttpWebResponse)

        Dim sResponse As String = ""

        Using srRead As New StreamReader(wResponse.GetResponseStream())

            sResponse = srRead.ReadToEnd()

        End Using

​

        return sResponse

    end Function

​

​

End Module