Dim hc As New HttpClient("http://112.35.1.155:1992/sms/norsubmit")
Dim jo As New JObject
jo("addSerial") = ""
jo("apId") = "dddddd"
jo("content") = "测试短信"
jo("ecName") = "常德市第一中医院"
jo("mobiles") = "13807363451"
jo("secretKey") = "zyyyyy"
jo("sign") = "lPdRggggga"
Dim str As String = jo("ecName").ToString() & jo("apId").ToString() & jo("secretKey").ToString() & jo("mobiles").ToString() & jo("content").ToString() & jo("sign").ToString() & jo("addSerial").ToString()
Dim md5Hash As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(str))
jo("mac") = Encoding.UTF8.GetString(data)
Dim base64 = Convert.ToBase64String(Encoding.UTF8.GetBytes(jo.ToString))
'output.Show(base64 )
output.Show(jo("mac"))
hc.Content = base64
Dim ret As String = hc.GetData()
MessageBox.Show(ret)