This is mainly for my own reference.

vb Code:
  1. ' Simple Request
  2.     Function HttpRequest(URL As String) As String
  3.         Dim request As WebRequest = WebRequest.Create(URL)
  4.         Dim dataStream As Stream = request.GetResponse.GetResponseStream()
  5.         Dim sr As New StreamReader(dataStream)
  6.         Return sr.ReadToEnd
  7.     End Function
  8.  
  9.     ' Post Request
  10.     Function HttpPost(URL as String, JSON as String) As JObject
  11.  
  12.         ' JSON Data
  13.         Dim byteArray As Byte() = Encoding.UTF8.GetBytes(JSON)
  14.  
  15.         ' HTTP Request
  16.         Dim request As WebRequest = WebRequest.Create(URL)
  17.         request.Method = "POST"
  18.  
  19.         ' Requesting
  20.         Dim dataStream As Stream = request.GetRequestStream()
  21.         dataStream.Write(byteArray, 0, byteArray.Length)
  22.         dataStream.Close()
  23.  
  24.         ' Recieving a Response
  25.         dataStream = request.GetResponse.GetResponseStream()
  26.         Dim reader As New StreamReader(dataStream)
  27.         Dim responseFromServer As String = reader.ReadToEnd()
  28.         dataStream.Close()
  29.         reader.Close()
  30.  
  31.         Return JObject.Parse(responseFromServer)
  32.  
  33.     End Function