Foxtable(狐表)用户栏目专家坐堂 → 阿里短信格式求助。


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

主题:阿里短信格式求助。

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


加好友 发短信
等级:幼狐 帖子:99 积分:1535 威望:0 精华:1 注册:2017/10/13 22:41:00
阿里短信格式求助。  发帖心情 Post By:2018/9/13 8:27:00 [显示全部帖子]

参照
帅哥哟,离线,有人找我吗?
chen37280600
的     http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119481&replyID=&skin=1

Dim ph As String ="13988888888"
Dim codestr  As String ="112233"
Try
    request.PhoneNumbers = ph
    request.SignName = "通讯" '   更换为您备案的短信签名
    request.TemplateCode = "SMS_144590082" '更换您备案的短信模板
    request.TemplateParam = "{""code"":"codestr"}"  '如果您有可替换的标签,可以设置设置json,也可以注释掉
    'request.OutId = "YourID" '这玩意暂时没用
    response = acsClient.GetAcsResponse(request)
    MessageBox.show(response.Message) '这里输出发送结果."OK"就是行了.
Catch ex As Exception
    MessageBox.show("短信代码有问题,请联系技术员")
End Try
上面的运行报错

改成这样可以运行
request.TemplateParam = "{""code"":"“112233”"}" 

这里的112233 我想用字符串变量代替。如何实现?


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


加好友 发短信
等级:幼狐 帖子:99 积分:1535 威望:0 精华:1 注册:2017/10/13 22:41:00
  发帖心情 Post By:2018/9/13 8:57:00 [显示全部帖子]

谢谢,测试成功了

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


加好友 发短信
等级:幼狐 帖子:99 积分:1535 威望:0 精华:1 注册:2017/10/13 22:41:00
如果是中文字符如何转码?  发帖心情 Post By:2018/9/13 9:26:00 [显示全部帖子]

Dim todstr As String = format(now(),"yyyyMMdd")
Dim numstr As String ="51"
Dim monstr As String ="5000"
Dim namestr As String ="张飞"
Dim tod1 As String ="today"&":"& todstr
Dim num1 As String = "number"&":"& numstr
Dim mon1 As String = "menoey"&":"& monstr
Dim nam1 As String = "name"&":"& namestr

request.TemplateParam = "{" & tod1 & ","& num1 & "," & mon1 & "," & nam1 & "}"    


老师:当“张飞” 换成 “1” 就可以发送.估计是中文编码问题?求指点。

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


加好友 发短信
等级:幼狐 帖子:99 积分:1535 威望:0 精华:1 注册:2017/10/13 22:41:00
  发帖心情 Post By:2018/9/13 9:45:00 [显示全部帖子]

Dim nam1 As String = "name" & ":" & """" & namestr & """"

这个有效!谢谢。

 回到顶部