VB6语言对接验证码短信接口

VB6语言短信接口demo
//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。
//账户注册：请通过该地址开通账户 http://user.ihuyi.com/?DKimmu
//注意事项：
//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
//（2）请使用 用户名 及 APIkey来调用接口，APIkey在会员中心可以获取；
//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；

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()