VB Code:
Option Explicit
Private Sub Command1_Click()
With Winsock
.RemoteHost = "finance.lycos.com"
.RemotePort = 80
.Close
.Connect
End With
End Sub
Private Sub Winsock_Connect()
Winsock.SendData "GET /qc/stocks/quotes.aspx?symbols=INTC" & Chr(10)
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim X As String
Winsock.GetData X
Debug.Print X
End Sub
Private Sub Winsock_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)
Debug.Print "Error "; Description
End Sub