Imports System.Net
Imports System.IO
' PostDate 传入Post参数
Private Function GetResponseString(ByVal PostDate As String) As String
Dim servletURL As Uri = New Uri("http://oa.jianye.com.cn/accountservlet")
Dim client As WebClient = New WebClient()
client.Headers.Add("Content-type", "application/x-www-form-urlencoded")
Dim postData() As Byte = Encoding.GetEncoding("gb2312").GetBytes("username=" + HttpUtility.UrlEncode(PostDate, Encoding.GetEncoding("gb2312")))
' 获取返回值
Dim ReturnData() As Byte = client.UploadData(servletURL.ToString(), "POST", postData)
' 返回
Return Encoding.UTF8.GetString(ReturnData)
End Function