Public Sub smssend(appcode As String, querys As String)
Dim host As String = "https://smssend.shumaidata.com"
Dim path As String = "/sms/send"
Dim method As String = "POST"
'Dim querys As String = "receive=188****1212&tag=123456&templateId=M4F8845237"
Dim bodys As String = ""
Dim url As String = host + path
Dim httpRequest As Net.HttpWebRequest = Nothing
Dim httpResponse As Net.HttpWebResponse = Nothing
If 0 < querys.Length Then
url = url & "?" + querys
End If
If host.Contains("https://") Then
Net.ServicePointManager.ServerCertificateValidationCallback = New Net.Security.RemoteCertificateValidationCallback(AddressOf CheckValidationResult)
httpRequest = CType(Net.WebRequest.CreateDefault(New Uri(url)), Net.HttpWebRequest)
Else
httpRequest = CType(Net.WebRequest.Create(url), Net.HttpWebRequest)
End If
httpRequest.Method = method
httpRequest.Headers.Add("Authorization", "APPCODE " & appcode)
If 0 < bodys.Length Then
Dim data As Byte() = System.Text.Encoding.UTF8.GetBytes(bodys)
Using stream As IO.Stream = httpRequest.GetRequestStream()
stream.Write(data, 0, data.Length)
End Using
End If
Try
httpResponse = CType(httpRequest.GetResponse(), Net.HttpWebResponse)
Catch ex As Net.WebException
httpResponse = CType(ex.Response, Net.HttpWebResponse)
End Try
Output.Show(httpResponse.StatusCode)
Output.Show(httpResponse.Method)
Output.Show(httpResponse.Headers)
Dim st As IO.Stream = httpResponse.GetResponseStream()
Dim reader As IO.StreamReader = New IO.StreamReader(st, System.Text.Encoding.GetEncoding("utf-8"))
Output.Show(reader.ReadToEnd())
End Sub
Public Function CheckValidationResult(ByVal sender As Object, ByVal certificate As Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As Security.Cryptography.X509Certificates.X509Chain, ByVal errors As Net.Security.SslPolicyErrors) As Boolean
Return True
End Function
加好友 
发短信
Post By：2020/9/16 8:41:00 [只看该作者]
此主题相关图片如下：qq拼音截图20200916084024.png