Http Listener

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von LaMiy.

    Http Listener

    Guten Abend.
    Ich würde gerne ein kleines Programm schreiben, welches bei bestimmter Adresseingabe im Browser reagiert und Daten an die Seite schickt.
    Vorerst. Ist das möglich ?
    Das Schicken ist kein Problem, doch beim Auslesen hapert es. Nach ein paar Nachforschungen hat sich herausgestellt, dass das ganze mit einem HTTPListener zu machen ist.
    msdn.microsoft.com/de-de/libra…tem.net.httplistener.aspx
    MSDN hat hierzu ein Beispiel. Jedoch blick ich da nicht ganz durch, was dieser Code macht. (Hab's nicht ausprobiert)
    Kann mir da jemand auf die Sprünge helfen ?
    Und wie genau muss ich diesen Code für mein Vorhaben verwenden ?

    Edit:
    Ich hab mal den Code ausprobiert.

    VB.NET-Quellcode

    1. ' This example requires the System and System.Net namespaces.
    2. Public Shared Sub SimpleListenerExample()
    3. If Not HttpListener.IsSupported Then
    4. Console.WriteLine("Windows XP SP2 or Server 2003 is required to use the HttpListener class.")
    5. Return
    6. End If
    7. ' Create a listener.
    8. Dim listener As New HttpListener()
    9. ' Add the prefixes.
    10. listener.Prefixes.Add("http://localhost/")
    11. listener.Start()
    12. Console.WriteLine("Listening...")
    13. ' Note: The GetContext method blocks while waiting for a request.
    14. Dim context As HttpListenerContext = listener.GetContext()
    15. Dim request As HttpListenerRequest = context.Request
    16. ' Obtain a response object.
    17. Dim response As HttpListenerResponse = context.Response
    18. ' Construct a response.
    19. Dim responseString As String = "<HTML><BODY> Hello world!</BODY></HTML>"
    20. Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(responseString)
    21. ' Get a response stream and write the response to it.
    22. response.ContentLength64 = buffer.Length
    23. Dim output As System.IO.Stream = response.OutputStream
    24. output.Write(buffer, 0, buffer.Length)
    25. ' You must close the output stream.
    26. output.Close()
    27. listener.[Stop]()
    28. End Sub


    Fehler bei listener.Start() Zugriff verweigert. Das Programm wird als Admin gestartet.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMiy“ ()

    @Rinecamo
    Ja hab ich. Es läuft nichts auf Port 80.
    Komisch ...

    Edit: Was mir aufgefallen ist. Wenn ich das Programm starte wirft er den Fehler. Starte ich nun meinen Apache neu (xampp) kommt ein Fehler in xampp
    00:28:23 [Apache] Error: Apache shutdown unexpectedly.
    00:28:23 [Apache] This may be due to a blocked port, missing dependencies,
    00:28:23 [Apache] improper privileges, a crash, or a shutdown by another method.

    Bei Windows 8 hat man trotz Administratoraccount leider keine vollständigen Administratorenrechte und UAC lässt sich auch nicht vollständig deaktivieren.
    Entweder man aktiviert den Systemadministrator als Account, oder deaktiviert UAC in der Registry. Dazu dürftest du was bei Google finden. Ob das jetzt auf dein Fehler zurückzuführen ist, kann ich dir leider nicht sagen, aber man liest ja in fast jedem Ergebnis das mangelnde Rechte die Ursache sei.

    Dann bleibt nur noch, auch nach dem xampp Log zu urteilen, ein blockierter Port in Frage.
    Ich weiß nicht wie du deine Ports überprüft, aber ich würde die Finger von diesen Online Checkern lassen. Ich habe es gerade mal probiert, läuft Skype dann schlägt dein Code fehl, da Skype auf den Port zugreift. Online Tools zeigen mir an das Port 80 belegt ist (was auch stimmt), schließe ich Skype funktioniert dein Code, die online Tools melden aber durchgehend an das Port 80 belegt ist (was nicht mehr stimmt). In meiner VM hingegen melden sie trotz Skype an, dass Port 80 frei ist.

    Wie dem auch sei, ich möchte nicht an deinen Kompetenzen zweifeln. Doch zur Not einmal neustarten und Programm vor allem anderen debuggen. Ansonsten sind meine Ratschläge auch passé.

    @kinsi
    Danke ! Klappt nun

    Oh man. Ich habe einen blöden Fehler gemacht. Ich hatte es als WinForm und es nach meinen Versuchen nicht als Administrator ausgeführt.
    Es klappt nun. Also es wirft keinen Fehler wenn ich Port 100 überwache.

    Bei Port 80 klappt es nicht. (Weil ich xampp laufen habe ?)
    Wie kann ich denn nun testen ob das mit Port 100 klappt ? Was muss ich da in die Adresszeile eingeben ?

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict on
    2. Imports System.Net
    4. Module Module1
    6. Sub Main()
    7. SimpleListenerExample()
    8. End Sub
    10. ' This example requires the System and System.Net namespaces.
    11. Public Sub SimpleListenerExample()
    12. If Not HttpListener.IsSupported Then
    13. Console.WriteLine("Windows XP SP2 or Server 2003 is required to use the HttpListener class.")
    14. Return
    15. End If
    16. ' Create a listener.
    17. Dim listener As New HttpListener()
    18. ' Add the prefixes.
    19. listener.Prefixes.Add("http://*:100/")
    20. listener.Start()
    21. Console.WriteLine("Listening...")
    22. ' Note: The GetContext method blocks while waiting for a request.
    23. Dim context As HttpListenerContext = listener.GetContext()
    24. Dim request As HttpListenerRequest = context.Request
    25. ' Obtain a response object.
    26. Dim response As HttpListenerResponse = context.Response
    27. ' Construct a response.
    28. Dim responseString As String = "<HTML><BODY> Hello world!</BODY></HTML>"
    29. Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(responseString)
    30. ' Get a response stream and write the response to it.
    31. response.ContentLength64 = buffer.Length
    32. Dim output As System.IO.Stream = response.OutputStream
    33. output.Write(buffer, 0, buffer.Length)
    34. ' You must close the output stream.
    35. output.Close()
    36. listener.[Stop]()
    37. End Sub
    39. End Module

Facebook
Telefonspende