Etwas von Webseite an Programm senden.

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    Etwas von Webseite an Programm senden.

    Hallo,

    ich möchte, wie es schon im titel steht, etwas von meiner Website an mein Programm senden.

    Als grundidee habe ich mir überlegt dass ich z.B. im Browser 127.0.0.1:12905/asdf aufrufe und mein Programm dann asdf auslesen wird.

    Hat jemand eine Idee wie ich das realisieren kann?

    Folgenden Code habe ich schon, aber sobald ich im Browser die IP+Port aufrufe, hört der nicht auf zu Laden

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim IP() As Byte = {127, 0, 0, 1}
    5. Dim Port As Integer = 12905
    6. Dim Listener As New Net.Sockets.TcpListener(New System.Net.IPAddress(IP), Port)
    7. Dim enc As System.Text.Encoding = System.Text.Encoding.Default
    8. Listener.Start()
    9. Dim Socket As Net.Sockets.Socket = Listener.AcceptSocket
    11. While True
    12. While Socket.Available > 0
    13. Dim Buff(Socket.Available) As Byte
    14. Socket.Receive(Buff)
    16. For Each b As Byte In Buff
    17. Console.Write(Chr(b))
    18. Next
    20. Dim Resp As String = "HTTP/1.1 200 OK"
    21. Socket.Send(enc.GetBytes(Resp))
    22. End While
    23. End While
    24. End Sub
    26. End Module


    Danke für eure Hilfe

    Bekommst du denn den Header vom Browser in deiner Konsole angezeigt? Weil da müsste irgendwo GET /path/blabla stehen, und das ist ja das was du brauchst ;) Das er unendlich läd liegt daran, das du keine Conent-Length mitsendest ;)

    @LaMiy:
    Die Lösung habe ich ja schon geposted, Content-Length setzen und Socket trennen......

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim IP() As Byte = {127, 0, 0, 1}
    5. Dim Port As Integer = 12905
    6. Dim Listener As New Net.Sockets.TcpListener(New System.Net.IPAddress(IP), Port)
    7. Dim enc As System.Text.Encoding = System.Text.Encoding.Default
    8. Listener.Start()
    9. Dim Socket As Net.Sockets.Socket = Listener.AcceptSocket
    11. While True
    12. While Socket.Available > 0
    13. Dim Buff(Socket.Available) As Byte
    14. Socket.Receive(Buff)
    16. For Each b As Byte In Buff
    17. Console.Write(Chr(b))
    18. Next
    20. Dim Resp As String = "HTTP/1.1 200 OK" & vbCrLf & _
    21. "Content-Length: 0"
    22. Socket.Send(enc.GetBytes(Resp))
    23. If Socket.Available = 0
    24. Socket.Close
    25. End If
    26. End While
    27. End While
    28. End Sub
    30. End Module


    aber ich machs jetzt sowieso mit dem HTTPListener.

    Gruß,
    Julian

Facebook
Telefonspende