VB短信验证码接口DEMO示例

以为您提供了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 = "状态：服务器连接成功" & 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