- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 阿里短信格式求助。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124750)
-- 发布时间：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 我想用字符串变量代替。如何实现？
-- 发布时间：2018/9/13 8:53:00
--
request.TemplateParam = "{""code"":""" & 变量 & """}"
或者参考 http://www.foxtable.com/mobilehelp/scr/0167.htm
-- 发布时间：2018/9/13 8:57:00
--
谢谢，测试成功了
-- 发布时间：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” 就可以发送.估计是中文编码问题？求指点。
-- 发布时间：2018/9/13 9:30:00
--
回复楼上，请用这种方法生成json
http://www.foxtable.com/mobilehelp/scr/0167.htm
或者试试
Dim nam1 As String = "name" & ":" & """" & namestr & """"
[此贴子已经被作者于2018/9/13 9:30:31编辑过]
-- 发布时间：2018/9/13 9:45:00
--
Dim nam1 As String = "name" & ":" & """" & namestr & """"
这个有效！谢谢。