Mutliserver (TCP) Mit ASP

  • ASP

    Mutliserver (TCP) Mit ASP

    Guten Tag,
    ich wollte wissen
    ob ich das TUtorial vom Sourcecode austausch auch als ASP Server benutzen kann
    ich möchte es gerne auf meinen Webspace legen und dann über den Webspace
    einen Chat betreiben, könnte jemand mir da helfen??
    Der Bisherige Code für den Server:

    Visual Basic-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    4. Partial Public Class _Default
    5. Inherits System.Web.UI.Page
    7. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    9. End Sub
    11. Private Server As TcpListener
    12. Private client As New TcpClient
    13. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    14. Private list As New List(Of Connection)
    16. Private Structure Connection
    17. Dim stream As NetworkStream
    18. Dim streamw As StreamWriter
    19. Dim streamr As StreamReader
    20. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    21. End Structure
    23. Private Sub SendToAllClients(ByVal s As String)
    24. For Each c As Connection In list ' an alle clients weitersenden.
    25. Try
    26. c.streamw.WriteLine(s)
    27. c.streamw.Flush()
    28. Catch
    29. End Try
    30. Next
    31. End Sub
    33. Sub Main()
    34. Label1.Text += vbNewLine & "Der Server läuft!"
    35. server = New TcpListener(ipendpoint)
    36. server.Start()
    38. While True ' wir warten auf eine neue verbindung...
    39. client = server.AcceptTcpClient
    41. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    42. c.stream = client.GetStream
    43. c.streamr = New StreamReader(c.stream)
    44. c.streamw = New StreamWriter(c.stream)
    46. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    48. list.Add(c) ' und fügen sie der liste der clients hinzu.
    49. Label1.Text += vbNewLine & (c.nick & " has joined.")
    50. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    52. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    53. t.Start(c)
    54. End While
    55. End Sub
    57. Private Sub ListenToConnection(ByVal con As Connection)
    58. Do
    59. Try
    60. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    61. Label1.Text += vbNewLine & con.nick & ": " & tmp
    62. SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
    64. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    65. list.Remove(con)
    66. Label1.Text += vbNewLine & con.nick & " has exit."
    67. Exit Do
    68. End Try
    69. Loop
    70. End Sub
    72. End Class


    Würde mich sehr Freuen könntet ihr mir helfen
    Mfg
    confix :D