短信通道：VB.NET实例
请求地址 | 名称 | 是否必须 | 示例值 | 说明 |
|---|
| 请求地址 | UTF-8 | http://sms.kingtto.com:9999/sms.aspx | 如果服务器不支持解析，将sms.kingtto.com改为101.201.41.194 |
请求参数| 名称 | 是否必须 | 示例值 | 描述 |
|---|
| action | 必须 | 固定设置为：send | 任务命令为：短信发送 | | account | 必须 | ceshi | 注册获取；平台登陆账号。 点此注册>> | | password | 必须 | 123456 | 客服提供；短信平台登陆密码。 平台注册后联系客服为您生成 | | userid | 必须 | 1001 | 客服提供；短信平台个人ID。 平台注册后联系客服为您生成 | | mobile | 必须 | 13000000000,13000000001 | 短信接收号码。支持单个或多个手机号码，传入号码为11位手机号码，不能加0或+86。群发短信需传入多个号码，以英文逗号分隔，一次调用最多传入200个号码。示例：13000000000,13000000001 | | content | 必须 | 【Pachira】您的验证码是：123456 | 发送短信的内容，整体做urlencode.短信签名的格式为：【签名】放在内容的最前方。
示范：【Pachira】您本次注册的验证码是：888888，
其中“签名”可根据自己公司的名称或简称自定义，字数为2-8字，不可以是纯数字、电话号码或者网址，不可以是无意义的签名，比如“大家好”“哈哈哈”“提示”等
正确示例：【Pachira】、【京东】、【百度】、【糯米团购】
错误示例：【你好】、【通知】、【测试一下】、【哈哈哈】、【123123】 | | sendtime | 可选 | 2000-12-31 00:00:10 | 短信定时发送时间。不设置默认为立即发送。格式为：YYYY-MM-DD HH:MM:SS |
| vb.net实例 |
|---|
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim web As New System.Net.WebClient() '验证帐号
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.UTF8.GetBytes("userid=你的ID&password=你的密码&account=你的账号")
Dim res As Byte() = web.UploadData("http://sms.kingtto.com:9999/sms.aspx?action=checkkeyword", "POST", d)
Dim str_res As String
str_res = System.Text.Encoding.GetEncoding("utf-8").GetString(res)
Response.Write(str_res)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Dim web As New System.Net.WebClient() '余额查询
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.UTF8.GetBytes("userid=你的ID&password=你的密码&account=你的账号")
Dim res As Byte() = web.UploadData("http://www.qf106.com/sms.aspx?action=overage", "POST", d)
Dim str_res As String
str_res = System.Text.Encoding.GetEncoding("utf-8").GetString(res)
Response.Write(str_res)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
Dim web As New System.Net.WebClient() '发送短信
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte()
d = System.Text.Encoding.UTF8.GetBytes("userid=你的ID&password=你的密码&account=你的账号&content=" + TextBox3.Text + "&mobile=" + TextBox2.Text)
Dim res As Byte() = web.UploadData("http://www.qf106.com/sms.aspx?action=send", "POST", d)
Dim str_res As String
str_res = System.Text.Encoding.GetEncoding("utf-8").GetString(res)
Response.Write(str_res)
End Sub
End Class
|
|
来源：
阅读：542 次
日期：2018-09-07
|
|
【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】
【 字体：大 中
小 】 |
|
