Private Sub Form_Load()
  Winsock1(0).LocalPort = 80
  Winsock1(0).Listen
End Sub
 
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
  Debug.Print "New Winsock: " & Winsock1.UBound + 1
  Load Winsock1(Winsock1.UBound + 1)
  With Winsock1(Winsock1.UBound)
    .Accept requestID
  End With
End Sub
 
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Dim strcontent As String
  If Index > 0 Then
    Winsock1(Index).PeekData strcontent, , bytesTotal
    Winsock1(Index).Close
    Debug.Print "Close Winsock: " & Index
    Unload Winsock1(Index)
    MsgBox strcontent
  End If
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.