'' This works directly when remote host & port is set to "ipchicken" and "80".
Private Sub cmdCheck_Click()
Dim data As String
data = "GET / HTTP/1.0" & vbCrLf
data = data & "Host: ipchicken.com" & vbCrLf & vbCrLf
Winsock.SendData data
DoEvents
End Sub
Private Sub Form_Load()
Winsock.Close
Winsock.RemoteHost = "localhost"
Winsock.RemotePort = "8118"
Winsock.Connect "localost", "8118"
End Sub
'' I get "runtime error: 40006". "wrong protocol or connection state for the requested transaction or request"
'' Clicking Debug takes me to; "winsock.senddata data" line