售前咨询
400-6999-710 , 13788998373
* 在线可以咨询售前、售后、技术开发等问题,联麓信息365天x24小时为你服务!在线技术工程师帮你解决遇到的任何问题。
售前顾问咨询 09:00 - 20:00 (24x7)
API文档
代码示例

VB.NET说明

VB.NET接口文档下载:点击下载
普通短信发送
用户在遵循HTTP协议的前提下,可通过GET和POST方式提交短信发送请求
普通短信发送
短信可以提交不超过50000个手机号码,每个号码用英文逗号间隔。 (一次提交发送超过200个手机号码,请使用POST请求)
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

        TextBox1.Text = Now.ToString("yyyyMMddHHmmss")

    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("id=test&pwd=test&cmd=1")

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(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("id=test&pwd=test&cmd=2")

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(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()

        If (CheckBox1.Checked) Then '定时发送时,日期格式为yyyyMMddHHmmss 如 20110520120000

            d = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&content=" + TextBox3.Text + "&mobile=" + TextBox2.Text + "&sendtime=" + TextBox1.Text)

        Else

            d = System.Text.Encoding.UTF8.GetBytes("id=test&pwd=test&content=" + TextBox3.Text + "&mobile=" + TextBox2.Text + "&sendtime=0")

        End If

        Dim res As Byte() = web.UploadData("http://ls5588.vicp.cc:8090", "POST", d)

        TextBox4.Text = System.Text.Encoding.Default.GetString(res)

    End Sub

End Class


产品与服务
验证码API短信
通知短信
会员通知短信
会员营销短信
彩信营销
视频彩信营销
联麓云文档中心
短信验证码
国际验证码接口
彩信文档
会员营销接口
联系我们
咨询热线:400-6999-710
客户经理:13788998373
投诉专线:17701870888
渠道合作:18001911753
公司地址:上海市奉贤区宝龙广场2号楼1510
公众号
扫描二维码关注
微信ID:LLxinxigzh