Option Explicit
Dim WithEvents Client As CSocketMaster

Private Sub Command1_Click()
  Client.Connect "ххх.1хх.хх.ххх", "80"
End Sub

Private Sub Form_Load()
  Set Client = New CSocketMaster
End Sub

Private Sub cmdSend_Click()
  Client.SendData txtMessage
  txtMessage = ""
End Sub


Private Sub Client_Connect()
  cmdSend.Enabled = True
End Sub

Private Sub Client_CloseSck()
  cmdSend.Enabled = False
  cmdConnect.Enabled = True
  'txtPort.Enabled = True
  MsgBox "Connection closed"
Client.CloseSck
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
  Dim data As String
  Client.GetData data
  txtLog = txtLog + data + vbCrLf
End Sub

Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox Description, vbCritical, "Client Error " & Number
  cmdSend.Enabled = False
  cmdConnect.Enabled = True
  txtPort.Enabled = True
  Client.CloseSck
End Sub

  Dim data As String
che:
  Client.GetData data, vbString,  1000 
  txtLog = txtLog + data '+ vbCrLf
If data <> "" Then GoTo che

    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <>  0  Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If

Private Sub txtRecv_Change()
  Dim t As String
  Dim i As Long
  Dim i2 As Long
  Dim st1 As String
  Dim st2 As String
  t = txtRecv.Text

If Label10.Visible = False Then
  i = InStr(t, vbCrLf)
  If i >  10  Then
    st1 = Left(t, i -  2 )
    If UCase(Left(st1,  4 )) = "HTTP" Then
      Label10.Visible = True
       i2 = InStr(t, " ") +  1 
       If i2 >  0  Then
         Label9.Caption = Mid(t, i2, i - i2)
       End If
    End If
  End If
End If

If Label10.Visible = True Then
    i = InStr(LCase(t), "content-length:")
    i2 = InStr(t, vbCrLf & vbCrLf)
    If i >  0  And i < i2 Then
      i2 = InStr(i, t, vbCrLf)
      If i2 >  0  Then
        st2 = Mid(t, i +  16 , i2 - i)
        Label7.Visible = True
        Label8.Caption = st2
      End If
    End If
End If

If Label7.Visible = True Then
  If Len(txtRecv) >= Val(Label8.Caption) Then
    i2 = InStr(t, vbCrLf & vbCrLf)
    If i2 >  0  Then
      Text2.Text = Mid(t, i2 +  4 , Val(Label8.Caption))
      If cmdConnect.Caption <> "Connect" Then
        Call cmdConnect_Click
      End If
    End If
  End If
End If

  'Debug.Print o.SocketHandle
  Debug.Print o.State
End Sub

  Set o = Nothing
  Set o = New OSWINSCK.Winsock
  cmdConnect.Caption = "Connect"