From b943765a168223e36a27e827f53f9edf7796e6db Mon Sep 17 00:00:00 2001
From: OlgunR <OlgunR@DD-PC-ENT05N>
Date: Wed, 27 Aug 2025 13:02:14 +0200
Subject: [PATCH] Atuostart Dateiimport und Autostart Nachindexierung -
 frmDIHauptseite, frmNIHauptseite, frmStart, ModuleCURRENT

---
 ToolCollection/ModuleCURRENT.vb   |  3 +++
 ToolCollection/frmDIHauptseite.vb |  9 ++++++++-
 ToolCollection/frmNIHauptseite.vb | 16 ++++++++++------
 ToolCollection/frmStart.vb        | 22 ++++++++++++++++++++++
 4 files changed, 43 insertions(+), 7 deletions(-)

diff --git a/ToolCollection/ModuleCURRENT.vb b/ToolCollection/ModuleCURRENT.vb
index 4cf9284..83eea1a 100644
--- a/ToolCollection/ModuleCURRENT.vb
+++ b/ToolCollection/ModuleCURRENT.vb
@@ -6,6 +6,9 @@ Module ModuleCURRENT
 
     Public NI_OPENED As Boolean = False
 
+    Public AUTOSTART_FIM As Boolean = False
+    Public AUTOSTART_FIH As Boolean = False
+
     Public CURRENT_STATE As String = ""
 
     Public DI_PAGECOUNT As Integer
diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb
index d75155d..478bbe9 100644
--- a/ToolCollection/frmDIHauptseite.vb
+++ b/ToolCollection/frmDIHauptseite.vb
@@ -239,9 +239,16 @@ Public Class frmDIHauptseite
     Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         Formloaded = True
         Me.LoadProfilesInCombobox()
-        If My.Settings.DI_RUNNING = True Then
+        If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True Then
             Me.rbAutomatisch.Checked = True
             Automatischer_Durchlauf(False)
+            _Logger.Info("Dateiimport wird gestartet.")
+            If My.Settings.DI_RUNNING Then
+                _Logger.Info("My.Settings.DI_RUNNING = True")
+            End If
+            If AUTOSTART_FIM Then
+                _Logger.Info("AUTOSTART_FIM = True")
+            End If
         End If
     End Sub
 #End Region
diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb
index 719761d..a34a8b4 100644
--- a/ToolCollection/frmNIHauptseite.vb
+++ b/ToolCollection/frmNIHauptseite.vb
@@ -113,12 +113,17 @@ Public Class frmNIHauptseite
             _MyLogger.Debug = False
         End If
 
-        If My.Settings.NI_RUNNING = True Then
-
-            _Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True")
+        If My.Settings.NI_RUNNING = True Or AUTOSTART_FIH = True Then
             Start_NachindexierungThreads()
+            _Logger.Info("Nachindexierungslauf wird gestartet.")
+            If My.Settings.NI_RUNNING Then
+                _Logger.Info("My.Settings.NI_RUNNING = True")
+            End If
+            If AUTOSTART_FIH Then
+                _Logger.Info("AUTOSTART_FIH = True")
+            End If
         Else
-            _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
+                _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
         End If
     End Sub
     Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2818,7 +2823,6 @@ Public Class frmNIHauptseite
         Else
             TimerRefresh.Stop()
         End If
-        manuallyRun = True
         If Me.btnStartStop.Text = "Nachindexierung stoppen" Then
             If timRun.Enabled = True Then
                 timRun.Stop()
@@ -2826,7 +2830,7 @@ Public Class frmNIHauptseite
             Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
             Me.btnStartStop.Text = "Nachindexierung starten"
         Else
-            Me.btnStartStop.Text = "Nachindexierung stoppen"
+                Me.btnStartStop.Text = "Nachindexierung stoppen"
             Start_NachindexierungThreads()
         End If
         manuallyRun = False
diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb
index 9ec1a5c..21b2b49 100644
--- a/ToolCollection/frmStart.vb
+++ b/ToolCollection/frmStart.vb
@@ -133,6 +133,28 @@ Public Class frmStart
 
         _Instance = Me
 
+        'For Each arg As String In My.Application.CommandLineArgs
+        '    Select Case arg.ToLower()
+        '        Case "/startfim"
+        '            _Logger.Info("Autostart: Module FIM wird gestartet.")
+        '            ' Modul FIM starten oder Flag setzen
+        '            frmNIHauptseite.Start_NachindexierungThreads()
+        '        Case "/startfih"
+        '            _Logger.Info("Autostart: Module FIH wird gestartet.")
+        '            ' Modul FIH starten oder Flag setzen
+        '            frmDIHauptseite.Automatischer_Durchlauf(True)
+        '    End Select
+        'Next
+
+        For Each arg As String In My.Application.CommandLineArgs
+            Select Case arg.ToLower()
+                Case "/startfim"
+                    AUTOSTART_FIM = True 'Dateiimport
+                Case "/startfih"
+                    AUTOSTART_FIH = True 'Nachindexierung
+            End Select
+        Next
+
         Try
             'Delete_LogFiles()