MS Version 2.5

Dynamic Split of AppConfig.String

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -135,19 +135,26 @@ Public Class ClassInit
 
         If ConfigManager.Config.AppServerConfig <> String.Empty Then
             Try
-                Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(":")
+                Dim oDynSplitCharacter As String
+                If ConfigManager.Config.AppServerConfig.Contains(":") Then
+                    oDynSplitCharacter = ":"
+                ElseIf ConfigManager.Config.AppServerConfig.Contains(";") Then
+                    oDynSplitCharacter = ";"
+                End If
+                Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(oDynSplitCharacter)
                 Dim oAppServerAddress As String = oSplit(0)
-                Dim oAppServerPort As Integer = 9000
-                If oSplit.Length = 2 Then
-                    oAppServerPort = oSplit(1)
-                End If
-                _Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
-                If Not IsNothing(_Client) Then
-                    If _Client.Connect() Then
-                        APPSERVER_ACTIVE = True
-
+                    Dim oAppServerPort As Integer = 9000
+                    If oSplit.Length = 2 Then
+                        oAppServerPort = oSplit(1)
+                    End If
+                    _Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
+                    If Not IsNothing(_Client) Then
+                        If _Client.Connect() Then
+                            APPSERVER_ACTIVE = True
+                        Else
+                        Logger.Warn($"###!!!APPServer [{ConfigManager.Config.AppServerConfig.ToString}] could not be initialized ")
+                    End If
                     End If
-                End If
             Catch ex As Exception
                 Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
             End Try