• 提供南水北调七成中线水 陕西一江清水送北京 2019-10-10
  • 你的声音,说一句话就能被克隆 2019-10-08
  • 她主动借腹给我生儿子,中途又移情别恋 有故事的人 2019-10-07
  • 候选企业:安徽古井集团 2019-10-06
  • 智能手机冲击大 数码相机不服输 2019-10-06
  • 工信部:我国4G用户达10.6亿户 宽带提速效果显著 2019-10-01
  • 一条塔里木河 串起南疆各色景致与无限风光 2019-10-01
  • 消防车进商场——“小小消防员”的消防安全乐体验 2019-09-27
  • 《游侠索罗》:票房失意之作的连锁反应 2019-09-27
  • 万物互联开启智慧新图景 下一代互联网未来已来 2019-09-27
  • 朔州市人大常委会任免名单 2019-09-27
  • 置业指南:盘点沙坪坝在售楼盘 2019-09-26
  • 加快南昌航空货运发展推进会举行 2019-09-26
  • 李思思元元月亮姐姐 盘点央视主持人与子女温馨合影 2019-09-25
  • 欧阳绍修:孜孜以求为祖国研制“争气机” 2019-09-20
  • 价格不是我们的优势,品质永远是我们的追求!
    当前位置:北京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-10-10
  • 你的声音,说一句话就能被克隆 2019-10-08
  • 她主动借腹给我生儿子,中途又移情别恋 有故事的人 2019-10-07
  • 候选企业:安徽古井集团 2019-10-06
  • 智能手机冲击大 数码相机不服输 2019-10-06
  • 工信部:我国4G用户达10.6亿户 宽带提速效果显著 2019-10-01
  • 一条塔里木河 串起南疆各色景致与无限风光 2019-10-01
  • 消防车进商场——“小小消防员”的消防安全乐体验 2019-09-27
  • 《游侠索罗》:票房失意之作的连锁反应 2019-09-27
  • 万物互联开启智慧新图景 下一代互联网未来已来 2019-09-27
  • 朔州市人大常委会任免名单 2019-09-27
  • 置业指南:盘点沙坪坝在售楼盘 2019-09-26
  • 加快南昌航空货运发展推进会举行 2019-09-26
  • 李思思元元月亮姐姐 盘点央视主持人与子女温馨合影 2019-09-25
  • 欧阳绍修:孜孜以求为祖国研制“争气机” 2019-09-20
  • 网上cp赚钱真实吗 p3试机号关注金码送胆 甘肃快3今日开奖结果 蓝网球比分 十一运夺金出号走势图 上海基诺彩票奖金 下载时时彩开奖号码 ag真人真钱 广西快3查询结果 天有娱乐 稳赚一号提前终止 11选5一胆全托 山西快乐十分前三图 公式规律区杀四肖 彩票中心兑奖时间