All pastes #100720 Raw Edit

Unnamed

public text v1 · immutable
#100720 ·published 2006-07-26 11:29 UTC
rendered paste body
Private Sub cmdCheck_Click()

Dim data As String
data = "GET / HTTP/1.0" & vbCrLf
data = data & "Host: ipchicken.com" & vbCrLf & vbCrLf
MsgBox Winsock.State = sckConnected
Winsock.SendData data
DoEvents

End Sub

''' This works directly, but gives me HTTP error code "400; Invalid header received from browser"