Option Explicit
Dim Timeout As Integer
 
Private Sub Form_Load()
ws1.Listen
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
ws1.Close
End Sub
 
Private Sub tmrTimeout_Timer()
Timeout = Timeout - 1
lblTimeout.Caption = Format$(Timeout)
If Timeout = 0 Then
    ws1.Close
    Log "Closed!"
    ws1.Listen
    tmrTimeout.Enabled = False
    End If
End Sub
 
Private Sub ws1_Close()
Log "Closed!"
ws1.Close
ws1.Listen
lblTimeout = "0"
tmrTimeout.Enabled = False
End Sub
 
Private Sub ws1_ConnectionRequest(ByVal requestID As Long)
ws1.Close
ws1.Accept requestID
End Sub
 
Private Sub ws1_DataArrival(ByVal bytesTotal As Long)
Dim GotData As String
Dim parts() As String
Dim I As Integer
Dim FS As Long
 
ws1.GetData GotData
parts = Split(GotData, vbCrLf)
For I = 0 To UBound(parts)
    Log parts(I)
    Next I
 
GotData = Text1.Text
'I = FreeFile
'Open "c:\pic.jpg" For Binary As I
'FS = LOF(I)
'GotData = Input(FS, I)
'Close I
 
ws1.SendData "HTTP/1.0 200 OK" & vbCrLf & _
             "Content-Type: text/html" & vbCrLf & _
             "Content-Length:" & Str(Len(GotData)) & vbCrLf & vbCrLf
             'Bei Bild das text/html durch image/jpeg ersetzen!
ws1.SendData GotData & vbCrLf & vbCrLf
Timeout = 2
tmrTimeout.Enabled = True
End Sub
 
Private Sub Log(tegst As String)
With List1
 .AddItem tegst
 .ListIndex = (.ListCount - 1)
 .Selected(.ListCount - 1) = False
End With
End Sub