Advertisement
PatPositron

Post

Mar 22nd, 2014
237
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Function PostData(ByVal URL As String, ByVal data As String) As String
  2.     Dim request As HttpWebRequest = WebRequest.CreateHttp(URL)
  3.  
  4.     request.Method = "POST"
  5.     request.KeepAlive = True
  6.     request.ContentType = "application/x-www-form-urlencoded"
  7.  
  8.     Using writer = New StreamWriter(request.GetRequestStream())
  9.         writer.Write(data)
  10.     End Using
  11.  
  12.     Using reader = New StreamReader(request.GetResponse().GetResponseStream())
  13.         Return reader.ReadToEnd()
  14.     End Using
  15. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement