试试，如果不行，那就换个短信平台了，我也没辙
Dim hc As New HttpClient("112.35.1.155:1992/sms/norsubmit")
Dim jo As New JObject
jo("ecName") = "xxxx"
jo("apId") = "zrtsjh"
其它值自己补充,具体参考:http://www.foxtable.com/mobilehelp/topics/0167.htm
Dim str As String = jo("ecName").ToString & jo("apId").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 )
hc.Content = base64
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
加好友 
发短信
Post By：2020/6/9 10:06:00 [显示全部帖子]
