请求大神谁能把下面vb语言用java写一下post请求啊

[weiaiyiyi]

Private Function SengHttpRequest(ByVal SCANED_URL as string) as string

Dim SERVER_URL As String = "221.185.127.233"

Dim Parameter_1 As String = Convert.ToInt64(((Now.Ticks - (New DateTime(1970, 1, 1)).Ticks) / 10000000)).ToString

Dim Parameter_2 As String = GetMd5Hash("!ZWDSJ@Changzhou" & Now.ToString("MMddHHmm"))

Dim request As WebRequest = WebRequest.Create(String.Format("http://{0}:12350/?sendtime={1}&token={2}", SERVER_URL, Parameter_1, Parameter_2))

request.Method = "POST"

Dim PostBytes() As Byte = Encoding.UTF8.GetBytes(SCANED_URL)

request.ContentType = "application/x-www-form-urlencoded"

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

Using m_Stream As Stream = response.GetResponseStream()

Using reader As New StreamReader(m_Stream, Encoding.UTF8)

Result = reader.ReadToEnd()

End Using

End Using

response.Close()

End If

End Using

request.Abort()

request = Nothing

Return Resul

'成功：{"ErrCode":0,"ErrMsg":{"CROP_TYPE":"个体工商户","REG_NO":"92320412MA1TL8KM9C","CORP_NAME":"武进区湖塘汉方雕刻厂","ZJ_ECON_KIND":"个体工商户","ADDR":"在业","OPER_MAN_NAME":"沈立","REG_CAPI":"3000000","CAPI_TYPE_NAME":"人民币","CORP_STATUS":"在业","START_DATE":"2014-05-23 00:00:00.0","CHECK_DATE":"2014-05-23 00:00:00.0","FARE_TERM_START":"2014-05-23 00:00:00.0","FARE_TERM_END":"2099-12-31 00:00:00.0","BELONG_ORG":"常州市武进区市场监督管理局","FARE_SCOPE":"公章刻制。企业信息咨询服务。（依法须经批准的项目，经相关部门批准后方可开展经营活动）","CROP_WORKERS":"1"}}
'失败：{"ErrCode":-99999,"ErrMsg":"异常源：Galaxy.WebService\r\n错误描述：操作过于频繁，请稍后！"}

End Function

''' <summary>
''' MD5加密
''' </summary>
''' <param name="TmpString">加密前的字符串</param>
''' <returns></returns>
Private Function GetMd5Hash(ByVal TmpString As String) As String

Dim sBuilder As New StringBuilder()

Using md5Hash As MD5 = MD5.Create

Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(TmpString))

For i As Integer = 0 To data.Length - 1

sBuilder.Append(data(i).ToString("x2"))

Next i

End Using

Return sBuilder.ToString()

End Function