此主题相关图片如下：1111.png
代码如下：
Select Case e.Path
Case "tx.htm"
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim sign As String
sign="10514047" & timestamp & "a078c45b8eacee15db27c4d6892f90"
sign = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign, "MD5").ToLower
Dim jo As New JObject
jo("client_id") = "10514047"
jo("grant_type") = "client_redentials"
jo("sign") = sign
jo("scope") = "all"
jo("timestamp") = timestamp
jo("id") = "3F2504E0-4F89-11D3-9A0C-082C3301"
Dim URL As String = "https://open-api.10ss.net/oauth/oauth"
Dim hc As New HttpClient(URL)
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData())
If jo("error") = "0" Then
MessageBox.Show("消息发送成功")
Else
MessageBox.show("消息发送失败,原因:" & vbcrlf & jo("error").ToString)
End If
e.WriteString("消息发送失败,原因:" & vbcrlf & jo("error").ToString)
End Select
请问一下老师，代码这么写对不对啊
api文档地址
[此贴子已经被作者于2018/8/8 17:48:10编辑过]
加好友 
发短信
Post By：2018/8/8 17:30:00 [只看该作者]
