Foxtable(狐表)用户栏目专家坐堂 → [求助]API发送短信错误


  共有3202人关注过本帖树形打印复制链接

主题:[求助]API发送短信错误

帅哥哟,离线,有人找我吗?
YDS
  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2020/9/16 8:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq拼音截图20200916084024.png
图片点击可在新窗口打开查看

用这个c#的测试就没有问题,我现在的代码提示参数错误!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 9:18:00 [只看该作者]

您可以到vs里把这段代码发布成一个dll给foxtable使用呗。

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2020/9/16 16:04:00 [只看该作者]

没有做过dll啊,有没有解决办法?

调用地址:http(s)://smssend.shumaidata.com/sms/send

请求方式:POST

返回类型:JSON



Dim hc As New HttpClient("http://smssend.shumaidata.com/sms/send?receive=19937262978&tag=123456&templateId=M09DD535F4")
hc.Headers.Add("Authorization","APPCODE " & "8dbc68083ebY470094c87fd0b4977f5e")
Dim jo As New JObject
jo = JObject.Parse(hc.GetData)
Output.Show(jo.ToString)

我的这段代码是否有问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 16:46:00 [只看该作者]

看不出有什么问题。

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2020/9/17 16:54:00 [只看该作者]

请求方式:POST
我这算是POST提交的吗?

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2020/9/17 17:04:00 [只看该作者]

curl -i -k -X POST 'https://smssend.shumaidata.com/sms/send?receive=19937262978&templateId=M19FCE812F'  -H 'Authorization:APPCODE 8dbc68083ebY470094c87fd0b4977f5e'

还有为什么这个指令就可以呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/17 17:09:00 [只看该作者]

把c#代码转换为vb:https://converter.telerik.com/

全局代码:
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

命令窗口测试
smssend("8dbc68083ebY470094c87fd0b4977f5e","receive=19937262978&tag=123456&templateId=M09DD535F4")

 回到顶部
总数 17 上一页 1 2