3,143
社区成员
发帖
与我相关
我的任务
分享
Public Shared Function Read(ByVal Path As String) As String
Dim result As String = String.Empty
Using fs As FileStream = New FileStream(Path, FileMode.Open, FileAccess.Read)
Dim reader As StreamReader = New StreamReader(fs, Encoding.UTF8)
result = reader.ReadToEnd()
End Using
Return result
End Function
Public Shared Function SendPostHttpRequest(ByVal url As String, ByVal contentType As String, ByVal requestData As String) As String
Dim request As WebRequest = CType(HttpWebRequest.Create(url), WebRequest)
request.Method = "POST"
Dim postBytes() As Byte = Nothing
request.ContentType = contentType
postBytes = Encoding.UTF8.GetBytes(requestData)
request.ContentLength = postBytes.Length
Using outstream As Stream = request.GetRequestStream()
outstream.Write(postBytes, 0, postBytes.Length)
End Using
Dim result As String = String.Empty
Using response As WebResponse = request.GetResponse()
If response IsNot Nothing Then
Dim stream As Stream = response.GetResponseStream()
Dim reader As StreamReader = New StreamReader(stream, Encoding.UTF8)
result = reader.ReadToEnd()
End If
End Using
Return result
End Function
这杨不对?