在蓝老师代码的基础上完善一个阿里云第三方短信实例代码。

在下面的地址申请一个免费套餐，即可测试。此地址短信平台个人、企业没有限制，均可~

https://market.aliyun.com/products/57126001/cmapi00037415.html?spm=5176.2020520132.101.1.175772188g3m95#sku=yuncode3141500001

Dim hc As New HttpClient("http://gyytz.market.alicloudapi.com/sms/smsSend")   

hc.Headers.Add("Authorization", "APPCODE " & "63******你的AppCode*******eff8")

hc.Content Type = "application/x-www-form-urlencoded; charset=UTF-8"      ’去掉content后面的空格

hc.FormData.Add("mobile", "1*********9")   \'需要发送的手机号

hc.FormData.Add("smsSignId", "2e65b1bb3d054466b82f0c9d125465e2")   \'测试签名ID

hc.FormData.Add("templateId", "908e94ccf08b4476ba6c876d13f084ad")    \'测试模板ID

hc.FormData.Add("param", "**code**:12345,**minute**:5")  \'短信模板变量替换

Dim res As String = hc.GetData

Output.Show(res)

此主题相关图片如下：001.jpg


此主题相关图片如下：003.jpg

Dim hc As New HttpClient("https://msg.market.alicloudapi.com/msg") 

hc.Headers.Add("Authorization","APPCODE " & "xxx请改自己xxx")

hc.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"

hc.FormData.Add("message","短信内容")

hc.FormData.Add("mobile","手机号")

hc.FormData.Add("mouldno","短信模板编号")

hc.FormData.Add("title","短信标签")
Dim res as string = hc.GetData
Output.Show(res)

谢谢老师！

今天测试一下，这是什么原因？

短信客服说，把响应头和响应消息打印出来看一下，是什么意思？

此主题相关图片如下：截屏图片.jpg