MS TestGui und Logger Daily

TestGUI/Form1.vb

@@ -1,7 +1,55 @@
 Imports Modules.Windream
+Imports Modules.Logging
 Public Class Form1
+    Dim MyLogger As Logger
+    Protected _windream As Windream
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        _windream = New Windream("W", True)
+        If _windream.CurrentSessionIsLoggedIn = True Then
+            MsgBox("Session created")
+        Else
+            MsgBox("No session created")
+        End If
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Process.Start(MyLogger.LogDirectory)
+    End Sub
 
-        Dim WM As New Windream("W", True)
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MyLogger = New Logger(Logger.PathType.AppData)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click
+        My.Settings.Save
+        Dim result As DataTable = _windream.GetValueforIndex(txtWMFile.Text, txtWMIndex.Text)
+        If result.Rows.Count = 0 Then
+            MsgBox("No result")
+        Else
+            txtWMValue.Text = result.Rows(0).Item(0).ToString
+        End If
+    End Sub
+
+    Private Sub IndexFile_Click(sender As Object, e As EventArgs) Handles IndexFile.Click
+        My.Settings.Save()
+        Dim arrValue() As String = Nothing
+        ReDim Preserve arrValue(0)
+        arrValue(0) = txtWMValue.Text
+        If _windream.NewIndexFile(txtWMFile.Text, txtWMIndex.Text, arrValue) = True Then
+            MsgBox("Success")
+        Else
+            MsgBox("no indexing")
+        End If
+
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+        My.Settings.Save()
+        Dim DTResults As DataTable = _windream.GetSearchDocuments(txtwmsearch.Text, "Dokument-ID")
+        If DTResults.Rows.Count > 0 Then
+            GridControl1.DataSource = DTResults
+        Else
+            GridControl1.DataSource = Nothing
+            GridView1.Columns.Clear()
+        End If
     End Sub
 End Class