标签:Dim Text Winsock1 验证码 接口 VB6 Str vbCrLf strCommand
//接口类型:触发短信接口,支持发送验证码短信、订单通知短信等。
// 账户注册:请通过该地址开通账户http://user.ihuyi.com/?jmzFP2
// 注意事项:
//(1)调试期间,请使用用系统默认的短信内容:您的验证码是:【变量】。请不要把验证码泄露给其他人。
//(2)请使用 APIID 及 APIKEY来调用接口,可在会员中心获取;
//(3)该代码仅供接入短信接口参考使用,客户可根据实际需要自行编写;+
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
标签:Dim,Text,Winsock1,验证码,接口,VB6,Str,vbCrLf,strCommand 来源: https://blog.csdn.net/m0_61684517/article/details/120506529
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。