下面為您您提供了VB6版本的驗證碼短信接口對接DEMO例子
免費體驗注冊地址：http://user.ihuyi.com/?DKimmu
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 = "狀態(tài)：服務(wù)器連接成功" & 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 = "狀態(tài)：" & 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
