Hi,
I have some problem receiving data with GetData after using post method. GetData returns nothing.
I have installed fiddler the ip-sniffer to se what happends. Fiddler seams to receive data without any problem for the request.
Appreciate your help.
Here is the code I use:
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