VB通过http调用验证码短信接口源码

通过验证码短信http调用接口，您可以很快速的在网站或者app中集成手机号验证功能，该源码只是核心代码，具体可以根据您的实际需求进行扩展。

该DEMO是VB通过http调用验证码短信接口源码；

VERSION 5.00Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "Mswinsck.OCX"Begin VB.Form Form1    Caption         =   "Form1"   ClientHeight    =   4740   ClientLeft      =   120   ClientTop       =   450   ClientWidth     =   5940   LinkTopic       =   "Form1"   ScaleHeight     =   4740   ScaleWidth      =   5940   StartUpPosition =   2  '屏幕中心   Begin MSWinsockLib.Winsock Winsock1       Left            =   4920      Top             =   4200      _ExtentX        =   741      _ExtentY        =   741      _Version        =   393216   End   Begin VB.TextBox Text4       Height          =   270      Left            =   360      TabIndex        =   4      Text            =   $"Form1.frx":0000      Top             =   1200      Width           =   5415   End   Begin VB.TextBox Text3       Height          =   270      Left            =   360      TabIndex        =   3      Text            =   "手机号码"      Top             =   840      Width           =   2775   End   Begin VB.TextBox Text2       Height          =   270      Left            =   360      TabIndex        =   2      Text            =   "密码"      Top             =   480      Width           =   2775   End   Begin VB.TextBox Text1       Height          =   270      Left            =   360      TabIndex        =   1      Text            =   "用户名"      Top             =   120      Width           =   2775   End   Begin VB.CommandButton Command1       Caption         =   "提 交"      Height          =   495      Left            =   3720      TabIndex        =   0      Top             =   240      Width           =   1215   End   Begin VB.Label Label2       AutoSize        =   -1  'True      Caption         =   "Label2"      Height          =   180      Left            =   360      TabIndex        =   6      Top             =   2160      Visible         =   0   'False      Width           =   540   End   Begin VB.Label Label1       AutoSize        =   -1  'True      Caption         =   "状态"      Height          =   180      Left            =   360      TabIndex        =   5      Top             =   1920      Width           =   360   EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate 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 = "密码"    Text3.Text = "手机号码&coding=GBK"    '&coding=GBK不要删除        End SubPrivate 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 SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim rec() As ByteWinsock1.GetData rec, vbString'MsgBox Utf8ToUnicode(Right(rec, 150))Label2.Visible = TrueLabel2.Caption = Utf8ToUnicode(rec)Winsock1.CloseEnd Sub

自助申请帐户地址：http://www.ihuyi.com/product.php
完整接口文件地址：http://www.ihuyi.com/upload/file/cu-fa-jie-kou.rar