MS windream StartStop on Startup

app/DD_PM_WINDREAM/ClassWindream_allgemein.vb

@@ -31,13 +31,13 @@ Public Class ClassWindream_allgemein
     ''' <remarks></remarks>
     Sub New()
         ' wenn ein Fehler bei der Initialisierung auftrat
-        If Not Me.Init() Then
-            ' Nachricht ausgeben
-            MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
+        'If Not Me.Init() Then
+        '    ' Nachricht ausgeben
+        '    MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
 
-            ' das Programm "abschießen"
-            Process.GetCurrentProcess.Kill()
-        End If
+        '    ' das Programm "abschießen"
+        '    Process.GetCurrentProcess.Kill()
+        'End If
     End Sub
 
 
@@ -46,7 +46,7 @@ Public Class ClassWindream_allgemein
     ''' </summary>
     ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
     ''' <remarks></remarks>
-    Public Function Init() As Boolean
+    Public Function Create_Session() As Boolean
         Try
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
@@ -120,7 +120,7 @@ Public Class ClassWindream_allgemein
 
         Catch ex As Exception
             If Err.Number = -2147220985 Then
-                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
+                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine &
                        "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
             Else
                 MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
@@ -129,7 +129,36 @@ Public Class ClassWindream_allgemein
         End Try
 
     End Function
+    Public Function Start_WMCC_andCo()
 
+        If WMSESSION_STARTSTOP_STARTUP = True Then
+            Try
+                Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
+                Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
+                owindreamControlCenter.StartVFSService(1)
+                owindreamIndexService.Start()
+                System.Threading.Thread.Sleep(1500)
+                Create_Session()
+            Catch ex As Exception
+                ClassLogger.Add("Error while starting up WMCC and IndexService: " & ex.Message, True)
+            End Try
+
+
+        End If
+    End Function
+    Public Function Stop_WMCC_andCo()
+        If WMSESSION_STARTSTOP_STARTUP = True Then
+            Try
+                Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
+                Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
+                owindreamControlCenter.StartVFSService(0)
+                owindreamIndexService.Shutdown()
+                owindreamControlCenter.ExitCC(0)
+            Catch ex As Exception
+                ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
+            End Try
+        End If
+    End Function
 #End Region