Version, 8 Spalten, Icon variabel

app/DD_PM_WINDREAM/ClassInit.vb

@@ -70,8 +70,16 @@ Public Class ClassInit
             End If
 
             If CONFIG.Config.AppServerConfig <> String.Empty Then
+
+
                 Try
-                    _Client = New Client(LOGCONFIG, CONFIG.Config.AppServerConfig, 9000)
+                    Dim oSplit() = CONFIG.Config.AppServerConfig.ToString.Split(";")
+                    Dim oAppServer = oSplit(0)
+                    Dim oAppServerPort = 9000
+                    If oSplit.Length = 2 Then
+                        oAppServerPort = oSplit(1)
+                    End If
+                    _Client = New Client(LOGCONFIG, oAppServer, oAppServerPort)
                     If Not IsNothing(_Client) Then
                         If _Client.Connect() Then
                             APPSERVER_ACTIVE = True