SHOW:
|
|
- or go back to the newest paste.
| 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 stream = New StreamWriter(request.GetRequestStream()) |
| 8 | + | Using writer = New StreamWriter(request.GetRequestStream()) |
| 9 | - | stream.Write(data) |
| 9 | + | writer.Write(data) |
| 10 | End Using | |
| 11 | ||
| 12 | - | Using SR = New StreamReader(request.GetResponse().GetResponseStream()) |
| 12 | + | Using reader = New StreamReader(request.GetResponse().GetResponseStream()) |
| 13 | - | Return SR.ReadToEnd() |
| 13 | + | Return reader.ReadToEnd() |
| 14 | End Using | |
| 15 | End Function |
