VB6如何接入短信接口，通过短信群发通知？

群发短信应用场景：

预约提醒
网上预约挂号成功后，及时得到网上预约结果通知。

随访提醒
访客系统的短信通知，适合一些办公楼访客，办公楼登记，办事大楼等。

发送项目结果
对于一些项目结果，要隔一段时间才能得到结果，直接发短信到指定人员手机上，节省时间和精力。

意见和投诉
发送的意见或投诉内容发送到短信平台，可以收集意见和投诉。

节日关心
生日、节假日等重要日期发送关怀信息和温馨提醒，提升企业形象。提醒特殊人群或特殊情况，及时了解患者情况。

内部管理
内部人员可用于内部沟通、信息传递、内部管理等。

本文为您提供了VB6语言版本的验证码短信接口对接DEMO示例

账号获取：http://user.ihuyi.com/?t9nyDNPrivate Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "http://106.ihuyi.com"
Winsock1.RemotePort = 80
Winsock1.Connect
DoEventsIf Winsock1.State <> 7 Then Label1.Caption = "状态：服务器连接成功" & Chr(13)Text1.Text = "用户名"
Text2.Text = "密码可以使用明文密码或使用32位MD5加密"
Text3.Text = "手机号码&coding=GBK" '&coding=GBK不要删除End Sub
Private Sub Command1_Click()On Error Resume NextDim PostData As String
Dim Str As StringDim strWebPage As String
Dim strCommand As StringPostData = "account=" + Text1.Text + "&password=" + Text2.Text + "&mobile=" + Text3.Text + "&content=" + Text4.TextDim Ai() As Byte
Ai = StrConv(strWebPage, vbFromUnicode)
CLength = UBound(Ai) + 1
Str = "POST /webservice/sms.php?method=Submit HTTP/1.1" + vbCrLf
Str = Str + "Accept: */*" + vbCrLf
Str = Str + "Content-Type: application/x-www-form-urlencoded" + vbCrLf
Str = Str + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322)" & vbCrLf
Str = Str + "Language: zh-CN, zh, *" + vbCrLf
Str = Str + "Connection: Keep-Alive" + vbCrLf
Str = Str + "Host: http://106.ihuyi.com" + vbCrLf
Str = Str + "Accept-Language: zh-CN, zh, *" + vbCrLf
Str = Str + "Accept-Encoding: gzip, deflate" & vbCrLf
Str = Str & "Content-Length: " & Len(PostData) & vbCrLf & vbCrLf
Str = Str & PostData & vbCrLf
'MsgBox strstrWebPage = "http://106.ihuyi.com/webservice/sms.php?method=Submit&account=" + Text1.Text + "&password=" + Text2.Text + "&mobile=" + Text3.Text + "&content=" + Text4.Text
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + vbCrLfIf Winsock1.State <> 7 Then
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "http://106.ihuyi.com"
Winsock1.RemotePort = 80
Winsock1.Connect
DoEvents
Winsock1.SendData Str
Else
Winsock1.SendData strCommand
End If'Label1.Caption = "状态：" & strState & Chr(13) & strCommand & Chr(13)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec() As Byte
Winsock1.GetData rec, vbString
'MsgBox Utf8ToUnicode(Right(rec, 150))Label2.Visible = True
Label2.Caption = Utf8ToUnicode(rec)Winsock1.Close
End Sub

VB6如何接入短信接口，通过短信群发通知？相关推荐

(李正传媒)验证码短信短信接口验证码短信接口订单通知短信接口
长沙(李正无线)验证码短信标签:短信验证码短信群发接口2015-07-14 12:46 星期二 (李正传媒)验证码短信短信接口验证码短信接口订单通知短信接口验证码短信专用接口指的是针对网站 ...
tp6框架结合阿里短信接口发送短信并记录redis
tp6框架结合阿里短信接口发送短信并记录redis 1> 开通阿里云短信服务 2> 安装redis服务 3>config配置文件创建sms.php 文件,配置阿里云短信信息 ret ...
网易云信短信接口java_短信接入示例
短信 > 短信接入示例短信接入示例功能概述短信服务(Short Message Service)是网易网易云通信为用户提供的一种通信服务的能力,目前支持验证码类短信.通知类短信.运营类短信 ...
java短信接口-单条短信接口
单条短信接口此接口为客户发送单条短信提供支持接入指导步骤一:登录亿美软通官网步骤二:注册并获取客户标识(AppId)和客户密钥(secretKey)账号步骤三:参照接口文档和DEMO,对接接 ...
NODE.JS如何开发短信接口发送短信验证码/短信通知demo示例
用户将收到的短信验证码填写到网站,网站对用户填写的验证码进行校验,如果一致,说明用户填写的手机号码是正确的,否则验证失败. 在开通手机短信验证功能之前,需要将网站同接口进行对接,对接的相关说明可以访问 ...
python短信接口_短信接口DEMO-PYTHON
云通讯平台-PYTHON短信接口开发示例 #!/usr/bin/python #2.0+++ import requests#导入request模块 import json import hashli ...
php 预防循环发短信_php短信接口发送短信失败，罪魁祸首原来在这里
随着国民经济的高速发展,短信的应用也逐渐商业化,很多企业.商家开始使用php短信接口来进行推广.营销或内部管理,只是个别的商家在应用php短信接口的时候却遇到了短信发送失败的现象,这到底是因为商家操作 ...
短信接口与短信平台收费标准----速码云仅供参考
文章来源:http://www.4006026717.com 就目前来说短信接口价格参考行业收费也基本上没有个固定的标准的价格,都是看各个公司自己的通道套餐跑的量和公司的运营成本结合预算后最终才来 ...
java web短信接口_WebServices_java短信接口示例
一.下载源码 JAVA DEMO下载二.使用帮助 2.1 DEMO结构说明: 1.WebServiceDemo.java中是接口的调用示例: 2.ws文件夹下是Web Services的相关定义: ...
【SpringBoot深入浅出系列】SpringBoot之调用腾讯云短信接口发送短信
目录一.开发前准备 1.创建签名 2.创建正文模板管理 3.创建应用 4.创建secretId和secretKey 二.开发 1.创建 Spring Initializr 项目 tengxunsms ...

VB6如何接入短信接口，通过短信群发通知？

VB6如何接入短信接口，通过短信群发通知？相关推荐

最新文章

热门文章