jj: update test gui

TestGUI/Form1.vb

@@ -1,12 +1,34 @@
 Imports DigitalData.Modules.Windream
 Imports DigitalData.Modules.Logging
+Imports System.ComponentModel
 
 Public Class Form1
     Dim MyLogger As LogConfig
+    Shared Logger As NLog.Logger
+
     Protected _windream As Windream
+    Protected _windream2 As Windream2
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        _windream = New Windream("W", True)
-        If _windream.LoggedInSession = True Then
+        Dim serverName As String = TextBox1.Text
+
+        ' Windream.vb
+        '_windream = New Windream("W", True, False)
+
+        ' Windream2.vb
+        Try
+            _windream2 = New ConnectionBuilder(MyLogger.LogFactory).
+                WithDriveLetter("W").
+                WithSessionReconnect().
+                With64BitSupport().
+                WithServerName("sdd-vmx02-aps01").
+                Connect()
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Login failed!")
+            Exit Sub
+        End Try
+
+        If _windream2.LoggedInSession = True Then
             MsgBox("Session created")
         Else
             MsgBox("No session created")
@@ -17,7 +39,20 @@ Public Class Form1
     End Sub
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
-        MyLogger = New LogConfig(LogConfig.PathType.AppData,)
+        MyLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN")
+        Logger = MyLogger.LogFactory.GetCurrentClassLogger()
+
+
+        Dim MySecondLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN2")
+        Dim SecondLogger = MySecondLogger.LogFactory.GetCurrentClassLogger()
+
+        Logger.Warn("WANRING!!!")
+        Logger.Info("INFO!!!")
+        Logger.Debug("DEBUG!!!")
+
+        SecondLogger.Warn("WANRING!!!")
+        SecondLogger.Info("INFO!!!")
+        SecondLogger.Debug("DEBUG!!!")
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click
@@ -86,4 +121,24 @@ Public Class Form1
         ComboBox1.DroppedDown = True
 
     End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim bw1 As New BackgroundWorker
+        Dim bw2 As New BackgroundWorker
+
+        AddHandler bw1.DoWork, Sub()
+                                   Dim config1 As New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "TEST1")
+                                   Dim logger As NLog.Logger = config1.LogFactory.GetCurrentClassLogger()
+
+                                   logger.Warn("WANRING!!!")
+                                   logger.Info("INFO!!!")
+                                   logger.Debug("DEBUG!!!")
+
+                                   Console.WriteLine("This is logger 1 calling!")
+                                   Console.WriteLine(config1.LogFile)
+                               End Sub
+
+
+        bw1.RunWorkerAsync()
+    End Sub
 End Class