Imports System

Imports System.Net

Imports System.IO

Imports System.text

​

Public Module Module1

    Public Sub Main()

        Dim json = "{""data"": {""username"": ""edgeways-thematic-woodman"", ""password"": ""b8UvLEMThyPUJiQi""}}"

        Dim uri = "https://api.selinko.com/manufacturing/sessions"

        Dim req As WebRequest = WebRequest.Create(uri)

​

        req.ContentType = "application/json"

        req.Method = "POST"

        Dim data = Encoding.UTF8.GetBytes(json)

        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()

        System.Console.WriteLine(res)

    End Sub

End Module