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

新疆时时彩购彩 www.gnouw.com.cn     短信接口应用广泛,如在网站或app的用户注册、密码找回、安全登录、消息提醒,支付确认等都需要用到,下面是小编为大家分享的在vb6开发语言下调用短信接口实现短信发送功能的代码示例,完整代码请点击下载(//www.gnouw.com.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-26
  • 双拳出击:领主商务版威虎超值版上市 2019-06-26
  • 调查:六成老人感到幸福,西藏排第一,您家的呢?  2019-06-26
  • 浙大科研团队15载攻克歼20等飞机装配系列难题 2019-06-25
  • 都以为机器人普及了,一切都不是问题了?机器人不需要不断升级?机器人生产啥?不需要人设计? 2019-06-25
  • 新华网评:流浪犬伤人事件频发,亟待多措并举 2019-06-25
  • 美国依据“301”调查发布对中国产品征收关税清单 2019-06-24
  • 弥渡 万亩梨花如云似瀑 春城壹网 七彩云南 一网天下 2019-06-24
  • 易烊千玺押中高考作文题?不仅会押,今年还唱过! 2019-06-24
  • 2018年两会第五场“部长通道” 2019-06-23
  • 筑牢主流 摈弃“历史虚无主义” 2019-06-23
  • 李宇嘉深圳二次房改对其他城市有重大示范意义 ——凤凰网房产北京 2019-06-23
  • 澳大利亚女子离婚时发现丈夫有15套房产 2019-06-22
  • 当老对手再重逢 本田飞度vs大众POLO 2019-06-22
  • 足协调查深足欠薪陷两难 队员不开发布会就罢赛 2019-06-22
  • 汕头福彩中奖新闻 竞彩足球比分玩法介绍 重庆快乐十分计划网站 辽宁七乐彩走势图 河北20选5开奖查询 四川快乐12开奖号码公告 最精准的pc蛋蛋算法2018 广东快乐十分出租 中彩堂特码资料 福建31选7最新开奖结果今天 黑龙江p62几点开奖 金彩娱乐城备用地址 360买彩票可靠吗 一码中特规律 陕西十一选五历史走势