Dim sRequest As String, sReturnedString As String
 
Private Sub Command1_Click()
  sReturnedString = ""
  ' Anfrage an den Server im HTTP-Protkoll
  sRequest = "GET /index.html HTTP/1.1" & vbNewLine & _
      "Accept: */*" & vbNewLine & _
      "Connection: close"
  WinSock1.RemoteHost = "www.spiegel.de"
  WinSock1.RemotePort = 80
  WinSock1.Connect  ' verbinden
End Sub
 
Private Sub WinSock1_Connect()
  ' verbunden, Anfrage schicken
  WinSock1.SendData sRequest
End Sub
 
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
  ' es treffen Daten vom Server ein
  ' das müssen nicht alle sein, deshalb puffern...
  Dim sTemp As String
  wscClient.GetData sTemp, vbString
  sReturnedString = sReturnedString + sTemp
End Sub
 
Private Sub WinSock1_Close()
  ' alle Daten empfangen
  Text1.Text = sReturnedString
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)
  ' Fehler !
  MsgBox "Fehler: " & Description
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.