Private Shared Sub Send(ByVal handler As Socket) ', ByVal data As String)
        Dim strSenden As String
        '!! Monat in Englisch
        '!! Fehler abfangen und wenn Fehler, dann 500 senden.
        'System.Net.HttpRequestHeader()
        strSenden = "HTTP/1.0 200 ok" & vbCrLf
        strSenden += "Date: " & Left(Now.DayOfWeek.ToString, 3) & ", " & _
          Now.Day & " " & MonthName(Now.Month, True) & " " & Right(Now.Year, 2) _
          & " " & Left(Now.TimeOfDay.ToString, 8) & " GMT+2" & vbCrLf
        strSenden += "Server: E_WEB (E_MOO-Web-Server/1.2d - Not WOO) (" & _
        "LambdaMOO 1.8.0p5)" & vbCrLf
        strSenden += "Content-type: application/x-www-form-urlencoded" & vbCrLf _
        '"Content-type: text/html" & vbCrLf
        strSenden += vbCrLf & "Testing=1&CUPPath=" & _
        System.Web.HttpUtility.UrlEncode("C:\CUP")
        Dim b() As Byte
        b = System.Text.Encoding.Default.GetBytes(strSenden)
        handler.BeginSend(b, 0, b.Length, SocketFlags.None, New AsyncCallback( _
          AddressOf SendCallback), handler)
    End Sub
 
    Private Shared Sub SendCallback(ByVal ar As IAsyncResult)
        'Retrieve the socket from the state object.
        Dim handler As Socket = CType(ar.AsyncState, Socket)
        'handler.ProtocolType = ProtocolType.IPSecAuthenticationHeader
        Debug.WriteLine(handler.ProtocolType.ToString)
        Dim x As New System.Net.Sockets.SocketError
        'Complete sending the data to the remote device.
        Dim bytesSent As Integer = handler.EndSend(ar, x)
        If Not x = SocketError.Success Then
            MsgBox(x.ToString())
        End If
        handler.Shutdown(SocketShutdown.Both)
        handler.Close()
        ' Signal the main thread to continue.
        allDone.Set()
    End Sub
 
End Class