Lan Chat ausloggen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von beate.

    Lan Chat ausloggen

    Hallo Leute
    ich habe mir ein Lan chat erstellt :

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Public Class Form1
    4. Dim clientSocket As New System.Net.Sockets.TcpClient()
    5. Dim serverStream As NetworkStream
    6. Dim readData As String
    7. Dim infiniteCounter As Integer
    9. Private Sub Button1_Click(ByVal sender As System.Object, _
    10. ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim outStream As Byte() = _
    12. System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$")
    13. serverStream.Write(outStream, 0, outStream.Length)
    14. serverStream.Flush()
    15. End Sub
    17. Private Sub msg()
    18. If Me.InvokeRequired Then
    19. Me.Invoke(New MethodInvoker(AddressOf msg))
    20. Else
    21. TextBox1.Text = TextBox1.Text + _
    22. Environment.NewLine + " >> " + readData
    23. End If
    24. End Sub
    26. Private Sub Button2_Click(ByVal sender As System.Object, _
    27. ByVal e As System.EventArgs) Handles Button2.Click
    28. readData = "Conected to Chat Server ..."
    29. msg()
    30. clientSocket.Connect("127.0.0.1", 8888)
    31. 'Label1.Text = "Client Socket Program - Server Connected ..."
    32. serverStream = clientSocket.GetStream()
    34. Dim outStream As Byte() = _
    35. System.Text.Encoding.ASCII.GetBytes(TextBox3.Text + "$")
    36. serverStream.Write(outStream, 0, outStream.Length)
    37. serverStream.Flush()
    39. Dim ctThread As Threading.Thread = _
    40. New Threading.Thread(AddressOf getMessage)
    41. ctThread.Start()
    42. End Sub
    44. Private Sub getMessage()
    45. For infiniteCounter = 1 To 2
    46. infiniteCounter = 1
    47. serverStream = clientSocket.GetStream()
    48. Dim buffSize As Integer
    49. Dim inStream(10024) As Byte
    50. buffSize = clientSocket.ReceiveBufferSize
    51. serverStream.Read(inStream, 0, buffSize)
    52. Dim returndata As String = _
    53. System.Text.Encoding.ASCII.GetString(inStream)
    54. readData = "" + returndata
    55. msg()
    56. Next
    57. End Sub
    59. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    60. Timer1.Enabled = True
    61. End Sub
    63. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    64. If TextBox1.Text.Contains("spam") Then
    65. MsgBox("lol")
    66. End If
    67. End Sub
    68. End Class


    und der server :

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Module Module1
    4. Dim clientsList As New Hashtable
    5. Sub Main()
    6. Dim serverSocket As New TcpListener(8888)
    7. Dim clientSocket As TcpClient
    8. Dim counter As Integer
    10. serverSocket.Start()
    11. msg("Chat Server Started ....")
    12. counter = 0
    14. While (True)
    15. counter += 1
    16. clientSocket = serverSocket.AcceptTcpClient()
    18. Dim bytesFrom(10024) As Byte
    19. Dim dataFromClient As String
    21. Dim networkStream As NetworkStream = _
    22. clientSocket.GetStream()
    23. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    24. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    25. dataFromClient = _
    26. dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    28. clientsList(dataFromClient) = clientSocket
    30. broadcast(dataFromClient + " Joined ", dataFromClient, False)
    32. msg(dataFromClient + " Joined chat room ")
    33. Dim client As New handleClinet
    34. client.startClient(clientSocket, dataFromClient, clientsList)
    35. End While
    37. clientSocket.Close()
    38. serverSocket.Stop()
    39. msg("exit")
    40. Console.ReadLine()
    41. End Sub
    43. Sub msg(ByVal mesg As String)
    44. mesg.Trim()
    45. Console.WriteLine(" >> " + mesg)
    46. End Sub
    47. Private Sub broadcast(ByVal msg As String, _
    48. ByVal uName As String, ByVal flag As Boolean)
    49. Dim Item As DictionaryEntry
    50. For Each Item In clientsList
    51. Dim broadcastSocket As TcpClient
    52. broadcastSocket = CType(Item.Value, TcpClient)
    53. Dim broadcastStream As NetworkStream = _
    54. broadcastSocket.GetStream()
    55. Dim broadcastBytes As [Byte]()
    57. If flag = True Then
    58. broadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg)
    59. Else
    60. broadcastBytes = Encoding.ASCII.GetBytes(msg)
    61. End If
    63. broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)
    64. broadcastStream.Flush()
    65. Next
    66. End Sub
    68. Public Class handleClinet
    69. Dim clientSocket As TcpClient
    70. Dim clNo As String
    71. Dim clientsList As Hashtable
    73. Public Sub startClient(ByVal inClientSocket As TcpClient, _
    74. ByVal clineNo As String, ByVal cList As Hashtable)
    75. Me.clientSocket = inClientSocket
    76. Me.clNo = clineNo
    77. Me.clientsList = cList
    78. Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
    79. ctThread.Start()
    80. End Sub
    82. Private Sub doChat()
    83. 'Dim infiniteCounter As Integer
    84. Dim requestCount As Integer
    85. Dim bytesFrom(10024) As Byte
    86. Dim dataFromClient As String
    87. Dim sendBytes As [Byte]()
    88. Dim serverResponse As String
    89. Dim rCount As String
    90. requestCount = 0
    92. While (True)
    93. Try
    94. requestCount = requestCount + 1
    95. Dim networkStream As NetworkStream = _
    96. clientSocket.GetStream()
    97. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    98. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    99. dataFromClient = _
    100. dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    101. msg("From client - " + clNo + " : " + dataFromClient)
    102. rCount = Convert.ToString(requestCount)
    104. broadcast(dataFromClient, clNo, True)
    105. Catch ex As Exception
    106. MsgBox(ex.ToString)
    107. End Try
    108. End While
    109. End Sub
    111. End Class
    112. End Module



    so nun würde ich gern einen button haben, wenn ich drauf klicke das dann ausgeloggt wird und nicht gleich der server stirbt xD

    danke für antworten JEDER art

    xD Ich kann Kritik ab :D


    Edit : Habe ein wenig rumgespielt weil ich meine schwester ärgern will deshalb das mit textbox1.text.contains("spam"9

Facebook
Telefonspende