[求助]腾讯云短信接口问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的问题：

        （1）.   下面是腾讯官方短信API 接口，签名字符串生成的文档说明：

              签名字符串sig字段：根据公式 sha256（appkey=$appkey&random=$random&time=$time&mobile=$mobile）生成。

此生成公式中有四个参数：（1）appkey（密匙），（2）random（随机数），（3）time（时间戳），（4）mobile（手机号）

（2）下面是我用foxtable生成的短信API接口签名字符串：
Dim sj As long '生成一个随机数
sj = Rand.Next(1000000000,2000000000)

                  Dim dt1 As Date= #01/01/1970 08:03:25# '生成一个时间戳
                  Dim dt2 As Date= Date.now()
                  Dim sp As Integer =Math.Round(( dt2-dt1 ).TotalSeconds)

                                                      Dim appkey As String                    （密匙）
                                                      Dim random As Long                     （随机数）
                                                      Dim time As Integer                    （   时间戳）
                                                      Dim moblile As String                     （手机号）

                                            Dim aryTmp() As String = {appkey,random,time,moblile}             '命名包含四个参数的数组
                                            Array.Sort(aryTmp)                '数组排序
                                            Dim sig As String = String.Join("", aryTmp)                 ’将数组生成字符串
              sig = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sig, "SHA256").ToLower()          'sha256算法加密

问题：代入参数值后，sig 提交腾讯短信API接口审核不通过，提示sig格式不对。
            请求老师给指点一下。我是刚入foxtable的老白（年龄55岁），这问题困扰几天了，劳驾版主老师帮一下忙。谢谢！

老师，你好！下面是我用到的腾讯短信接口的连接

https://cloud.tencent.com/document/product/382/5976

Dim sj As Integer '定义生成一个随机数
                 sj = Rand.Next(1000000000,2000000000)
        Dim hc As New HttpClient(" https://yun.tim.qq.com/v5/tlssmssvr/sendsms?sdkappid=1400294998&random=sj ") '请求短信接口地址
              Dim dt1 As Date= #01/01/1970 08:03:25# '定义生成一个时间戳
              Dim dt2 As Date= Date.now()
              Dim sp As Integer =Math.Round(( dt2-dt1 ).TotalSeconds)

                                   Dim appkey As String="26ccd48b4fc028fce1e4ef0b7723bdcd" '密匙参数
                                   Dim random As Integer= sj '随机数参数
                                   Dim time As Integer=sp '时间戳参数
                                   Dim moblile As String ="13589956068" '手机号参数
                                            Dim aryTmp() As String = {appkey,random,time,moblile} '定义包含上面四个参数的数组
                                               Array.Sort(aryTmp) '数组排序
                                            Dim sig As String = String.Join("", aryTmp) '数组转为字符串
                                                sig = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sig, "SHA256")     '    sha256算法

                                  Dim params As JArray   '接口参数定义
                                  Dim sign As String
                                  Dim nationcode As String
                                  Dim tel As JObject
                                  Dim tpl_id As Integer

           Dim jo As New JObject '定义对象
                        Dim ja As New JArray
                ja.Add("123456") '定义数组
            jo("params")= ja
            jo("sig")=sig
            jo("sign")="新动感"
             Dim jo1 As New JObject '定义字对象
                 jo1("mobile")="13589956068"
                 jo1("nationcode")="86" ''代入注册的参数数值
            jo("tel")=jo1
            jo("time")=sp '代入生成的时间戳数值
            jo("tpl_id")=497632 '代入注册的参数数值
           hc.content=jo.ToString()
                 Dim ret As String = hc.getData()
                    If hc.rCookies.ContainsKey("error") Then
                              MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)
                                Else
                       MessageBox.Show( ret)
                 End If

问题解决了，谢谢版主老师

主题：[求助]腾讯云短信接口问题