其他分享
首页 > 其他分享> > VB6如何接入短信接口

VB6如何接入短信接口

作者:互联网

学习编程得第N天,发现一个超简单验证码短信接口对接DEMO示例

Private Sub Form_Load()

Winsock1.Protocol = sckTCPProtocol

Winsock1.RemoteHost = "http://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: 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 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 = "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 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

* 账户注册:请通过该地址开通账户http://user.ihuyi.com/?JA9Ewr

* 注意事项:

*(1)调试期间,请使用用系统默认的短信内容:您的验证码是:【变量】。请不要把验证码泄露给其他人。

*(2)请使用 用户名 及 APIkey来调用接口,APIkey在会员中心可以获取;

标签:Dim,Sub,接入,Text,Winsock1,接口,VB6,Str,vbCrLf
来源: https://blog.csdn.net/Zhangmy227/article/details/121142581