SHOW:
|
|
- or go back to the newest paste.
| 1 | - | Public Function send(ByVal URL As String, ByVal data As String) As String |
| 1 | + | Public Function PostData(ByVal URL As String, ByVal data As String) As String |
| 2 | - | Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(URL), HttpWebRequest) |
| 2 | + | Dim request As HttpWebRequest = WebRequest.CreateHttp(URL) |
| 3 | - | With request |
| 3 | + | |
| 4 | - | .Method = "POST" |
| 4 | + | request.Method = "POST" |
| 5 | - | .KeepAlive = True |
| 5 | + | request.KeepAlive = True |
| 6 | - | .ContentType = "application/x-www-form-urlencoded" |
| 6 | + | request.ContentType = "application/x-www-form-urlencoded" |
| 7 | - | End With |
| 7 | + | |
| 8 | - | Using stream As New StreamWriter(request.GetRequestStream()) |
| 8 | + | Using stream = New StreamWriter(request.GetRequestStream()) |
| 9 | - | stream.Write(data) |
| 9 | + | stream.Write(data) |
| 10 | - | End Using |
| 10 | + | End Using |
| 11 | - | Using reader As New StreamReader(request.GetResponse.GetResponseStream) |
| 11 | + | |
| 12 | - | Return reader.ReadToEnd |
| 12 | + | Using SR = New StreamReader(request.GetResponse().GetResponseStream()) |
| 13 | - | End Using |
| 13 | + | Return SR.ReadToEnd() |
| 14 | - | End Function |
| 14 | + | End Using |
| 15 | End Function |
