Imports System

Imports System.Net

Imports System.Text

Imports System.IO

Imports System.Collections

Public Module Module1

    Public Sub Main()

    Dim req As WebRequest = WebRequest.Create("https://cwayflowfunctions.azurewebsites.net/api/ProcessRequest?code=s2U/xpmksYy8FVUQyGejABerFza0Ft3HkG1ohsIdyjKVyYHKnegznw==&endpointId=2")

        Dim jsonString As String 

        jsonString = "{'GPSLat': '-28.2395','GPSHdop': '0','GPSAlt': '827','GPSSpeed': '0','GPSCourse': '117.76','VBatt': '3.649','GPSLon': '31.8495','GPSTrackDate': '02/05/2019 2:00:13 PM','GSMID': '865733024642530'}|"

        Dim data = Encoding.UTF8.GetBytes(jsonString)

        req.ContentType = "application/json"

        req.Method = "POST"

        req.ContentLength = data.Length

​

            Dim stream = req.GetRequestStream()

        stream.Write(data, 0, data.Length)

            stream.Close()

​

            Dim response = req.GetResponse().GetResponseStream()

​

            Dim reader As New StreamReader(response)

            Dim res = reader.ReadToEnd()

            reader.Close()

            response.Close()

​

            Console.WriteLine(res)

    End Sub

End Module