Public lo_socket As New TcpListener(Login_configs.LoginPort)
    Public mreServer As New System.Threading.ManualResetEvent(True)
    Public ListenSocket As Socket
 
Sub Main()
Log.Write(Log.me_typ.welcome, me1)
        Try
            Login_configs.reload()
        Catch ex As Exception
            Log.Write(Log.me_typ.fatal, "")
 
        End Try
        Try
            char_configs.reload()
        Catch ex As Exception
            Log.Write(Log.me_typ.fatal, ex.Message)
        End Try
        Try
            sql_configs.reload()
        Catch ex As Exception
            Log.Write(Log.me_typ.fatal, "")
        End Try
        Log.Write(Log.me_typ.info, "Alle Ini Configs wurden geladen ...")
        Log.Write(Log.me_typ.info, Login_configs.LoginPort & " ist der Login" & _
          "Port ?")
        Console.In.Read() 'Bis hier läuft alles Fehler frei o.o 
 
        Dim login_conf As New IniFile("login_config.ini")
        Dim check_lo_port As String
        check_lo_port = login_conf.ReadValue("serverport=", "23000")
        Try
            Dim lo_socket As New TcpListener(Login_configs.LoginPort)
            Try
                Server.Refresh()
                Log.Write(Log.me_typ.info, "Vorgang 1 erledigt ....")
                Console.Write(Server.serversinfo)
                Console.Beep()
            Catch ex As Exception
                Log.Write(Log.me_typ.error, ex.Message)
            End Try
 
 
            lo_socket.Start()
            Log.Write(Log.me_typ.info, "Server Listen on Port " & _
              Login_configs.LoginPort)
            Console.Beep()
            While True
                mreServer.Reset()
                lo_socket.BeginAcceptSocket(New AsyncCallback(AddressOf _
                  lo_client.AddClient), Nothing)
 
            End While
        Catch ex As Exception
 
            Log.Write(Log.me_typ.fatal, ex.Message)
            lo_socket.Stop()
            Console.In.Read()
 
        End Try
  End Sub

 Public Shared Sub Refresh()
        Dim cluster As New ClusterInfo()
        Dim id As String = Module1.char_configs.charServerID
        Dim ip As String = Module1.char_configs.char_IP
        If ip Is Nothing Then
            ip = "127.0.0.1"
        End If
 
        Dim name As String = Module1.char_configs.char_ServerName
        If name Is Nothing Then
            Log.Write(Log.me_typ.notice, "Cluster : " & id & " (IP: " & ip & ")" & _
              "hat keinen Namen.")
            name = "[UNNAMED]"
        End If
 
        Dim servers As ArrayList = ArrayList.Synchronized(New ArrayList())
        cluster.id = id
        cluster.ip = ip
        cluster.name = name
        cluster.servers = servers
        Dim ii As Integer = 0
        While True
            Dim server__1 As New ServerInfo()
            Dim svname = Module1.Login_configs.LOServerName
            If svname Is Nothing Then
                svname = "xasuri"
            End If
 
            server__1.name = svname
            server__1.svid = ii + 1
            server__1.clid = id
 
            server__1.capacity = Module1.Login_configs.LOMAXConnection
            cluster.servers.Add(server__1)
            ii += 1
        End While
        Try
            serversinfo.Add(cluster)
        Catch ex As Exception
 
        End Try
 
 
 
        Log.Write(Log.me_typ.info, "Server Konfigurationen sind vom ({0}).", _
          DateTime.Now)
 
    End Sub