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"
Dim data = Encoding.UTF8.GetBytes(json)
req.ContentLength = data.Length
Dim stream = req.GetRequestStream()
stream.Write(data, 0, data.Length)
Dim response = req.GetResponse().GetResponseStream()
Dim reader As New StreamReader(response)
Dim res = reader.ReadToEnd()
System.Console.WriteLine(res)