• 政能亮政府服务,当好“店小二”而非“二大爷” 2019-08-16
  • 女性之声——全国妇联 2019-08-16
  • 人傻有人爱,人聪明有人恨,人愚笨有人笑,人痴有人关心,不是每个人的命运都一样的 2019-08-11
  • 人民的力量——一份大报,与一个大党、一个大国的故事 2019-08-05
  • 中华人民共和国建筑法 2019-08-05
  • 转方式调结构显现阶段性成果(读数·发现经济运行的轨迹) 2019-08-02
  • 一语惊坛(6月8日):友谊勋章是给国际友人的最高荣誉。 2019-08-02
  • 《红海行动》出征中美电影节 2019-07-28
  • 发挥自身优势 奋力走在前列——习近平总书记在山东考察回访记 2019-07-28
  • 民生时评:上海支付宝回收垃圾并不现实(原创首发) 2019-07-28
  • 俺发现你还真是踩云的人。找不到谱。 2019-07-28
  • 12306网站用户信息外泄?铁总深夜“辟谣” 2019-07-25
  • 端午节期间 拉萨至日喀则增开列车 2019-07-24
  • 海淀区第十五届金秋采摘节拉开帷幕 2019-07-22
  • “千人计划”专家创业 最高可获450万元个人奖励 2019-07-22
  • 价格不是我们的优势,品质永远是我们的追求!
    当前位置:北京11选五和值走势图行业快讯 > vb6调用短信接口实现短信发送功能
    vb6调用短信接口实现短信发送功能
    来源:北京11选五和值走势图  时间:2018-11-13 10:31

    北京11选五和值走势图 www.tqjw.net     短信接口应用广泛,如在网站或app的用户注册、密码找回、安全登录、消息提醒,支付确认等都需要用到,下面是小编为大家分享的在vb6开发语言下调用短信接口实现短信发送功能的代码示例,完整代码请点击下载(//www.tqjw.net/api/sdk2.0_vb6.zip),供大家参考:

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   2220
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   8010
       LinkTopic       =   "Form1"
       ScaleHeight     =   2220
       ScaleWidth      =   8010
       StartUpPosition =   3  '窗口缺省
       Begin VB.TextBox Text1 
          Height          =   495
          Left            =   480
          TabIndex        =   1
          Text            =   "Text1"
          Top             =   840
          Width           =   5175
       End
       Begin VB.CommandButton Command1 
          Caption         =   "Command1"
          Height          =   495
          Left            =   6120
          TabIndex        =   0
          Top             =   840
          Width           =   1215
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
    
    Dim PostData As String
    PostData = "accName=13623828830&accPwd=E10ADC3949BA59ABBE56E057F20F883E&aimcodes=13693045088&content=" & UTF8_URLEncoding("Hello【动力思维】")
    Text2 = PostData
    
    Dim url As String
    url = "//sdk.lx198.com/sdk/send?" & PostData
    
    
    Dim HttpClient As Object
    Set HttpClient = CreateObject("Microsoft.XMLHTTP")
    
    HttpClient.Open "GET", url, False
    HttpClient.setRequestHeader "Content-Type", "text/html; charset=UTF-8"
    HttpClient.Send
    Text1.Text = HttpClient.responseText
    
    End Sub
    
    Function UTF8_URLEncoding(szInput)
        UTF8_URLEncoding = ""
        Dim wch, uch, szRet
        Dim x
        Dim nAsc, nAsc2, nAsc3
        If szInput = "" Then
            UTF8_URLEncoding = szInput
            Exit Function
        End If
        For x = 1 To Len(szInput)
            wch = Mid(szInput, x, 1)
            nAsc = AscW(wch)
            If nAsc < 0 Then nAsc = nAsc + 65536
            If (nAsc And &HFF80) = 0 Then
                szRet = szRet & wch
            Else
                If (nAsc And &HF000) = 0 Then
                    uch = "%" & CStr(Hex(((nAsc  2 ^ 6)) Or &HC0)) & CStr(Hex(nAsc And &H3F Or &H80))
                    szRet = szRet & uch
                Else
                    uch = "%" & CStr(Hex((nAsc  2 ^ 12) Or &HE0)) & "%" & CStr(Hex((nAsc  2 ^ 6) And &H3F Or &H80)) & "%" & CStr(Hex(nAsc And &H3F Or &H80))
                    szRet = szRet & uch
                End If
            End If
        Next
        UTF8_URLEncoding = szRet
    End Function

        delphi7短信接口代码示例

        php短信接口代码示例

        java短信接口代码示例

        C#短信接口代码示例

        asp短信接口代码示例

        如果还有什么不清楚的,可以在线咨询我们,或拨打我们的400电话:400-6699-521,动力思维乐信专注短信应用行业14年,专业为广大客户提供短信验证码、短信通知服务,14年来先后为全国各地超4万余客户提供短信应用服务,深受大家的认可和信赖!

  • 政能亮政府服务,当好“店小二”而非“二大爷” 2019-08-16
  • 女性之声——全国妇联 2019-08-16
  • 人傻有人爱,人聪明有人恨,人愚笨有人笑,人痴有人关心,不是每个人的命运都一样的 2019-08-11
  • 人民的力量——一份大报,与一个大党、一个大国的故事 2019-08-05
  • 中华人民共和国建筑法 2019-08-05
  • 转方式调结构显现阶段性成果(读数·发现经济运行的轨迹) 2019-08-02
  • 一语惊坛(6月8日):友谊勋章是给国际友人的最高荣誉。 2019-08-02
  • 《红海行动》出征中美电影节 2019-07-28
  • 发挥自身优势 奋力走在前列——习近平总书记在山东考察回访记 2019-07-28
  • 民生时评:上海支付宝回收垃圾并不现实(原创首发) 2019-07-28
  • 俺发现你还真是踩云的人。找不到谱。 2019-07-28
  • 12306网站用户信息外泄?铁总深夜“辟谣” 2019-07-25
  • 端午节期间 拉萨至日喀则增开列车 2019-07-24
  • 海淀区第十五届金秋采摘节拉开帷幕 2019-07-22
  • “千人计划”专家创业 最高可获450万元个人奖励 2019-07-22
  • 三地走势图1000期 广东十一选五和值遗漏 四川体育彩票走势图 体育彩票代理 澳门elg电子游戏竞猜 2元彩票注册送10元 3d福彩开奖日期 c重庆时时彩三星 吉林快三走势图下载 河北20选5走势图200期 滨州邹平特产 体彩任九现场直播 火柴人打羽毛球 宾利时时彩官方网站 3d组六最聪明买法