Dim retData As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub DoSleep()
Sleep (1000)
End Sub
 
 
Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
'Junk code for break point.
Dim dong As Long
dong = 5
End Sub
 
 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Winsock1.GetData (Data)
    retData = retData & Data
    Dim x As Integer
    x = 5
 
End Sub
Private Sub Winsock1_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)
Winsock1.Close
End Sub
Private Sub Submit_Click()
    'MsgBox (Me.ContentControls(1).Range.Text)
    retData = Empty
    Winsock1.Close
 
    If Winsock1.State = sckDisconnected Then
        Winsock1.RemoteHost = "127.0.0.1"
        'Winsock1.LocalPort = 8080
 
	'Set to 80 if you don't use ip sniffer.
        Winsock1.RemotePort = 8888
        Winsock1.Connect
 
        If Winsock1.State = sckDisconnected Then
            MsgBox ("Not connected")
        Else
            Dim abc As String
            abc = "test=34"
            For i = 0 To 5
                If Winsock1.State = sckConnected Then
                    Exit For
                End If
             DoSleep
             DoEvents
            Next
 
 
 
 
            'Winsock1.SendData ("POST /index.php HTTP/1.1")
            Winsock1.SendData ("POST /index.php HTTP/1.1" & vbCrLf & _
            "Host: " & "127.0.0.1" & ":80" & vbCrLf & vbCrLf)
            '"Content-Length: " & Len(abc) & vbCrLf & _
            '"Connection: Keep-Alive" & vbCrLf & _
            'vbCrLf & abc & vbCrLf)
 
            For i = 0 To 5
                If Len(retData) > 0 Then
                    Exit For
                End If
             DoSleep
             DoEvents
            Next
 
 
           'Winsock1.GetData (msg)
            'MsgBox (msg)
        End If
    End If
 
End Sub