Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim ipend As Net.IPEndPoint = Client.Client.RemoteEndPoint
If Not ipend Is Nothing Then c.IP = ipend.Address.ToString

Visual Basic Quellcode

Private Sub Form1_leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FormClosed
 client.Close()
 stream.Close()
 streamw.Close()
 streamr.Close()
 Application.Exit()
 End Sub

Visual Basic Quellcode

list.Remove(con)
Console.WriteLine(con.nick & "wurde gekickt.")

Visual Basic Quellcode

  Private Sub Sendtoperson(ByVal s As String, ByVal Nick As String)
    	For Each Connection In list
        	Try
            	If Connection.nick = Nick Then
                	Connection.streamw.WriteLine(s)
                	Connection.streamw.Flush()
            	End If
        	Catch
        	End Try
    	Next
	End Sub

Visual Basic Quellcode

If tmp.StartsWith("/kick") Then
                	Dim Kickname As String = tmp.Remove(0, 6)
                	For Each Connection In list
                    	If Connection.nick = Kickname Then
                            	SendToAllClients("--> " & Kickname & " has kicked.")
                            	Sendtoperson("/kicked", Kickname)
                            	Console.WriteLine(Kickname & " has kicked!")
                            	list.Remove(Connection)
                            	Exit For
                    	End If
                	Next

Visual Basic Quellcode

If s.StartsWith("/kicked") Then
        	client.Close()
        	stream.Close()
        	streamr.Close()
        	streamw.Close()
        	MsgBox("You are Kicked")
        	Application.Exit()