Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function PostData(ByVal URL As String, ByVal data As String) As String
- Dim request As HttpWebRequest = WebRequest.CreateHttp(URL)
- request.Method = "POST"
- request.KeepAlive = True
- request.ContentType = "application/x-www-form-urlencoded"
- Using writer = New StreamWriter(request.GetRequestStream())
- writer.Write(data)
- End Using
- Using reader = New StreamReader(request.GetResponse().GetResponseStream())
- Return reader.ReadToEnd()
- End Using
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement