VB6如何开发订单通知短信。

最新推荐文章于 2022-04-13 14:23:17 发布

苍穹破天

最新推荐文章于 2022-04-13 14:23:17 发布

阅读量181

点赞数

分类专栏： VB6短信开发 VB6短信平台 VB6语言短信接口文章标签： vb6

本文链接：https://blog.csdn.net/m0_61684517/article/details/122557972

版权

VB6语言短信接口同时被 3 个专栏收录

7 篇文章 0 订阅

订阅专栏

VB6短信开发

5 篇文章 0 订阅

订阅专栏

VB6短信平台

2 篇文章 0 订阅

订阅专栏

短信在订单通知中的应用

用户通过网站/APP提交订单后，商家或平台自动发送短信通知，提醒客户订单处理进度及物流跟踪信息，提高用户在线交易的体验度。通知短信平台优势14555

通知短信平台优势

* 接口类型：触发短信接口，支持发送验证码短信、订单通知短信，节日祝福等。
* 账户注册：请通过该地址开通账户 http://user.ihuyi.com/?exClaO

Private Sub Form_Load()
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = "106.ihuyi.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect
    DoEvents
         
    If 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 Next
 
    Dim PostData As String
    Dim Str As String
      
    Dim strWebPage As String
    Dim strCommand As String
         
    PostData = "account=" + Text1.Text + "&password=" + Text2.Text + "&mobile=" + Text3.Text + "&content=" + Text4.Text
     
    Dim 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: 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 str
 
     
    strWebPage = "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 + vbCrLf
     
     
    If Winsock1.State <> 7 Then
        Winsock1.Protocol = sckTCPProtocol
        Winsock1.RemoteHost = "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 Sub
 
 
Private 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