价格不是我们的优势,品质永远是我们的追求!
当前位置:四川快乐12一定牛行业快讯 > vb6调用短信接口实现短信发送功能
vb6调用短信接口实现短信发送功能
来源:四川快乐12一定牛  时间:2018-11-13 10:31

四川快乐12一定牛 www.njs5.cn     短信接口应用广泛,如在网站或app的用户注册、密码找回、安全登录、消息提醒,支付确认等都需要用到,下面是小编为大家分享的在vb6开发语言下调用短信接口实现短信发送功能的代码示例,完整代码请点击下载(//www.njs5.cn/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-06-20
  • 乡镇纪委做指导 村务监督更有力 2019-06-20
  • 国资动态--安徽频道--人民网 2019-06-11
  • 广东金林村:农民爱写诗 2019-06-03
  • 公务加油卡私车加油、违规饮酒 池州两干部被处分 2019-05-18
  • 498米!最长地铁站将建成 2019-05-08
  • 是谁让文艺界大腕儿吃盒饭也来开会 2019-05-08
  • 毛泽东说帝国主义都是纸老虎。是有社会基础的 2019-05-07
  • 【学习时刻】国家行政学院经济学部副主任董小君:明方向、抓“龙头”、变思路,推动东北经济企稳向好 2019-04-24
  • 精彩画面—国际摩托车滚雷巡游节 2019-04-24
  • 留得青山在,何愁春不来? 2019-04-22
  • 新时代青年大学生 学习新思想 同上一堂课 2019-04-22
  • 朱鹏当选运城市人民政府市长 2019-04-15
  • 告诉你家掌勺的,9种吃法让营养流失 2019-04-15
  • 早新闻伊能静产女秦昊晒合影 揭高颜值男神女妆惊艳照 2019-04-14
  • 878| 310| 331| 258| 821| 522| 664| 383| 418| 954|