Dim strIcq As String
 
Private Sub Form_Load()
  strIcq = InputBox("Welche ICQ-Nummer soll geprüft werden?")
  Winsock1.Close
  Winsock1.LocalPort = 0
  ' Alle Verbindungen schließen
  Winsock1.Connect "status.icq.com", 80
  ' Mit dem Server wwp.icq.com verbinden, mit dem HTTP-Port (80)
End Sub
 
Private Sub Winsock1_Connect()
' Wir sind verbunden
  Dim strHttpRequest As String
 
  ' HTTP-Request senden, ein HTTP-Request ist die Anfrage an den Webserver, 
  ' eine Datei (zB Webseite) zu senden
  strHttpRequest = "GET /online.gif?icq=" & strIcq & "&img=1 HTTP/1.1" & vbCrLf _
    & _
    "Host: wwp.icq.com" & vbCrLf & _
    "Accept: */*" & vbCrLf & _
    "Connection: close" & vbCrLf & vbCrLf
 
  Winsock1.SendData strHttpRequest ' Ab geht unser HTTP-Request an den Server
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  On Error Resume Next
  Dim strData As String
 
  ' Daten empfangen
  Winsock1.GetData strData
 
  For i = 1 To Len(strData)
    If Mid(strData, i, 9) = "Location:" Then
      Select Case Mid(strData, i + 19, 1)
        Case "0": MsgBox "Offline"
        Case "1": MsgBox "Online"
        Case "2": MsgBox "Unbekannt"
      End Select
      Winsock1.Close
    End If
  Next
End Sub

Cu David
--------------------------------------------
ist eine geniale Erfindung

Q-lympics ist geil