This commit is contained in:
2020-12-30 14:11:48 +01:00
parent 01db5a2bcf
commit 525ea7e221
2 changed files with 15 additions and 6 deletions

View File

@@ -134,7 +134,7 @@ Public Class ClassInit
If ConfigManager.Config.AppServerConfig <> String.Empty Then
Try
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(";")
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(":")
Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then