MS18.10.2017

app/DD-Record-Organizer/frmMain.vb

@@ -14,7 +14,7 @@ Public Class frmMain
 
     Dim strIPAddress As String
     Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
-
+    Public Shared TIMER_INACTIVITY As New System.Windows.Forms.Timer
     Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
         Try
             If ClassFolderWatcher.NEW_FILES = False Then Exit Sub
@@ -600,6 +600,16 @@ Public Class frmMain
                 MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation)
                 Me.Close()
             End If
+            Try
+                If USER_IS_ADMIN = False Or AUTO_LOGOUT_USER > 0 Then
+                    TIMER_INACTIVITY.Interval = AUTO_LOGOUT_USER
+                    'TIMER_INACTIVITY.Enabled = True
+                    'AddHandler TIMER_INACTIVITY.Tick, AddressOf Scan_TickHandler
+                End If
+            Catch ex As Exception
+                ClassHelper.InsertEssential_Log(USER_GUID, "USER_ID", "Unexpected Error in AUOTP_LOGOUT_USER: " & ex.Message)
+            End Try
+
         Catch ex As Exception
             MsgBox("Unexpected Error in FormShown: " & ex.Message, MsgBoxStyle.Critical)
         End Try