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

    短信接口应用广泛,如在网站或app的用户注册、密码找回、安全登录、消息提醒,支付确认等都需要用到,下面是小编为大家分享的在vb6开发语言下调用短信接口实现短信发送功能的代码示例,完整代码请点击下载(http://www.lx598.com/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 = "http://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万余客户提供短信应用服务,深受大家的认可和信赖!