验证码短信接口VB6调用http源码
通过验证码短信http调用接口，您可以很快速的在网站或者app中集成手机号验证功能，该源码只是核心代码，具体可以根据您的实际需求进行扩展。
VERSION 5.00
Object = "{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
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 = "密码"
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
==================================================================
互亿无线验证码短信接口及完整源码下载地址：https://www.ihuyi.com/duanxin.html
如有疑问，请联系我们的技术，或者访问我们的网站了解更多信息：https://www.ihuyi.com/
