VB6短信接口DEMO

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, vbFromU