2.10.4.0 - Refactor: remove license mgmt, add password crypto class

Replaced all license management classes (ClassLicense, ClassLicenses, ClassLicenseManager) with a new ClassPasswordCrypto for password encryption/decryption using Rijndael (AES). Updated all usages to call EncodePassword/DecodePassword instead of license key methods. Removed obsolete license-related code and files from the project. Incremented assembly version to 2.10.4.0. Cleaned up imports and updated the project file to reflect these changes. No license logic remains; only password crypto is handled.

ToolCollection/ClassActiveDirectory.vb

@@ -1,7 +1,7 @@
 Imports System.DirectoryServices
 Imports DigitalData.Modules.Logging
 Public Class ClassActiveDirectory
-    Public Shared licenseManager As ClassLicenseManager = Nothing
+    Public Shared passwordCrypto As ClassPasswordCrypto = Nothing
     Public Shared ErgebnisAD As String()
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
     Public Shared Function Test_Connect(SEARCH_Filter As String, Property2Load As String, Domain As String, User As String, PW As String)
@@ -95,8 +95,8 @@ Public Class ClassActiveDirectory
             End If
 
 
-            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
-            Dim PWDecode As String = licenseManager.DecodeLicenseKey(PW)
+            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
+            Dim PWDecode As String = passwordCrypto.DecodePassword(PW)
             Dim objDirectoryEntry As DirectoryEntry = New DirectoryEntry(Domain)
             If PW <> String.Empty And User <> String.Empty Then
                 objDirectoryEntry.Username = User

ToolCollection/ClassLicense.vb

@@ -1,104 +0,0 @@
-Public Class ClassLicense
-
-    Private _modulename As String
-    Private _expires As Date
-    Private _Typ As String
-    Private _anzProf As String
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Konstruktor der Lizenz
-    ''' </summary>
-    ''' <param name="modulename">Name des Moduls</param>
-    ''' <param name="expires">Gültigkeitsdatum der Lizenz</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal modulename As String, ByVal expires As Date, ByVal _type As String, ByVal _anzprofile As String)
-        Me._modulename = modulename
-        Me._expires = expires
-        Me._Typ = _type
-        Me._anzProf = _anzprofile
-    End Sub
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Liefert oder setzt den Namen des Moduls für diese Lizenz
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Modulename() As String
-        Get
-            Return Me._modulename
-        End Get
-        Set(ByVal value As String)
-            Me._modulename = value
-        End Set
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt das Gültigkeitsdatum der Lizenz für das Modul
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Expires() As Date
-        Get
-            Return Me._expires
-        End Get
-        Set(ByVal value As Date)
-            Me._expires = value
-        End Set
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert ob die Lizenz schon abgelaufen ist
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property IsExpired()
-        Get
-            If Date.Today > Me._expires Then
-                Return True
-            Else
-                Return False
-            End If
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' Liefert den Typend er Lizenz
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Type() As String
-        Get
-            Return Me._Typ
-        End Get
-        Set(ByVal value As String)
-            Me._Typ = value
-        End Set
-    End Property
-    ''' <summary>
-    ''' Liefert die Anzahl der Profile
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Anz_Profile() As String
-        Get
-            Return Me._anzProf
-        End Get
-        Set(ByVal value As String)
-            Me._anzProf = value
-        End Set
-    End Property
-
-End Class

ToolCollection/ClassLicenses.vb

@@ -1,149 +0,0 @@
-Public Class ClassLicenses
-
-    Private _licenses() As ClassLicense
-    Private _machine As String
-    Private _company As String
-    Private _WDLizenz As String
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Konstruktor für die Lizenzen-Sammlung
-    ''' </summary>
-    ''' <param name="licenseStringArray">In Array übertragene Lizenzinformationen</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal licenseStringArray(,) As String)
-        Try
-            If licenseStringArray IsNot Nothing Then
-                Dim license1() As String = licenseStringArray(0, 1).Split("#")
-
-                If license1.Length > 1 Then
-                    Me._machine = license1(1)
-                Else
-                    Me._machine = "all"
-                End If
-                Me._company = license1(0) 'licenseStringArray(0, 1)
-                frmStart._company = Me._company
-
-                Dim i As Integer
-                For i = 1 To licenseStringArray.GetLength(0) - 2   ' minus 2, weil GetLength nicht null-basiert ist und das erste Element Firma ist
-                    Dim _date As Date
-                    Dim anzprof As String = licenseStringArray(i, 3)
-                    If anzprof.ToLower = "unlimited" Then
-                        anzprof = 99
-                    End If
-                    Try
-                        _date = CDate(licenseStringArray(i, 1))
-                    Catch ex As Exception
-
-                        If licenseStringArray(i, 1).ToString.EndsWith("2099") Then
-                            _date = "2099-12-31"
-                        Else
-                            MsgBox(ex.Message & vbNewLine & Environment.OSVersion.ToString, MsgBoxStyle.Critical)
-                        End If
-
-                    End Try
-
-                    Me.Add(licenseStringArray(i, 0), _date, licenseStringArray(i, 2), anzprof)
-                Next
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler bei Auslesen der Licenses: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-      
-    End Sub
-
-
-    ''' <summary>
-    ''' Fügt der Lizenz-Sammlung eine Lizenz hinzu
-    ''' </summary>
-    ''' <param name="modulename">Name des Moduls, für das eine Lizenz angelegt werden soll</param>
-    ''' <param name="expires">Datum der Gültigkeit der Lizenz</param>
-    ''' <remarks></remarks>
-    Public Sub Add(ByVal modulename As String, ByVal expires As Date, ByVal type As String, ByVal anzprof As String)
-
-        If Me._licenses IsNot Nothing Then
-            ReDim Preserve Me._licenses(Me._licenses.Length)
-        Else
-            ReDim Preserve Me._licenses(0)
-        End If
-
-        Me._licenses(Me._licenses.Length - 1) = New ClassLicense(modulename, expires, type, anzprof)
-    End Sub
-
-
-    ''' <summary>
-    ''' Liefert eine Lizenz an Hand des Modulnamens
-    ''' </summary>
-    ''' <param name="modulename">Name des zu suchenden Moduls</param>
-    ''' <returns>liefert ein Lizenzobjekt</returns>
-    ''' <remarks></remarks>
-    Public Function GetLicense(ByVal modulename As String) As ClassLicense
-        If Me._licenses IsNot Nothing Then
-            For Each license As ClassLicense In Me._licenses
-                If license.Modulename = modulename Then
-                    Return license
-                End If
-            Next
-        End If
-
-        Return Nothing
-    End Function
-
-
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-
-    ''' <summary>
-    ''' liefert eine Sammlung von Lizenzobjekten 
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Licenses() As ClassLicense()
-        Get
-            Return Me._licenses
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' liefert eine Lizenz an Hand des Modulnamens
-    ''' </summary>
-    ''' <param name="modulename">Name des zu suchenden Moduls</param>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property License(ByVal modulename As String) As ClassLicense
-        Get
-            Return Me.GetLicense(modulename)
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt den Firmennamen des Lizenzeigentümers
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Company() As String
-        Get
-            Return Me._company
-        End Get
-        Set(ByVal value As String)
-            Me._company = value
-        End Set
-    End Property
-    Public Property machine() As String
-        Get
-            Return Me._machine
-        End Get
-        Set(ByVal value As String)
-            Me._machine = value
-        End Set
-    End Property
-
-End Class

ToolCollection/ClassNIProfile.vb

@@ -14,7 +14,6 @@ Public Class ClassNIProfile
         xmlConfigFile = oConfigPath
         ClassNIProfile.LoadFromXmlFile()
         ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
-        _windream.Init()
     End Sub
     Public Shared Function IsXmlAccessable() As Boolean
         Dim xml As New Xml.XmlDocument

ToolCollection/ClassPasswordCrypto.vb

@@ -1,34 +1,26 @@
-Imports System.Text
-Imports System.Security.Cryptography
-Imports System.Collections.ObjectModel
+Imports System.Security.Cryptography
+Imports System.Text
 
-Public Class ClassLicenseManager
+Public Class ClassPasswordCrypto
 
     Private _password As String
-    Private _key As String
-    Public Shared _licenses As ClassLicenses
 
-    Public licenseString As String
-    Public licenseStringArray(,) As String
+    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
 
+    ''' <summary>
+    ''' Liefert das Passwort zum Entschlüsseln des Lizenzschlüssels
+    ''' </summary>
+    ''' <value></value>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public ReadOnly Property Password() As String
+        Get
+            Return Me._password
+        End Get
+    End Property
 
     ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
 
-    ''' <summary>
-    ''' Konstruktor für den Lizenz-Manager
-    ''' </summary>
-    ''' <param name="password">Passwort zum Entschlüsseln des Lizenzkeys</param>
-    ''' <param name="key">verschlüsselter Lizenzkey</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal password As String, ByVal key As String)
-        Me._password = password
-        Me._key = key
-
-        Me.licenseString = Me.DecodeLicenseKey(Me._key)
-        Me.licenseStringArray = Me.SplitLicenseString(Me.licenseString)
-
-        Me.LoadLicenses()
-    End Sub
     ''' <summary>
     ''' Konstruktor für den Lizenz-Manager ohne License load
     ''' </summary>
@@ -37,14 +29,6 @@ Public Class ClassLicenseManager
     Sub New(ByVal password As String)
         Me._password = password
     End Sub
-    ''' <summary>
-    ''' Lädt alle Lizenzen aus dem Lizenz-Array
-    ''' </summary>
-    ''' <remarks></remarks>
-    Public Sub LoadLicenses()
-        ClassLicenseManager._licenses = New ClassLicenses(Me.licenseStringArray)
-    End Sub
-
 
     ''' <summary>
     ''' Codiert eine Zeichenkette
@@ -53,7 +37,7 @@ Public Class ClassLicenseManager
     ''' <param name="password">das zur Verschlüsselung verwendete Passwort</param>
     ''' <returns>liefert eine verschlüsselte Zeichenkette</returns>
     ''' <remarks></remarks>
-    Public Function EncodeLicenseKey(ByVal str As String, ByVal password As String)
+    Public Function EncodePassword(ByVal str As String, ByVal password As String)
         Dim rd As New RijndaelManaged
 
         Dim md5 As New MD5CryptoServiceProvider
@@ -69,7 +53,7 @@ Public Class ClassLicenseManager
         ms.Write(iv, 0, iv.Length)
 
         Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
-        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Str)
+        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(str)
 
         cs.Write(data, 0, data.Length)
         cs.FlushFinalBlock()
@@ -82,14 +66,13 @@ Public Class ClassLicenseManager
         Return result
     End Function
 
-
     ''' <summary>
     ''' Decodiert den verschlüsselten Lizenzkey
     ''' </summary>
     ''' <param name="licenseCodeStr">verschlüsselter Lizenzkey</param>
     ''' <returns></returns>
     ''' <remarks></remarks>
-    Public Function DecodeLicenseKey(ByVal licenseCodeStr As String)
+    Public Function DecodePassword(ByVal licenseCodeStr As String)
         Try
             Dim rd As New RijndaelManaged
             Dim rijndaelIvLength As Integer = 16
@@ -121,7 +104,6 @@ Public Class ClassLicenseManager
 
             Dim i As Integer = 0
 
-
             Try
 
                 i = cs.Read(data, 0, data.Length)
@@ -143,95 +125,4 @@ Public Class ClassLicenseManager
         Return Nothing
     End Function
 
-
-    ''' <summary>
-    ''' Zerlegt den entschlüsselten Lizenzkey
-    ''' </summary>
-    ''' <param name="licenseStr">entschlüsselter Lizenzkey</param>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Function SplitLicenseString(ByVal licenseStr As String) As String(,)
-
-        Try
-            If licenseStr IsNot Nothing Then
-                Dim licenseTemp() As String = licenseStr.Split(";")
-
-                Dim licenses(licenseTemp.Length, 3) As String
-
-                Dim i As Integer = 0
-
-                If licenseTemp IsNot Nothing Then
-                    For Each lizenz As String In licenseTemp
-
-                        Dim temp() = lizenz.Split(":")
-
-                        licenses(i, 0) = temp(0)
-                        licenses(i, 1) = temp(1)
-                        If temp.Length > 2 Then
-                            licenses(i, 2) = temp(2)
-                            licenses(i, 3) = temp(3)
-                            Dim expires As Date
-                            Date.TryParse(licenses(i, 1), expires)
-                        End If
-                        
-                       
-                        i += 1
-                    Next
-
-                    Return licenses
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler in SplitLicenseString: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-        Return Nothing
-
-    End Function
-
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Liefert das Passwort zum Entschlüsseln des Lizenzschlüssels
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Password() As String
-        Get
-            Return Me._password
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert eine Sammlung von Lizenzobjekten
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Licenses() As ClassLicenses
-        Get
-            Return ClassLicenseManager._licenses
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt den Lizenzschlüssel
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Key() As String
-        Get
-            Return Me._key
-        End Get
-        Set(ByVal value As String)
-            Me._key = value
-        End Set
-    End Property
-
 End Class

ToolCollection/ClassWD_Rechte.vb

@@ -393,13 +393,13 @@ Public Class ClassWD_Rechte
     End Function
     Private Function WorkRight(_methode As String, createdFolder As String, _form As Boolean, oWMObject As WINDREAMLib.WMObject, deleteRights As Boolean, folgeRegel As Boolean, _UserOrGroup As String,
                                _GruppenUserRecht As String, _lRight As Integer) As Boolean
+        Dim Object2Change As WINDREAMLib.WMObject = Nothing
         Try
             Dim _Erfolgreich As Boolean = True
             Dim UserGroupRelation
             Dim UserOrGroup
             Dim oGroup
             Dim oUSer
-            Dim Object2Change As WINDREAMLib.WMObject
             If _methode = "AddRightFolder" Then
                 Object2Change = oWMObject.aParentWMObject
             ElseIf _methode = "AddRightCreatedFolder" Then
@@ -731,6 +731,13 @@ Public Class ClassWD_Rechte
             Return _Erfolgreich
         Catch ex As Exception
             _Logger.Error(ex)
+            Try
+                If Object2Change IsNot Nothing AndAlso Object2Change.aLocked Then
+                    Object2Change.unlock()
+                    _Logger.Debug("WorkRight Catch: Object2Change unlocked after error.")
+                End If
+            Catch
+            End Try
             Return False
         End Try
     End Function

ToolCollection/ClassWindream_allgemein.vb

@@ -49,7 +49,20 @@ Public Class ClassWindream_allgemein
             ' Process.GetCurrentProcess.Kill()
         End If
     End Sub
+    Private Sub LogoutCurrentSession()
+        If Not IsNothing(CURRENToWMSession) Then
+            Try
+                CURRENToWMSession.Logout()
+            Catch
+                ' ignorieren – Session war evtl. schon tot
+            End Try
+            CURRENToWMSession = Nothing
+        End If
+    End Sub
+
     Public Function GetWMSessionAsUser(Domain, ServerName, UserName, Password)
+        LogoutCurrentSession()
+
         Dim SessionAsUser
         Dim aConnect, aUserId, aSession
         On Error Resume Next
@@ -95,10 +108,24 @@ Public Class ClassWindream_allgemein
             SessionAsUser = aSession
             If aSession.aLoggedin = True Then
                 _Logger.Debug($"#Impersonate login [{UserName}] successfull!")
-                Return SessionAsUser
+                Me.oWMSession = aSession
+                CURRENToWMSession = aSession
+                CURRENToWMSession_Created = Now
+                Me.oObjekttypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                If Err.Number <> 0 Then
+                    _Logger.Warn("Fehler beim Laden der Objekttypen nach Impersonate-Login: " & Err.Description)
+                    Err.Clear()
+                End If
+                Me.oOrdnerTypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
+                If Err.Number <> 0 Then
+                    _Logger.Warn("Fehler beim Laden der Ordnertypen nach Impersonate-Login: " & Err.Description)
+                    Err.Clear()
+                End If
+                Return True
             End If
 
         End If
+        Return False
     End Function
 
     ''' <summary>
@@ -107,25 +134,30 @@ Public Class ClassWindream_allgemein
     ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
     ''' <remarks></remarks>
     Public Function Init() As Boolean
-        Dim oHourDifference As Integer
-        oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
 
-        If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
+        If IsNothing(CURRENToWMSession) OrElse Not CBool(CURRENToWMSession.aLoggedin) Then
             If WMLOGIN_DOMAIN <> String.Empty Then
-                GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
+                Return GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
             Else
-                GetWMSession()
+                Return GetWMSession()
             End If
 
         Else
             If My.Settings.vLogErrorsonly = False Then _Logger.Debug("WMSession already created!")
             oWMSession = CURRENToWMSession
+            If IsNothing(oObjekttypen) Then
+                oObjekttypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+            End If
+            If IsNothing(oOrdnerTypen) Then
+                oOrdnerTypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
+            End If
             Return True
         End If
 
-
     End Function
     Private Function GetWMSession()
+        LogoutCurrentSession()
+
         Try
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
@@ -361,7 +393,7 @@ Public Class ClassWindream_allgemein
             Dim oIndexAttributes As WMObjectRelation
             Dim oIndexAttribute As WMObject
             Dim oIndex As WMObject
-            Dim oRelProperties As WMObjectRelationClass
+            Dim oRelProperties As Object
 
             ' den Objekttyp laden
             oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
@@ -419,7 +451,7 @@ Public Class ClassWindream_allgemein
             Dim oIndexAttributes As WMObjectRelation
             Dim oIndexAttribute As WMObject
             Dim oIndex As WMObject
-            Dim oRelProperties As WMObjectRelationClass
+            Dim oRelProperties As Object
             For Each OrdnerType In Me.oOrdnerTypen
                 If OrdnerType.aName = Ordnertyp Then
                     oOrdnerType = OrdnerType
@@ -530,6 +562,9 @@ Public Class ClassWindream_allgemein
     ''' <remarks></remarks>
     Public Function IsLoggedIn() As Boolean
         Try
+            If IsNothing(Me.oWMSession) Then
+                Return False
+            End If
             Return Me.oWMSession.aLoggedin
         Catch ex As Exception
             clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message)

ToolCollection/ModuleSettings.vb

@@ -1,4 +1,3 @@
 Module ModuleSettings
-    Public LICENSE_MoveRename As Boolean
-    Public LICENSE_AD As Boolean
+
 End Module

ToolCollection/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.9.9.0")>
+<Assembly: AssemblyVersion("2.10.4.0")>
 <Assembly: AssemblyFileVersion("2.9.9.0")>

ToolCollection/My Project/Settings.Designer.vb

@@ -54,19 +54,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property licensekey() As String
-            Get
-                Return CType(Me("licensekey"),String)
-            End Get
-            Set
-                Me("licensekey") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False"),  _

ToolCollection/My Project/Settings.settings

@@ -2,9 +2,6 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
   <Settings>
-    <Setting Name="licensekey" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
     <Setting Name="DIDurchlaufRunning" Roaming="true" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>

ToolCollection/ToolCollection.vbproj

@@ -30,6 +30,8 @@
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
     <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
     <PlatformTarget>x86</PlatformTarget>
@@ -114,24 +116,23 @@
       <HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.SqlServer.dll</HintPath>
     </Reference>
     <Reference Include="Interop.Scripting">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.Scripting.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.Scripting.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="Interop.WINDREAMLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
+    <Reference Include="Interop.WINDREAMLib">
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WINDREAMLib.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WMOBRWSLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOBRWSLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOBRWSLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WMOSRCHLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOSRCHLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOSRCHLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WMOTOOLLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
@@ -139,7 +140,7 @@
       <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+      <HintPath>M:\App&amp;Service\0 Partner Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -148,15 +149,8 @@
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
     <Reference Include="System.Data.OracleClient" />
-    <Reference Include="System.Data.SQLite">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\System.Data.SQLite.dll</HintPath>
-    </Reference>
-    <Reference Include="System.Data.SQLite.EF6, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
-      <HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.EF6.dll</HintPath>
-    </Reference>
-    <Reference Include="System.Data.SQLite.Linq, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
-      <Private>True</Private>
-      <HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.Linq.dll</HintPath>
+    <Reference Include="System.Data.SQLite, Version=1.0.119.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
+      <HintPath>..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\lib\net46\System.Data.SQLite.dll</HintPath>
     </Reference>
     <Reference Include="System.Deployment" />
     <Reference Include="System.DirectoryServices" />
@@ -197,9 +191,7 @@
     <Compile Include="ClassDIRegel.vb" />
     <Compile Include="ClassDIRegeln.vb" />
     <Compile Include="ClassLDAP.vb" />
-    <Compile Include="ClassLicense.vb" />
-    <Compile Include="ClassLicenseManager.vb" />
-    <Compile Include="ClassLicenses.vb" />
+    <Compile Include="ClassPasswordCrypto.vb" />
     <Compile Include="ClassLoggerDI.vb" />
     <Compile Include="ClassLoggerService.vb" />
     <Compile Include="ClassMI_Profile.vb" />
@@ -367,12 +359,6 @@
     <Compile Include="frmNI_SQLTest.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmLizenzmanager.Designer.vb">
-      <DependentUpon>frmLizenzmanager.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLizenzmanager.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmNIProfileigenschaften.Designer.vb">
       <DependentUpon>frmNIProfileigenschaften.vb</DependentUpon>
     </Compile>
@@ -514,9 +500,6 @@
     <EmbeddedResource Include="frmNI_SQLTest.resx">
       <DependentUpon>frmNI_SQLTest.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmLizenzmanager.resx">
-      <DependentUpon>frmLizenzmanager.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmNIProfileigenschaften.resx">
       <DependentUpon>frmNIProfileigenschaften.vb</DependentUpon>
     </EmbeddedResource>
@@ -830,6 +813,7 @@
     <None Include="Resources\database_refresh.png" />
     <None Include="Resources\arrow_up.png" />
     <None Include="Resources\bullet_arrow_down1.png" />
+    <Content Include="Interop.Scripting.dll" />
     <Content Include="Interop.WINDREAMLib.dll" />
     <None Include="Resources\action_add_16xMD.png" />
     <None Include="Resources\folder_Closed_16xMD.png" />
@@ -837,12 +821,6 @@
     <None Include="Resources\CheckConstraints_5634.png" />
     <Content Include="modDateiimportConfig.xml" />
     <Content Include="modNachindexierungConfig.xml" />
-    <Content Include="x64\SQLite.Interop.dll">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
-    <Content Include="x86\SQLite.Interop.dll">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
     <None Include="Resources\user_suit.png" />
     <None Include="Resources\user.png" />
     <None Include="Resources\rosette.png" />
@@ -888,6 +866,13 @@
     <Folder Include="Log\" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets" Condition="Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them.  For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets'))" />
+  </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

ToolCollection/app.config

@@ -36,9 +36,6 @@
   </system.diagnostics>
   <userSettings>
     <ToolCollection.My.MySettings>
-      <setting name="licensekey" serializeAs="String">
-        <value />
-      </setting>
       <setting name="DIDurchlaufRunning" serializeAs="String">
         <value>False</value>
       </setting>
@@ -239,14 +236,7 @@
       <provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
     </providers>
   </entityFramework>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".Net Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".Net Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
+  
   <runtime>
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>

ToolCollection/clsNIFulltext.vb

@@ -87,7 +87,7 @@ Public Class clsNIFulltext
                                 End If
                             Else
                                 'Es gibt nur From, also auch nur einen Wert
-                                If Pos_From = oCountMatchedElements Then
+                                If Pos_From = i Then
                                     'Das Ende ist erreicht - Ausstieg
                                     ReDim Preserve Ergebnis(0)
                                     Ergebnis(0) = Convert.ToString(g.ToString)

ToolCollection/frmDIProfilEigenschaften.Designer.vb

@@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften))
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
         Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
         Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
         Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
         Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
-        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.cmbl2Nav_Index = New System.Windows.Forms.ComboBox()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.cmbl2NavDokartindex = New System.Windows.Forms.ComboBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.btnLink2Navision = New System.Windows.Forms.Button()
-        Me.txtLink2Navision = New System.Windows.Forms.TextBox()
-        Me.chkbxlink2Navision = New System.Windows.Forms.CheckBox()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.txtlastRun = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -60,9 +59,9 @@ Partial Class frmDIProfilEigenschaften
         Me.rbUV_Date1 = New System.Windows.Forms.RadioButton()
         Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
         Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnRegeln = New System.Windows.Forms.Button()
         Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
         Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
-        Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
         Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
         Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
         Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -75,18 +74,8 @@ Partial Class frmDIProfilEigenschaften
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtProfilname = New System.Windows.Forms.TextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.btnRegeln = New System.Windows.Forms.Button()
-        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
         Me.StatusStrip1.SuspendLayout()
         Me.pnlProfileigenschaften.SuspendLayout()
-        Me.GroupBox3.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.boxImportoptionenLoeschen.SuspendLayout()
@@ -107,6 +96,41 @@ Partial Class frmDIProfilEigenschaften
         Me.StatusStrip1.TabIndex = 21
         Me.StatusStrip1.Text = "StatusStrip1"
         '
+        'btnSpeichern
+        '
+        Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnSpeichern.Enabled = False
+        Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
+        Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnSpeichern.Name = "btnSpeichern"
+        Me.btnSpeichern.ShowDropDownArrow = False
+        Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
+        Me.btnSpeichern.Text = "Profil speichern"
+        '
+        'btnLöschen
+        '
+        Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnLöschen.Enabled = False
+        Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
+        Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnLöschen.Name = "btnLöschen"
+        Me.btnLöschen.ShowDropDownArrow = False
+        Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
+        Me.btnLöschen.Text = "Profil löschen"
+        '
+        'btnHinzufügen
+        '
+        Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
+        Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnHinzufügen.Name = "btnHinzufügen"
+        Me.btnHinzufügen.ShowDropDownArrow = False
+        Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
+        Me.btnHinzufügen.Text = "Profil hinzufügen"
+        '
         'cmbProfilauswahl
         '
         Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -122,6 +146,49 @@ Partial Class frmDIProfilEigenschaften
         Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17)
         Me.tslblAnzahl.Text = "Anzahl Profile: "
         '
+        'tsbtnfirst
+        '
+        Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnfirst.DoubleClickEnabled = True
+        Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
+        Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnfirst.Name = "tsbtnfirst"
+        Me.tsbtnfirst.ShowDropDownArrow = False
+        Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnfirst.Text = "Erstes Profil"
+        '
+        'tsbtnprevious
+        '
+        Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
+        Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnprevious.Name = "tsbtnprevious"
+        Me.tsbtnprevious.ShowDropDownArrow = False
+        Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
+        Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
+        '
+        'tsbtnnext
+        '
+        Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
+        Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnnext.Name = "tsbtnnext"
+        Me.tsbtnnext.ShowDropDownArrow = False
+        Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnnext.Text = "ToolStripDropDownButton3"
+        Me.tsbtnnext.ToolTipText = "Nächstes Profil"
+        '
+        'tsbtnlast
+        '
+        Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
+        Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnlast.Name = "tsbtnlast"
+        Me.tsbtnlast.ShowDropDownArrow = False
+        Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnlast.Text = "Letztes Profil"
+        '
         'lblProfil
         '
         Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -132,7 +199,6 @@ Partial Class frmDIProfilEigenschaften
         'pnlProfileigenschaften
         '
         Me.pnlProfileigenschaften.Controls.Add(Me.Button1)
-        Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3)
         Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
         Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
         Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2)
@@ -155,101 +221,17 @@ Partial Class frmDIProfilEigenschaften
         Me.pnlProfileigenschaften.TabIndex = 22
         Me.pnlProfileigenschaften.Visible = False
         '
-        'GroupBox3
+        'Button1
         '
-        Me.GroupBox3.Controls.Add(Me.Label10)
-        Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index)
-        Me.GroupBox3.Controls.Add(Me.Label9)
-        Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex)
-        Me.GroupBox3.Controls.Add(Me.Label8)
-        Me.GroupBox3.Controls.Add(Me.btnLink2Navision)
-        Me.GroupBox3.Controls.Add(Me.txtLink2Navision)
-        Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision)
-        Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox3.Location = New System.Drawing.Point(15, 408)
-        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(563, 136)
-        Me.GroupBox3.TabIndex = 59
-        Me.GroupBox3.TabStop = False
-        Me.GroupBox3.Text = "Zusatzmodule/-funktionen:"
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.Location = New System.Drawing.Point(230, 84)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(134, 13)
-        Me.Label10.TabIndex = 44
-        Me.Label10.Text = "Indexwert zur Übergabe:"
-        '
-        'cmbl2Nav_Index
-        '
-        Me.cmbl2Nav_Index.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbl2Nav_Index.FormattingEnabled = True
-        Me.cmbl2Nav_Index.Location = New System.Drawing.Point(233, 99)
-        Me.cmbl2Nav_Index.Name = "cmbl2Nav_Index"
-        Me.cmbl2Nav_Index.Size = New System.Drawing.Size(218, 21)
-        Me.cmbl2Nav_Index.TabIndex = 43
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(3, 84)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(109, 13)
-        Me.Label9.TabIndex = 42
-        Me.Label9.Text = "Dokumentartindex: "
-        '
-        'cmbl2NavDokartindex
-        '
-        Me.cmbl2NavDokartindex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbl2NavDokartindex.FormattingEnabled = True
-        Me.cmbl2NavDokartindex.Location = New System.Drawing.Point(6, 99)
-        Me.cmbl2NavDokartindex.Name = "cmbl2NavDokartindex"
-        Me.cmbl2NavDokartindex.Size = New System.Drawing.Size(218, 21)
-        Me.cmbl2NavDokartindex.TabIndex = 41
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(6, 40)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(138, 13)
-        Me.Label8.TabIndex = 40
-        Me.Label8.Text = "Pfad zu DDLink2Navision:"
-        '
-        'btnLink2Navision
-        '
-        Me.btnLink2Navision.Enabled = False
-        Me.btnLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnLink2Navision.Location = New System.Drawing.Point(532, 54)
-        Me.btnLink2Navision.Name = "btnLink2Navision"
-        Me.btnLink2Navision.Size = New System.Drawing.Size(24, 21)
-        Me.btnLink2Navision.TabIndex = 4
-        Me.btnLink2Navision.Text = "..."
-        Me.btnLink2Navision.UseVisualStyleBackColor = True
-        '
-        'txtLink2Navision
-        '
-        Me.txtLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtLink2Navision.Location = New System.Drawing.Point(6, 55)
-        Me.txtLink2Navision.Name = "txtLink2Navision"
-        Me.txtLink2Navision.Size = New System.Drawing.Size(520, 22)
-        Me.txtLink2Navision.TabIndex = 2
-        '
-        'chkbxlink2Navision
-        '
-        Me.chkbxlink2Navision.AutoSize = True
-        Me.chkbxlink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkbxlink2Navision.Location = New System.Drawing.Point(6, 20)
-        Me.chkbxlink2Navision.Name = "chkbxlink2Navision"
-        Me.chkbxlink2Navision.Size = New System.Drawing.Size(406, 17)
-        Me.chkbxlink2Navision.TabIndex = 1
-        Me.chkbxlink2Navision.Text = "Link2Navision (Legt für die importierte Datei einen Link in MS Navision an)"
-        Me.chkbxlink2Navision.UseVisualStyleBackColor = True
+        Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(584, 11)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(184, 23)
+        Me.Button1.TabIndex = 60
+        Me.Button1.Text = "Regular Expressions"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.UseVisualStyleBackColor = True
         '
         'txtlastRun
         '
@@ -359,7 +341,7 @@ Partial Class frmDIProfilEigenschaften
         '
         'txtVerzoegerung
         '
-        Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 562)
+        Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 421)
         Me.txtVerzoegerung.Name = "txtVerzoegerung"
         Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22)
         Me.txtVerzoegerung.TabIndex = 55
@@ -368,7 +350,7 @@ Partial Class frmDIProfilEigenschaften
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(18, 558)
+        Me.Label6.Location = New System.Drawing.Point(18, 417)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(376, 26)
         Me.Label6.TabIndex = 54
@@ -466,15 +448,26 @@ Partial Class frmDIProfilEigenschaften
         Me.Label5.TabIndex = 50
         Me.Label5.Text = "*  bei diesem Feld handelt es sich um ein Pflichtfeld"
         '
+        'btnRegeln
+        '
+        Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
+        Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
+        Me.btnRegeln.Name = "btnRegeln"
+        Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
+        Me.btnRegeln.TabIndex = 6
+        Me.btnRegeln.Text = "Regeln verwalten ..."
+        Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRegeln.UseVisualStyleBackColor = True
+        '
         'boxImportoptionenLoeschen
         '
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
-        Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
         Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
         Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
-        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99)
+        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
         Me.boxImportoptionenLoeschen.TabIndex = 46
         Me.boxImportoptionenLoeschen.TabStop = False
         Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -483,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
         '
         Me.chkUVloeschen.AutoSize = True
         Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65)
+        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
         Me.chkUVloeschen.Name = "chkUVloeschen"
         Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
         Me.chkUVloeschen.TabIndex = 2
@@ -491,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
         Me.chkUVloeschen.UseVisualStyleBackColor = True
         Me.chkUVloeschen.Visible = False
         '
-        'chkQuellverzeichnisLoeschen
-        '
-        Me.chkQuellverzeichnisLoeschen.AutoSize = True
-        Me.chkQuellverzeichnisLoeschen.Enabled = False
-        Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
-        Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
-        Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
-        Me.chkQuellverzeichnisLoeschen.TabIndex = 1
-        Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
-        Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
-        '
         'chkDateienLoeschen
         '
         Me.chkDateienLoeschen.AutoSize = True
         Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19)
+        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
         Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
         Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
         Me.chkDateienLoeschen.TabIndex = 0
@@ -629,108 +610,6 @@ Partial Class frmDIProfilEigenschaften
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
         '
-        'Button1
-        '
-        Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(584, 11)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(184, 23)
-        Me.Button1.TabIndex = 60
-        Me.Button1.Text = "Regular Expressions"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'btnRegeln
-        '
-        Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
-        Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
-        Me.btnRegeln.Name = "btnRegeln"
-        Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
-        Me.btnRegeln.TabIndex = 6
-        Me.btnRegeln.Text = "Regeln verwalten ..."
-        Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRegeln.UseVisualStyleBackColor = True
-        '
-        'btnSpeichern
-        '
-        Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnSpeichern.Enabled = False
-        Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
-        Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnSpeichern.Name = "btnSpeichern"
-        Me.btnSpeichern.ShowDropDownArrow = False
-        Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
-        Me.btnSpeichern.Text = "Profil speichern"
-        '
-        'btnLöschen
-        '
-        Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnLöschen.Enabled = False
-        Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
-        Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnLöschen.Name = "btnLöschen"
-        Me.btnLöschen.ShowDropDownArrow = False
-        Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
-        Me.btnLöschen.Text = "Profil löschen"
-        '
-        'btnHinzufügen
-        '
-        Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
-        Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnHinzufügen.Name = "btnHinzufügen"
-        Me.btnHinzufügen.ShowDropDownArrow = False
-        Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
-        Me.btnHinzufügen.Text = "Profil hinzufügen"
-        '
-        'tsbtnfirst
-        '
-        Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnfirst.DoubleClickEnabled = True
-        Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
-        Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnfirst.Name = "tsbtnfirst"
-        Me.tsbtnfirst.ShowDropDownArrow = False
-        Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnfirst.Text = "Erstes Profil"
-        '
-        'tsbtnprevious
-        '
-        Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
-        Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnprevious.Name = "tsbtnprevious"
-        Me.tsbtnprevious.ShowDropDownArrow = False
-        Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
-        Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
-        '
-        'tsbtnnext
-        '
-        Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
-        Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnnext.Name = "tsbtnnext"
-        Me.tsbtnnext.ShowDropDownArrow = False
-        Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnnext.Text = "ToolStripDropDownButton3"
-        Me.tsbtnnext.ToolTipText = "Nächstes Profil"
-        '
-        'tsbtnlast
-        '
-        Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
-        Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnlast.Name = "tsbtnlast"
-        Me.tsbtnlast.ShowDropDownArrow = False
-        Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnlast.Text = "Letztes Profil"
-        '
         'frmDIProfilEigenschaften
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -750,8 +629,6 @@ Partial Class frmDIProfilEigenschaften
         Me.StatusStrip1.PerformLayout()
         Me.pnlProfileigenschaften.ResumeLayout(False)
         Me.pnlProfileigenschaften.PerformLayout()
-        Me.GroupBox3.ResumeLayout(False)
-        Me.GroupBox3.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -775,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents btnRegeln As System.Windows.Forms.Button
     Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
-    Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
     Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox
@@ -808,16 +684,7 @@ Partial Class frmDIProfilEigenschaften
     Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton
     Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents lblProfil As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
-    Friend WithEvents chkbxlink2Navision As System.Windows.Forms.CheckBox
-    Friend WithEvents Label8 As System.Windows.Forms.Label
-    Friend WithEvents btnLink2Navision As System.Windows.Forms.Button
-    Friend WithEvents txtLink2Navision As System.Windows.Forms.TextBox
     Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
-    Friend WithEvents cmbl2NavDokartindex As System.Windows.Forms.ComboBox
-    Friend WithEvents Label9 As System.Windows.Forms.Label
-    Friend WithEvents Label10 As System.Windows.Forms.Label
-    Friend WithEvents cmbl2Nav_Index As System.Windows.Forms.ComboBox
     Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox
     Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
     Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton

ToolCollection/frmDIProfilEigenschaften.vb

@@ -4,7 +4,6 @@ Imports System.IO
 Public Class frmDIProfilEigenschaften
     ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
     Private selectedProfile As ClassDIProfil
-    Private licenseManager As ClassLicenseManager
     Dim Formloaded As Boolean = False
     'Zum Speichern der Positionen
     Dim _pos As Integer
@@ -28,14 +27,7 @@ Public Class frmDIProfilEigenschaften
 
         ' alle Profile in die Toolbar-Combobox eintragen
         Me.LoadProfilesInCombobox()
-        Try
-            Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-            Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-            Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-            Me.licenseManager.LoadLicenses()
-        Catch ex As Exception
-            MsgBox("Fehler beim Laden der Lizenzen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+
     End Sub
     Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
 
@@ -138,23 +130,6 @@ Public Class frmDIProfilEigenschaften
             Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
             Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
             Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
-            Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen
-            Me.chkbxlink2Navision.Checked = Me.selectedProfile.Link2Navision
-            If Me.chkbxlink2Navision.Checked = True Then
-                Me.txtLink2Navision.Text = My.Settings.PathLink2Navision
-                Me.txtLink2Navision.Enabled = True
-                Me.btnLink2Navision.Enabled = True
-                Me.cmbl2Nav_Index.Enabled = True
-                Me.cmbl2NavDokartindex.Enabled = True
-
-                load_indexe_inComboboxen()
-
-            Else
-                Me.txtLink2Navision.Enabled = False
-                Me.btnLink2Navision.Enabled = False
-                Me.cmbl2Nav_Index.Enabled = False
-                Me.cmbl2NavDokartindex.Enabled = False
-            End If
 
             If CBool(Me.selectedProfile.Aktiv) = True Then
                 Me.chkbxAktiv.Checked = True
@@ -183,7 +158,6 @@ Public Class frmDIProfilEigenschaften
         Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
-        Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
         'End If
     End Sub
     Sub rbBoxenenablen()
@@ -197,49 +171,14 @@ Public Class frmDIProfilEigenschaften
             rbUV_Date3.Enabled = True
         End If
     End Sub
-    Sub load_indexe_inComboboxen()
-        Me.cmbl2NavDokartindex.Items.Clear()
-        Me.cmbl2Nav_Index.Items.Clear()
-        Dim indexe = _windream.GetIndicesByObjecttype(Me.selectedProfile.DokumenttypString, True, "DI")
-        If indexe IsNot Nothing Then
-            Me.cmbl2NavDokartindex.Items.Add("")
-            Me.cmbl2Nav_Index.Items.Add("")
-            For Each index As String In indexe
-                Me.cmbl2NavDokartindex.Items.Add(index)
-                Me.cmbl2Nav_Index.Items.Add(index)
-            Next
-            Me.cmbl2NavDokartindex.SelectedIndex = -1
-            Me.cmbl2NavDokartindex.SelectedItem = 0
-            Me.cmbl2Nav_Index.SelectedIndex = -1
-            Me.cmbl2Nav_Index.SelectedItem = 0
 
-            If Me.selectedProfile.Link2Navision_dokart <> "" Then
-                'Wenn bereits eine Dokart gewählt wurde
-                Me.cmbl2NavDokartindex.SelectedIndex = Me.cmbl2NavDokartindex.FindStringExact(Me.selectedProfile.Link2Navision_dokart)
-            Else
-                'Wenn noch KEINE Dokart gewählt wurde
-                Me.cmbl2NavDokartindex.SelectedIndex = -1
-                Me.cmbl2NavDokartindex.SelectedItem = ""
-            End If
-            If Me.selectedProfile.Link2Navision_Index <> "" Then
-                'Wenn bereits ein Index gewählt wurde
-                Me.cmbl2Nav_Index.SelectedIndex = Me.cmbl2Nav_Index.FindStringExact(Me.selectedProfile.Link2Navision_Index)
-            Else
-                'Wenn noch KEIN Index gewählt wurde
-                Me.cmbl2Nav_Index.SelectedIndex = -1
-                Me.cmbl2Nav_Index.SelectedItem = ""
-            End If
-        End If
-    End Sub
     ' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++
 
     ' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
 
-        ' wenn bereits ein Profil ausgewählt wurde
         If Me.selectedProfile IsNot Nothing Then
-            ' wenn es sich bei dem ausgewählten Element um das gleiche handelt wie das Aktive, dann nichts tun
             If e.ClickedItem.Text = Me.selectedProfile.Profilname Then Exit Sub
 
             If selectedProfile.HasChanges Then
@@ -251,7 +190,11 @@ Public Class frmDIProfilEigenschaften
         'Dim changeProfile As Boolean = Me.AskToSaveIfNeccessary(False)
 
         Lade_Profil(e.ClickedItem.Text)
-
+        For i = 0 To arrProfile.GetUpperBound(0)
+            If arrProfile(i, 0) = e.ClickedItem.Text Then
+                _pos = arrProfile(i, 1)
+            End If
+        Next
 
     End Sub
 
@@ -340,7 +283,6 @@ Public Class frmDIProfilEigenschaften
                 Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
                 Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
                 Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
-                Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
             End If
 
         End If
@@ -507,7 +449,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-           
+
         End If
     End Sub
 
@@ -523,7 +465,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-           
+
         End If
     End Sub
 
@@ -561,7 +503,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-          
+
         End If
     End Sub
 
@@ -587,17 +529,6 @@ Public Class frmDIProfilEigenschaften
         End If
     End Sub
 
-    Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
-        If Me.selectedProfile IsNot Nothing Then
-            Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
-            If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
-                Me.btnSpeichern.Enabled = True
-            Else
-                Me.btnSpeichern.Enabled = False
-            End If
-        End If
-    End Sub
-
     Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
 
         'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
@@ -639,7 +570,7 @@ Public Class frmDIProfilEigenschaften
                     rbUV_Date1.Checked = True
                     variante = "YYYY-MM-DD"
             End Select
-                txtUV_Date.Text = variante
+            txtUV_Date.Text = variante
         Else
             txtUV_Date.Text = ""
         End If
@@ -785,44 +716,6 @@ Public Class frmDIProfilEigenschaften
         End If
     End Sub
 
-    Private Sub chkbxlink2Navision_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxlink2Navision.CheckedChanged
-        If Me.selectedProfile IsNot Nothing Then
-            Me.selectedProfile.Link2Navision = Me.chkbxlink2Navision.Checked
-            If Not Me.chkbxlink2Navision.Checked = Me.selectedProfile.OriginalLink2Navision Then
-                Me.btnSpeichern.Enabled = True
-            Else
-                Me.btnSpeichern.Enabled = False
-            End If
-            If Me.chkbxlink2Navision.Checked Then
-                Me.txtLink2Navision.Enabled = True
-                Me.btnLink2Navision.Enabled = True
-                Me.cmbl2NavDokartindex.Enabled = True
-                Me.cmbl2Nav_Index.Enabled = True
-
-                load_indexe_inComboboxen()
-
-            Else
-                Me.txtLink2Navision.Enabled = False
-                Me.btnLink2Navision.Enabled = False
-                Me.cmbl2NavDokartindex.Enabled = False
-                Me.cmbl2Nav_Index.Enabled = False
-            End If
-        End If
-    End Sub
-
-    Private Sub btnLink2Navision_Click(sender As System.Object, e As System.EventArgs) Handles btnLink2Navision.Click
-        With OpenFileDialog1
-            ' Do
-            .Filter = "NavisionLink.exe|*.exe"
-            .FilterIndex = 1
-            .Title = "Pfad zu DDNavisionLink:"
-            If .ShowDialog() = DialogResult.OK Then
-                Me.txtLink2Navision.Text = .FileName
-                setAppSetting("PathLink2Navision", .FileName)
-                Me.txtLink2Navision.Text = .FileName
-            End If
-        End With
-    End Sub
     Private Sub setAppSetting(ByVal name As String, ByVal value As String)
         Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
         Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
@@ -841,32 +734,6 @@ Public Class frmDIProfilEigenschaften
 
     End Sub
 
-    Private Sub cmbl2NavDokartindex_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2NavDokartindex.SelectedIndexChanged
-        If Me.selectedProfile IsNot Nothing Then
-            If Me.cmbl2NavDokartindex.SelectedIndex <> -1 Then
-                Me.selectedProfile.Link2Navision_dokart = Me.cmbl2NavDokartindex.Text
-                If Not Me.selectedProfile.Link2Navision_dokart = Me.selectedProfile.OriginalLink2Navision_dokart Then
-                    Me.btnSpeichern.Enabled = True
-                Else
-                    Me.btnSpeichern.Enabled = False
-                End If
-            End If
-        End If
-    End Sub
-
-    Private Sub cmbl2Nav_Index_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2Nav_Index.SelectedIndexChanged
-        If Me.selectedProfile IsNot Nothing Then
-            If Me.cmbl2Nav_Index.SelectedIndex <> -1 Then
-                Me.selectedProfile.Link2Navision_Index = Me.cmbl2Nav_Index.Text
-                If Not Me.selectedProfile.Link2Navision_Index = Me.selectedProfile.Link2Navision_Index Then
-                    Me.btnSpeichern.Enabled = True
-                Else
-                    Me.btnSpeichern.Enabled = False
-                End If
-            End If
-        End If
-    End Sub
-
     Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick
 
     End Sub

ToolCollection/frmDIProfilHinzufuegen.Designer.vb

@@ -50,9 +50,9 @@ Partial Class frmDIProfilHinzufuegen
         Me.btnZielverzeichnisLöschen = New System.Windows.Forms.Button()
         Me.btnQuellverzeichnisLöschen = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label6 = New System.Windows.Forms.Label()
         Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
         Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.boxImportoptionenLoeschen.SuspendLayout()
         Me.boxImportoptionenBackup.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -74,7 +74,7 @@ Partial Class frmDIProfilHinzufuegen
         '
         Me.chkUVloeschen.AutoSize = True
         Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkUVloeschen.Location = New System.Drawing.Point(250, 42)
+        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 42)
         Me.chkUVloeschen.Name = "chkUVloeschen"
         Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
         Me.chkUVloeschen.TabIndex = 18
@@ -86,12 +86,13 @@ Partial Class frmDIProfilHinzufuegen
         '
         Me.chkQuellverzeichnisLoeschen.AutoSize = True
         Me.chkQuellverzeichnisLoeschen.Enabled = False
-        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
+        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(250, 19)
         Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
         Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
         Me.chkQuellverzeichnisLoeschen.TabIndex = 17
         Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
         Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
+        Me.chkQuellverzeichnisLoeschen.Visible = False
         '
         'chkDateienLoeschen
         '
@@ -326,6 +327,17 @@ Partial Class frmDIProfilHinzufuegen
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Erweiterte Ordnerstrukturen"
         '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(28, 40)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(243, 15)
+        Me.Label6.TabIndex = 1
+        Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
+        Me.Label6.Visible = False
+        '
         'chkb_DateUV
         '
         Me.chkb_DateUV.AutoSize = True
@@ -346,17 +358,6 @@ Partial Class frmDIProfilHinzufuegen
         Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)"
         Me.chkb_Subdirectories.UseVisualStyleBackColor = True
         '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(28, 40)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(243, 15)
-        Me.Label6.TabIndex = 1
-        Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
-        Me.Label6.Visible = False
-        '
         'frmDIProfilHinzufuegen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

ToolCollection/frmDIProfilHinzufuegen.resx

@@ -121,17 +121,17 @@
   <data name="btnBackupverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
-        C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
-        cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
-        dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
-        dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
-        J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
-        0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
-        QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
-        gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
-        fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
-        AAAAAElFTkSuQmCC
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
+        OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
+        Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
+        M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
+        Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
+        NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
+        UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
+        GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
+        uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
+        o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
+        RU5ErkJggg==
 </value>
   </data>
   <metadata name="dlgQuellordner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -146,33 +146,33 @@
   <data name="btnZielverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
-        C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
-        cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
-        dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
-        dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
-        J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
-        0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
-        QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
-        gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
-        fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
-        AAAAAElFTkSuQmCC
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
+        OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
+        Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
+        M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
+        Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
+        NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
+        UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
+        GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
+        uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
+        o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
+        RU5ErkJggg==
 </value>
   </data>
   <data name="btnQuellverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
-        C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
-        cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
-        dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
-        dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
-        J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
-        0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
-        QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
-        gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
-        fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
-        AAAAAElFTkSuQmCC
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
+        OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
+        Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
+        M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
+        Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
+        NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
+        UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
+        GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
+        uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
+        o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
+        RU5ErkJggg==
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

ToolCollection/frmLizenzmanager.Designer.vb

@@ -1,235 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmLizenzmanager
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        If disposing AndAlso components IsNot Nothing Then
-            components.Dispose()
-        End If
-        MyBase.Dispose(disposing)
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLizenzmanager))
-        Me.txtKey = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.boxLicenseInfos = New System.Windows.Forms.GroupBox()
-        Me.txtmachine = New System.Windows.Forms.TextBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtCompany = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.lvLicense = New System.Windows.Forms.ListView()
-        Me.clmModulname = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmGültigkeit = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmType = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmAnz = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.btnOK = New System.Windows.Forms.Button()
-        Me.btnAbbrechen = New System.Windows.Forms.Button()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtmachineOriginal = New System.Windows.Forms.TextBox()
-        Me.boxLicenseInfos.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'txtKey
-        '
-        Me.txtKey.Location = New System.Drawing.Point(15, 25)
-        Me.txtKey.Multiline = True
-        Me.txtKey.Name = "txtKey"
-        Me.txtKey.Size = New System.Drawing.Size(456, 123)
-        Me.txtKey.TabIndex = 0
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 9)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(87, 13)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Lizenzschlüssel:"
-        '
-        'boxLicenseInfos
-        '
-        Me.boxLicenseInfos.Controls.Add(Me.txtmachine)
-        Me.boxLicenseInfos.Controls.Add(Me.Label4)
-        Me.boxLicenseInfos.Controls.Add(Me.txtCompany)
-        Me.boxLicenseInfos.Controls.Add(Me.Label3)
-        Me.boxLicenseInfos.Controls.Add(Me.Label2)
-        Me.boxLicenseInfos.Controls.Add(Me.lvLicense)
-        Me.boxLicenseInfos.Location = New System.Drawing.Point(15, 154)
-        Me.boxLicenseInfos.Name = "boxLicenseInfos"
-        Me.boxLicenseInfos.Size = New System.Drawing.Size(456, 349)
-        Me.boxLicenseInfos.TabIndex = 2
-        Me.boxLicenseInfos.TabStop = False
-        Me.boxLicenseInfos.Text = "Lizenzinformationen"
-        '
-        'txtmachine
-        '
-        Me.txtmachine.BackColor = System.Drawing.SystemColors.Window
-        Me.txtmachine.Cursor = System.Windows.Forms.Cursors.Arrow
-        Me.txtmachine.Location = New System.Drawing.Point(15, 81)
-        Me.txtmachine.Name = "txtmachine"
-        Me.txtmachine.ReadOnly = True
-        Me.txtmachine.Size = New System.Drawing.Size(425, 22)
-        Me.txtmachine.TabIndex = 5
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(12, 62)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(130, 13)
-        Me.Label4.TabIndex = 4
-        Me.Label4.Text = "Lizensiert für ""machine"":"
-        '
-        'txtCompany
-        '
-        Me.txtCompany.BackColor = System.Drawing.SystemColors.Window
-        Me.txtCompany.Cursor = System.Windows.Forms.Cursors.Arrow
-        Me.txtCompany.Location = New System.Drawing.Point(15, 40)
-        Me.txtCompany.Name = "txtCompany"
-        Me.txtCompany.ReadOnly = True
-        Me.txtCompany.Size = New System.Drawing.Size(425, 22)
-        Me.txtCompany.TabIndex = 3
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(12, 24)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(100, 13)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Lizenzeigentümer:"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(12, 106)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(113, 13)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "enthaltene Lizenzen:"
-        '
-        'lvLicense
-        '
-        Me.lvLicense.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clmModulname, Me.clmGültigkeit, Me.clmType, Me.clmAnz})
-        Me.lvLicense.FullRowSelect = True
-        Me.lvLicense.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
-        Me.lvLicense.HideSelection = False
-        Me.lvLicense.Location = New System.Drawing.Point(15, 122)
-        Me.lvLicense.Name = "lvLicense"
-        Me.lvLicense.Size = New System.Drawing.Size(425, 204)
-        Me.lvLicense.TabIndex = 0
-        Me.lvLicense.UseCompatibleStateImageBehavior = False
-        Me.lvLicense.View = System.Windows.Forms.View.Details
-        '
-        'clmModulname
-        '
-        Me.clmModulname.Text = "Modulname"
-        Me.clmModulname.Width = 150
-        '
-        'clmGültigkeit
-        '
-        Me.clmGültigkeit.Text = "Gültigkeitsdatum"
-        Me.clmGültigkeit.Width = 120
-        '
-        'clmType
-        '
-        Me.clmType.Text = "Type"
-        Me.clmType.Width = 70
-        '
-        'clmAnz
-        '
-        Me.clmAnz.Text = "Profile"
-        '
-        'btnOK
-        '
-        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnOK.Location = New System.Drawing.Point(315, 577)
-        Me.btnOK.Name = "btnOK"
-        Me.btnOK.Size = New System.Drawing.Size(75, 23)
-        Me.btnOK.TabIndex = 3
-        Me.btnOK.Text = "OK"
-        Me.btnOK.UseVisualStyleBackColor = True
-        '
-        'btnAbbrechen
-        '
-        Me.btnAbbrechen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnAbbrechen.Location = New System.Drawing.Point(396, 577)
-        Me.btnAbbrechen.Name = "btnAbbrechen"
-        Me.btnAbbrechen.Size = New System.Drawing.Size(75, 23)
-        Me.btnAbbrechen.TabIndex = 4
-        Me.btnAbbrechen.Text = "Abbrechen"
-        Me.btnAbbrechen.UseVisualStyleBackColor = True
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(12, 511)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(94, 13)
-        Me.Label5.TabIndex = 5
-        Me.Label5.Text = """machine-Name"":"
-        '
-        'txtmachineOriginal
-        '
-        Me.txtmachineOriginal.Location = New System.Drawing.Point(15, 527)
-        Me.txtmachineOriginal.Name = "txtmachineOriginal"
-        Me.txtmachineOriginal.ReadOnly = True
-        Me.txtmachineOriginal.Size = New System.Drawing.Size(285, 22)
-        Me.txtmachineOriginal.TabIndex = 6
-        '
-        'frmLizenzmanager
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(487, 605)
-        Me.Controls.Add(Me.txtmachineOriginal)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.btnAbbrechen)
-        Me.Controls.Add(Me.btnOK)
-        Me.Controls.Add(Me.boxLicenseInfos)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.txtKey)
-        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmLizenzmanager"
-        Me.ShowInTaskbar = False
-        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
-        Me.Text = "Lizenzmanager"
-        Me.boxLicenseInfos.ResumeLayout(False)
-        Me.boxLicenseInfos.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents txtKey As System.Windows.Forms.TextBox
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents boxLicenseInfos As System.Windows.Forms.GroupBox
-    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents lvLicense As System.Windows.Forms.ListView
-    Friend WithEvents txtCompany As System.Windows.Forms.TextBox
-    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents clmModulname As System.Windows.Forms.ColumnHeader
-    Friend WithEvents clmGültigkeit As System.Windows.Forms.ColumnHeader
-    Friend WithEvents btnOK As System.Windows.Forms.Button
-    Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
-    Friend WithEvents txtmachine As System.Windows.Forms.TextBox
-    Friend WithEvents Label4 As System.Windows.Forms.Label
-    Friend WithEvents clmType As System.Windows.Forms.ColumnHeader
-    Friend WithEvents clmAnz As System.Windows.Forms.ColumnHeader
-    Friend WithEvents Label5 As System.Windows.Forms.Label
-    Friend WithEvents txtmachineOriginal As System.Windows.Forms.TextBox
-End Class

ToolCollection/frmLizenzmanager.resx

@@ -1,149 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAABAAEAEBAAAAAAAABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAA////AFu8aACc2acANoo6AH7IhQBLoFEAjdGWAG3EdgBPtVkAQJRFAFysYgBmtW0AUqdZAHTL
-        fgCV1Z4Ahc2NAGTBcQBVuWAAXrRlADuPQABFmUoAedCDAHbDfABivWsAVqtdAHnLhwB6xoEAmNiiAE+k
-        VQCCyokAcMd6AIrPkgBywHoASJxNAFi7ZABpwXIAYrhqAGa9bwA5jD0AUrddAFuxYwCQ0pkAacN3AD6S
-        QgB2zoEAXr1qAEKWRwByyXwAYL9tAJPUnACLz5UASZ5PAIPMiwB8x4MAWq9hAF27ZgBiwG8AiM+QAIDK
-        hwCW16EAU6laAFG2WwB4zYIAV61eAFO4XwBau2YAb8Z4AF+1ZwBlwnMAmdikAHzJhQBlv28AZsBxAGfC
-        cwA6jj8APJBBAI/RmABMoVIAeM+CAHXNgABWumEAc8p9AF2tYwBdvGkAX75sAGO5awBlvG4Am9mmAD2R
-        QgCT1Z0AQZZGAI3SlwCM0JUASJ1OAIrPlACLz5MAhs2OAITMjACDy4oAgcqIAFi6YwBxyXsAZbVsAGXB
-        cgA5jT0APpJDAJnYowCY16IAl9iiAJfXoQCLz5QAiM+RAIPKiQCAyogAVrlhAH7IhABZu2QAds6AAHvG
-        gQBzy30AXb1pAG3EdwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZDR0GIgAAahQnBAAAAAAAN2FicU4AAC8bF2kAAAAAABNwcxBn
-        TjRTNndMAAAAAAAlMyAkYWJjZDh0CgAAAAAAVyUhYCNRQT4JOwsKWUsAAAAAVgdUQmUSKBhkBXQsAAAA
-        ACYqMS4CdVFINR5yWwAAH3pHMmg5VXlCOgxOXhUAAHhrbhorRRFKSW89AAAAAAB2WEZsPA8yTV1fQAAA
-        AAAAFi0OZkNuWlclRCkAAAAAAAAAAAAwbVwAAAAAAAAAAAAAAAAAPwMcCAAAAAAAAAAAAAAAAE9QUgAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AACDDwAAgw8AAIAPAACADwAAgAEAAOABAADgAQAAgAEAAIAP
-        AACADwAAgA8AAPj/AAD4fwAA+P8AAP//AAA=
-</value>
-  </data>
-</root>

ToolCollection/frmLizenzmanager.vb

@@ -1,101 +0,0 @@
-Public Class frmLizenzmanager
-
-    Private licenseKey_old As String
-    Private licenseManager As ClassLicenseManager = Nothing
-
-    Private Sub frmLizenzmanager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-        Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-        Me.txtKey.Text = My.Settings.licensekey
-        Me.licenseKey_old = Me.txtKey.Text
-        Me.txtmachineOriginal.Text = My.Computer.Name
-        Me.CheckLicenseKey()
-    End Sub
-
-
-    Private Sub CheckLicenseKey()
-        Me.txtCompany.Text = ""
-        Me.txtmachine.Text = ""
-        Me.lvLicense.Items.Clear()
-
-        If Not Me.txtKey.Text = "" Then
-            If Me.txtKey.Text = "DD MaxLicense" Or Me.txtKey.Text.ToUpper = "DDALLIN" Then
-                Me.txtCompany.Text = "Digital Data"
-                Me.txtmachine.Text = "None"
-            Else
-                Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(Me.txtKey.Text)
-                Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-                Me.licenseManager.LoadLicenses()
-
-                Dim i As Integer = 0
-
-                If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-                    Me.txtCompany.Text = Me.licenseManager.Licenses.Company
-                    Me.txtmachine.Text = Me.licenseManager.Licenses.machine
-                    Me.lvLicense.Items.Clear()
-                    For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                        Dim expires As String = license.Expires.Date
-                        Dim type As String = license.Type
-                        Dim anzProf As String = license.Anz_Profile
-                        If anzProf = 99 Then
-                            anzProf = "Unlimited"
-                        End If
-
-                        'Date.TryParse(expires, license.Expires)
-                        If Not expires = "" Then
-                            Me.lvLicense.Items.Add(license.Modulename)
-                            ' MsgBox(license.Modulename)
-                            Dim test = Me.lvLicense.Items.Item(i)
-                            Me.lvLicense.Items(i).SubItems.Add(expires)
-                            lvLicense.Items(i).SubItems.Add(type)
-                            lvLicense.Items(i).SubItems.Add(anzProf)
-                            i += 1
-                        End If
-                    Next
-                End If
-            End If
-
-
-
-        End If
-    End Sub
-
-
-    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
-        If Not Me.licenseKey_old = Me.txtKey.Text Then
-            Dim result As MsgBoxResult = MsgBox("Sind sie sicher, dass der Lizenzschlüssel geändert werden soll?", MsgBoxStyle.YesNo, "Lizenzschlüssel wurde geändert")
-            If result = MsgBoxResult.Yes Then
-                My.Settings.licensekey = Me.txtKey.Text
-                My.Settings.Save()
-            End If
-        End If
-
-
-        If Not My.Settings.licensekey = "" Then
-            ' alle vorhandenen Module laden
-            frmStart.LoadAllModules()
-        End If
-
-        Me.Close()
-    End Sub
-
-
-    Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
-        Me.txtKey.Text = ""
-        Me.txtCompany.Text = ""
-        Me.lvLicense.Items.Clear()
-
-        frmStart.ClearGroupBoxes()
-
-        If Not My.Settings.licensekey = "" Then
-            ' alle vorhandenen Module laden
-            frmStart.LoadAllModules()
-        End If
-
-        Me.Close()
-    End Sub
-
-
-    Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
-        Me.CheckLicenseKey()
-    End Sub
-End Class

ToolCollection/frmNIHauptseite.Designer.vb

@@ -69,6 +69,7 @@ Partial Class frmNIHauptseite
         Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter()
         Me.TableAdapterManager1 = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TimerAutostart = New System.Windows.Forms.Timer(Me.components)
         Me.tcmain.SuspendLayout()
         Me.tpMain.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
@@ -121,7 +122,7 @@ Partial Class frmNIHauptseite
         Me.tpMain.Location = New System.Drawing.Point(4, 22)
         Me.tpMain.Name = "tpMain"
         Me.tpMain.Padding = New System.Windows.Forms.Padding(3)
-        Me.tpMain.Size = New System.Drawing.Size(766, 521)
+        Me.tpMain.Size = New System.Drawing.Size(769, 521)
         Me.tpMain.TabIndex = 0
         Me.tpMain.Text = "Hauptseite"
         Me.tpMain.UseVisualStyleBackColor = True
@@ -143,7 +144,7 @@ Partial Class frmNIHauptseite
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatus})
         Me.StatusStrip1.Location = New System.Drawing.Point(3, 496)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(760, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(763, 22)
         Me.StatusStrip1.TabIndex = 45
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -504,6 +505,9 @@ Partial Class frmNIHauptseite
         Me.TableAdapterManager1.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter
         Me.TableAdapterManager1.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
+        'TimerAutostart
+        '
+        '
         'frmNIHauptseite
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -587,4 +591,5 @@ Partial Class frmNIHauptseite
     Friend WithEvents btnEdit As Button
     Friend WithEvents btnStartProfile As Button
     Friend WithEvents pnlFooter As Panel
+    Friend WithEvents TimerAutostart As Timer
 End Class

ToolCollection/frmNIHauptseite.resx

@@ -120,9 +120,6 @@
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>248, 56</value>
   </metadata>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>248, 56</value>
-  </metadata>
   <data name="Label6.Text" xml:space="preserve">
     <value>Es wird empfohlen, das Intervall nicht auf weniger als 30 Minuten zu setzen, da der nächste Nachindexierungsdurchlauf nur gestartet werden kann, wenn der vorherige beendet wurde. Wenn zu erwarten ist, dass viele Dokumente nachindexiert werden sollen, sollte der Intervall für diesen Durchlauf entsprechend hoch gesetzt werden ( &gt; 2 Stunden).</value>
   </data>
@@ -162,6 +159,9 @@
   <metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>984, 56</value>
   </metadata>
+  <metadata name="TimerAutostart.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1161, 56</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>132</value>
   </metadata>

ToolCollection/frmNIHauptseite.vb

@@ -29,7 +29,7 @@ Public Class frmNIHauptseite
     Private _fulltext As clsNIFulltext
 
     Private manuallyRun As Boolean = False
-    Private manually_cancel As Boolean = True
+    Private manually_cancel As Boolean = False
     '#### Variablen für das Profil
     Private myNIDatatable As DataTable
     Private myNIArrayIndexe() As String = Nothing  ' zum Speichern der Indexe
@@ -44,7 +44,6 @@ Public Class frmNIHauptseite
     Public debug As Boolean = True
     Private Shared _Instance As frmNIHauptseite = Nothing
     Private _validModules()
-    Private licenseManager As ClassLicenseManager = Nothing
     Public Shared _windream As ClassWindream_allgemein
     Private Const ConstWMEntityDocument = 1 ''WINDREAMLib.WMEntity.WMEntityDocument
     Private _singleProfileRun As String = ""
@@ -68,17 +67,9 @@ Public Class frmNIHauptseite
         _windreamNI = New ClassNIWindream(_MyLogger)
         database = New ClassNIDatenbankzugriff(_MyLogger)
 
-
         ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
-        If _windreamNI.Init() = False Then
-            _Logger.Warn("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
-            Exit Sub
-
-        End If
         'ClassMoveRenameLogger.Init("", "MoveRename_", True)
 
-
-
         AddHandler bwProfil.DoWork, AddressOf bwProfil_DoWork
         AddHandler bwProfil.RunWorkerCompleted, AddressOf bwProfil_RunWorkerCompleted
         AddHandler bwProfil.ProgressChanged, AddressOf bwProfil_ProgressChanged
@@ -120,18 +111,28 @@ Public Class frmNIHauptseite
         End If
 
         If AUTOSTART_FIH Then
-            Start_NachindexierungThreads()
             My.Settings.vNIRunning = True
             My.Settings.Save()
             Me.btnStartProfile.Enabled = False
-            _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
             AUTOSTART_FIH = False
+            _Logger.Info("AUTOSTART_FIH = True - Warte 30s auf Windream-Laufwerk.")
+            Me.lblStatus.Text = "(Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk...)"
+            Me.tslblStatus.Text = "Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk..."
+            Me.tslblStatus.Visible = True
+            TimerAutostart.Interval = 30000
+            TimerAutostart.Start()
         Else
             _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
         End If
 
     End Sub
 
+    Private Sub TimerAutostart_Tick(sender As Object, e As EventArgs) Handles TimerAutostart.Tick
+        TimerAutostart.Stop()
+        _Logger.Info("Startverzögerung abgelaufen - Nachindexierung wird gestartet.")
+        Start_NachindexierungThreads()
+    End Sub
+
     Private Sub LoadProfilesIntoGrid()
 
         ClassNIProfile.Init()
@@ -195,44 +196,6 @@ Public Class frmNIHauptseite
     '            Return Nothing
     '    End Select
     'End Function
-    'Public Sub LoadAllModules()
-    '    Me._validModules = Nothing
-
-    '    If Not My.Settings.licensekey = "" Then
-    '        'Me.licenseManager = New ClassLicenseManager = Nothing
-    '        Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-    '        Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-    '        Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-    '        Me.licenseManager.LoadLicenses()
-
-    '        Dim i As Integer = 0
-
-    '        If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-    '            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-    '                Dim expires As String = license.Expires.Date
-    '                If IsExpired(license.Expires.Date) = False Then
-    '                    ' MsgBox(license.Modulename & vbNewLine & expires)
-
-    '                    Select Case license.Modulename.ToUpper
-    '                        Case "MOVEANDRENAME"
-    '                            LICENSE_MoveRename = True
-    '                            _Logger.Info("LICENSE MoveandRename aktiv")
-    '                    End Select
-    '                    i += 1
-    '                Else
-    '                    Select Case license.Modulename
-    '                        Case "MOVEANDRENAME"
-    '                            LICENSE_MoveRename = False
-    '                    End Select
-    '                    i += 1
-    '                End If
-    '                'Date.TryParse(expires, license.Expires)
-
-    '            Next
-    '        End If
-    '    End If
-    'End Sub
     Private Function IsExpired(ByVal _Date As Date)
         If Date.Today > _Date Then
             Return True
@@ -794,6 +757,7 @@ Public Class frmNIHauptseite
                     Me.ProgressBar1.Value = 0
 
                     Me.Refresh()
+                    manually_cancel = False
                     Me.startProfileDurchlauf()
                 Else
                     _Logger.Warn("Attention: ClassNIProfile.Profile IsNothing")
@@ -921,9 +885,9 @@ Public Class frmNIHauptseite
                         _Logger.Debug(">> _fulltext initialized.")
                         fulltext = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
                         If Len(fulltext) > 0 Then
-                            _Logger.Info($"{aktivesProfil.Desk_windreamIndex} is empty...")
+                            _Logger.Info($"Volltext aus [{aktivesProfil.Desk_windreamIndex}] erfolgreich extrahiert.")
                         Else
-                            _Logger.Info($"## No fulltext from [{aktivesProfil.Desk_windreamIndex}] extracted!")
+                            _Logger.Info($"## Kein Volltext aus [{aktivesProfil.Desk_windreamIndex}] extrahiert - versuche 'Manueller Volltext'...")
                             fulltext = pMyWMDoc.GetVariableValue("Manueller Volltext")
                         End If
                         If Len(fulltext) > 0 Then
@@ -1827,22 +1791,14 @@ Public Class frmNIHauptseite
             End If
 
             'Move and Rename ausführen
-            If LICENSE_MoveRename = True And Not oUnexpectedError And unvollstaendig = False Then
+            If Not oUnexpectedError And unvollstaendig = False Then
                 Dim swMoveandrename As New ClassStopwatch("MoveandRename")
                 oUnexpectedError = FNMoveRename(pMyWMDoc)
 
                 Dim msg1 = swMoveandrename.Done
                 If msg1 <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg1}"
-
                 End If
-            Else
-                If LICENSE_MoveRename = True And oUnexpectedError = True Or unvollstaendig = True Then
-                    _Logger.Info("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")
-                    _Logger.Debug("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")
-                End If
-
-
             End If
 
             'Indexierung gegen die Indizes des Ordners
@@ -1902,11 +1858,16 @@ Public Class frmNIHauptseite
             If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
                 _Logger.Debug("Nachbearbeitung AD ist aktiviert")
                 Dim sw As New ClassStopwatch("AD-Rework")
-                Nachbearbeitung_AD(pMyWMDoc)
+                Dim adReworkOk As Boolean = Nachbearbeitung_AD(pMyWMDoc)
                 Dim msg = sw.Done
                 If msg <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg}"
                 End If
+                If adReworkOk = False Then
+                    _Logger.Warn($"## Nachbearbeitung AD für [{pMyWMDoc.aName}] fehlgeschlagen - Error-Index wird gesetzt")
+                    File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexValidation)
+                    File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexFehler)
+                End If
             Else
                 If aktivesProfil.NachbearbeitungAD = True Then
                     _Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}")
@@ -2348,7 +2309,9 @@ Public Class frmNIHauptseite
                             End If
                             i += 1
                         Catch ex As Exception
-
+                            _Logger.Error(ex)
+                            _erfolgreich = False
+                            Exit For
                         End Try
 
                     Next
@@ -2537,12 +2500,22 @@ Public Class frmNIHauptseite
     'Ab Hier Error prüfen
     Sub File_SetBooleanIndex(ByVal _value As Boolean, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String)
         Try
+            _Logger.Debug($"File_SetBooleanIndex called: Index=[{_Indexname}] Value=[{_value}] Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}]")
             If _Indexname <> "" Then
                 'Überprüfen ob Boolean-Value bereits gesetzt wurde?
-                Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname))
+                Dim akt_Status As Boolean = False
+                Try
+                    Dim rawValue As Object = _dok.GetVariableValue(_Indexname)
+                    _Logger.Debug($"File_SetBooleanIndex: rawValue=[{If(rawValue IsNot Nothing, rawValue.ToString, "NULL")}]")
+                    If rawValue IsNot Nothing Then
+                        akt_Status = CBool(rawValue)
+                    End If
+                Catch ex As Exception
+                    _Logger.Debug($"File_SetBooleanIndex: GetVariableValue threw exception - treating as False. Error: {ex.Message}")
+                    akt_Status = False
+                End Try
                 If akt_Status <> _value Then
-                    'Index muß angepasst werden
-                    _Logger.Debug("Validation Index not set to '" & _value.ToString & "'.")
+                    _Logger.Debug($"File_SetBooleanIndex: writing [{_value}] to index [{_Indexname}]")
                     Dim arrIndex() As String = Nothing
                     Dim arrValue() As String = Nothing
                     'Nun die Datei indexieren
@@ -2567,6 +2540,8 @@ Public Class frmNIHauptseite
                     'Validation muß nicht angepasst werden
                     _Logger.Debug("Validation Index already set to '" & _value & "'.")
                 End If
+            Else
+                _Logger.Warn($"File_SetBooleanIndex: _Indexname is empty - no index written! (Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}] Value=[{_value}])")
             End If
         Catch ex As Exception
             _Logger.Warn("Error in File_SetBooleanIndex")

ToolCollection/frmNIProfileigenschaften.Designer.vb

@@ -635,7 +635,7 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox1.Size = New System.Drawing.Size(624, 83)
         Me.GroupBox1.TabIndex = 70
         Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Indexname - Nachindexierung fehlerhaft:"
+        Me.GroupBox1.Text = "Indexname - Nachindexierung/Nachbearbeitung fehlerhaft:"
         '
         'Label6
         '
@@ -701,7 +701,7 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox2.Size = New System.Drawing.Size(624, 83)
         Me.GroupBox2.TabIndex = 75
         Me.GroupBox2.TabStop = False
-        Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Indexierung:"
+        Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Nachindexierung/Nachbearbeitung:"
         '
         'Label8
         '
@@ -962,7 +962,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(958, 455)
+        Me.TabPage2.Size = New System.Drawing.Size(970, 465)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kennzeichnung und Active Directory"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -976,7 +976,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50)
         Me.grbxNB_AD.TabIndex = 77
         Me.grbxNB_AD.TabStop = False
-        Me.grbxNB_AD.Text = "Indexierung AD (Rechte anpassen)"
+        Me.grbxNB_AD.Text = "Indexierung AD (Rechteverwaltung)"
         '
         'chkbxAD
         '
@@ -998,7 +998,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(958, 455)
+        Me.TabPage3.Size = New System.Drawing.Size(970, 465)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -1007,7 +1007,6 @@ Partial Class frmNIProfileigenschaften
         '
         Me.grpbxMORE.Controls.Add(Me.btnMoveRename)
         Me.grpbxMORE.Controls.Add(Me.Label21)
-        Me.grpbxMORE.Enabled = False
         Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grpbxMORE.Location = New System.Drawing.Point(6, 104)
         Me.grpbxMORE.Name = "grpbxMORE"
@@ -1285,7 +1284,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
         Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(958, 455)
+        Me.TabPage4.Size = New System.Drawing.Size(970, 465)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
         Me.TabPage4.UseVisualStyleBackColor = True

ToolCollection/frmNIProfileigenschaften.resx

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAeABAAHgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmNIProfileigenschaften.vb

@@ -15,7 +15,7 @@ Public Class frmNIProfileigenschaften
     ' verhindert (wenn True) das _selectedProfile auf Nothing gesetzt wird, wenn das Panel auf visible = True gesetzt wird
     Private _flagIgnoreVisibilityChanged As Boolean = False
     Private Shared _Instance As frmNIProfileigenschaften = Nothing
-    Private licenseManager As ClassLicenseManager = Nothing
+    Private passwordCrypto As ClassPasswordCrypto = Nothing
     Private INDEX_LIST As New List(Of String)
     Private selectedProfile As ClassNIProfil
     Public Shared Function Instance() As frmNIProfileigenschaften
@@ -39,14 +39,7 @@ Public Class frmNIProfileigenschaften
         _windream = New ClassWindream_allgemein(_MyLogger)
         ' alle Profile in die Toolbar-Combobox eintragen
         Me.LoadProfilesInCombobox()
-        Try
-            Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-            Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-            Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-            Me.licenseManager.LoadLicenses()
-        Catch ex As Exception
-            MsgBox("Fehler beim Laden der Lizenzen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+
     End Sub
     Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
 
@@ -442,8 +435,8 @@ Public Class frmNIProfileigenschaften
                         If _selectedProfile.Password <> "" And _selectedProfile.UserId <> "" Then
                             Me.chkbxUserIdent.Checked = False
                             Me.txtLDAP_User.Text = _selectedProfile.UserId
-                            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
-                            Dim PWDecode As String = licenseManager.DecodeLicenseKey(_selectedProfile.Password)
+                            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
+                            Dim PWDecode As String = passwordCrypto.DecodePassword(_selectedProfile.Password)
                             Me.txtLDAP_PW.Text = PWDecode
                         Else
                             Me.chkbxUserIdent.Checked = True
@@ -522,7 +515,7 @@ Public Class frmNIProfileigenschaften
 
 
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
-        ' wenn bereits ein Profil ausgewählt wurde
+
         If Me._selectedProfile IsNot Nothing Then
             Me.cmbIndexValidierung.SelectedIndex = -1
             If _selectedProfile.HasChanges Then
@@ -1109,11 +1102,6 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub frmNIProfileigenschaften_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If LICENSE_MoveRename = True Then
-            grpbxMORE.Enabled = True
-        Else
-            grpbxMORE.Enabled = False
-        End If
         If Me._selectedProfile Is Nothing Then
             Me.pnlProfileigenschaften.Visible = False
         Else
@@ -1170,8 +1158,8 @@ Public Class frmNIProfileigenschaften
 
     Private Sub txtLDAP_PW_TextChanged(sender As Object, e As EventArgs) Handles txtLDAP_PW.TextChanged
         If Me._selectedProfile IsNot Nothing Then
-            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
-            Dim encodePW As String = licenseManager.EncodeLicenseKey(txtLDAP_PW.Text, "#DigitalData9731258!#")
+            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
+            Dim encodePW As String = passwordCrypto.EncodePassword(txtLDAP_PW.Text, "#DigitalData9731258!#")
             Me._selectedProfile.Password = encodePW
             If Not Me._selectedProfile.Password = Me._selectedProfile.OriginalPassword Then
                 Me.btnSpeichern.Enabled = True

ToolCollection/frmNIProfilhinzufuegen.vb

@@ -4,7 +4,7 @@ Public Class frmNIProfilhinzufuegen
     Private _oDokumentTypen As WINDREAMLib.WMObjects
     Public Shared _windream As ClassWindream_allgemein
     Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
-    Private licenseManager As ClassLicenseManager = Nothing
+    Private passwordCrypto As ClassPasswordCrypto = Nothing
 
 
     Public Shared Function Instance() As frmNIProfilhinzufuegen
@@ -138,8 +138,8 @@ Public Class frmNIProfilhinzufuegen
             ' Nachindexierung über AD
             If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" Then
                 If chkbxUserIdent.Checked = False And txtLDAP_Domaene.Text <> "" And txtLDAP_PW.Text <> "" And txtLDAP_User.Text <> "" Then
-                    Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
-                    Dim key As String = licenseManager.EncodeLicenseKey(txtLDAP_PW.Text, "#DigitalData9731258!#")
+                    Me.passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
+                    Dim key As String = passwordCrypto.EncodePassword(txtLDAP_PW.Text, "#DigitalData9731258!#")
                     ' das Profil hinzufügen -  AD MIT AUTH
                     ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "activedirectory", "", "", txtLDAP_Domaene.Text, txtLDAP_User.Text, key, "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
                     ' und das Formular schließen

ToolCollection/frmNIVerknuepfungen.Designer.vb

@@ -1461,9 +1461,10 @@ Partial Class frmNIVerknuepfungen
         Me.Label27.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label27.Location = New System.Drawing.Point(7, 14)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(120, 13)
+        Me.Label27.Size = New System.Drawing.Size(761, 13)
         Me.Label27.TabIndex = 22
-        Me.Label27.Text = "2. Regular Expression:"
+        Me.Label27.Text = "2. Regular Expression: ACHTUNG: REGEX DARF NUR AUS EINER MATCHING GROUP BESTEHEN," &
+    " DA ES SONST FEHLER BEIM INDEXIEREN VERURSACHT!"
         '
         'GroupBox4
         '
@@ -1743,6 +1744,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnUnlink
         '
+        Me.btnUnlink.Enabled = False
         Me.btnUnlink.Image = Global.ToolCollection.My.Resources.Resources.link_break
         Me.btnUnlink.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnUnlink.Location = New System.Drawing.Point(409, 202)
@@ -1763,9 +1765,10 @@ Partial Class frmNIVerknuepfungen
         '
         'btnLink
         '
+        Me.btnLink.Enabled = False
         Me.btnLink.Image = Global.ToolCollection.My.Resources.Resources.link
         Me.btnLink.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnLink.Location = New System.Drawing.Point(407, 167)
+        Me.btnLink.Location = New System.Drawing.Point(409, 167)
         Me.btnLink.Name = "btnLink"
         Me.btnLink.Size = New System.Drawing.Size(28, 29)
         Me.btnLink.TabIndex = 15

ToolCollection/frmNIVerknuepfungen.vb

@@ -486,25 +486,23 @@ Public Class frmNIVerknuepfungen
     ''' </summary>
     ''' <remarks></remarks>
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
-        ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text)
-        Me._selectedProfil = ClassNIProfile.aktivesProfil
         Try
-            'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
             If Me._selectedProfil IsNot Nothing Then
-                Me.LoadSelectedProfile(e.ClickedItem.Text)
-                Me.pnlZielQuelle.Enabled = True
-            Else ' wenn bereits ein Profil geladen war
+                If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub
                 If Me._selectedProfil.HasChanges Then
                     Me._selectedProfil.Save(True, "profile")
                 End If
-                ' wenn ein anderes Profil ausgewählt wurde
-                If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
-                    Me.LoadSelectedProfile(e.ClickedItem.Text)
-                Else
-                    'MsgBox("Keine Änderung")
-                End If
             End If
 
+            Me.LoadSelectedProfile(e.ClickedItem.Text)
+            Me.pnlZielQuelle.Enabled = True
+
+            For i = 0 To arrProfile.GetUpperBound(0)
+                If arrProfile(i, 0) = e.ClickedItem.Text Then
+                    _pos = arrProfile(i, 1)
+                End If
+            Next
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile")
         End Try
@@ -560,6 +558,7 @@ Public Class frmNIVerknuepfungen
                     Next
                 End If
 
+                EnableBtnLink()
 
             End If
 
@@ -657,25 +656,35 @@ Public Class frmNIVerknuepfungen
             If LVW.SelectedItems.Count > 0 Then
                 LVW.Sorting = Windows.Forms.SortOrder.None
                 If Down = True Then
-                    If LVW.SelectedItems(LVW.SelectedItems.Count - 1).Index < LVW.Items.Count - 1 Then
-                        For i = LVW.SelectedItems.Count - 1 To 0 Step -1
-                            OldItem = LVW.Items(LVW.SelectedItems(i).Index + 1)
-                            OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
-                            LVW.Items(OldPos + 1) = LVW.SelectedItems(i).Clone
-                            LVW.Items(OldPos) = OldItem
-                            LVW.Items(OldPos + 1).Selected = True
-                        Next
-                    End If
+                    If LVW.SelectedItems(0).Index = LVW.Items.Count - 1 Then Return
+                    Dim index = LVW.SelectedItems(0).Index
+
+                    LVW.BeginUpdate()
+                    Try
+                        Dim item = LVW.SelectedItems(0)
+                        LVW.Items.RemoveAt(index)
+                        LVW.Items.Insert(index + 1, item)
+                        item.Selected = True
+                        item.Focused = True
+                        item.EnsureVisible()
+                    Finally
+                        LVW.EndUpdate()
+                    End Try
                 Else
-                    If LVW.SelectedItems(0).Index > 0 Then
-                        For i = 0 To LVW.SelectedItems.Count - 1
-                            OldItem = LVW.Items(LVW.SelectedItems(i).Index - 1)
-                            OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
-                            LVW.Items(OldPos - 1) = LVW.SelectedItems(i).Clone
-                            LVW.Items(OldPos) = OldItem
-                            LVW.Items(OldPos - 1).Selected = True
-                        Next
-                    End If
+                    If LVW.SelectedItems(0).Index = 0 Then Return
+                    Dim index = LVW.SelectedItems(0).Index
+
+                    LVW.BeginUpdate()
+                    Try
+                        Dim item = LVW.SelectedItems(0)
+                        LVW.Items.RemoveAt(index)
+                        LVW.Items.Insert(index - 1, item)
+                        item.Selected = True
+                        item.Focused = True
+                        item.EnsureVisible()
+                    Finally
+                        LVW.EndUpdate()
+                    End Try
                 End If
                 '' definieren das am aktuellen Profil Änderungen vorgenommen wurden
                 Me._selectedProfil.setChanged()
@@ -785,70 +794,46 @@ Public Class frmNIVerknuepfungen
             Return Nothing
         End Try
     End Function
-    Private Function GetMsSqlFunctions(Type As String) As String()
+    Private Function GetMsSqlFunctions(ParamArray types As String()) As String()
         Try
             Dim SqlString As String
             Dim DataViews() As String = Nothing
             Dim i As Integer = 0
 
-            'Dim ConnectionString As SqlConnectionStringBuilder
             Dim Connection As SqlConnection
             Dim Command As SqlCommand
             Dim DataAdapter As SqlDataAdapter
             Dim DataSet As DataSet = New DataSet()
 
             Dim con As String
-            ' ConnectionString aufbauen
             If _selectedProfil.UserId = "WINAUTH" Then
                 con = "Data Source=" & _selectedProfil.DataSource & ";Initial Catalog=" & _selectedProfil.InitialCatalog & ";Trusted_Connection=True;"
             Else
                 con = "Server=" & _selectedProfil.DataSource & ";Database=" & _selectedProfil.InitialCatalog & ";User Id=" & _selectedProfil.UserId & ";Password=" & _selectedProfil.Password & ";"
             End If
-            'ConnectionString = New SqlConnectionStringBuilder()
-            'ConnectionString.DataSource = Me._selectedProfil.DataSource
-            'ConnectionString.UserID = Me._selectedProfil.UserId
-            'ConnectionString.Password = Me._selectedProfil.Password
-            'ConnectionString.InitialCatalog = Me._selectedProfil.InitialCatalog
 
-            ' Verbindung zur DB herstellen
             Connection = New SqlConnection(con)
             Connection.Open()
 
-            ' DB-Abfrage für alle Views definieren 
-            SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type = '{Type}'"
+            Dim typeList As String = String.Join("','", types)
+            SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type IN ('{typeList}')"
 
-            ' die DB-Abfrage erzeugen
             Command = New SqlCommand(SqlString, Connection)
-
-            ' die DB-Abfrage durchführen
             DataAdapter = New SqlDataAdapter(Command)
-
-            ' das DataSet mit den Daten füllen
             DataAdapter.Fill(DataSet)
 
-
             If DataSet.Tables(0).Rows.Count > 0 Then
-
-                Dim tabellenart As String = "FUNCTIONS"
-
-
-                ' alle Ergebnisse (VIEWs) durchlaufen
                 For Each row As DataRow In DataSet.Tables(0).Rows
-
                     If DataViews IsNot Nothing Then ReDim Preserve DataViews(DataViews.Length) Else ReDim DataViews(0)
-                    ' View in Array schreiben
                     DataViews(i) = row.Item(0)
                     i += 1
-
-
                 Next
-                ' Array zurückgeben
+
                 Return DataViews
             Else
                 Return Nothing
             End If
 
-
         Catch ex As Exception
             MsgBox("Die MSSQL-Datenansichten der Datenbank konnten nicht fehlerfrei ausgelesen werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Auslesen der Datenansichten MSSQL")
             Return Nothing
@@ -1383,6 +1368,34 @@ Public Class frmNIVerknuepfungen
         End Try
 
     End Function
+
+    Private Sub EnableBtnLink()
+        If Me._selectedProfil Is Nothing Then
+            btnLink.Enabled = False
+            Return
+        End If
+
+        Select Case Me._selectedProfil.Ni_Art
+            Case "db", "activedirectory"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (lbxQuelle1.SelectedItems.Count > 0 OrElse txtManIndexwert.Text <> "")
+
+            Case "xml"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (trvwxml.SelectedNode IsNot Nothing OrElse txtManIndexwert.Text <> "")
+
+            Case "fulltext"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (txtregex.Text <> "" OrElse txtManIndexwert.Text <> "")
+
+            Case Else
+                btnLink.Enabled = False
+        End Select
+    End Sub
+
     Private Sub btnLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLink.Click
         ' wenn im ListView ein Element selektiert wurde
         If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
@@ -1684,24 +1697,6 @@ Public Class frmNIVerknuepfungen
 
 
     Private Sub lvwVerknuepfungen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwVerknuepfungen.SelectedIndexChanged
-        If Not Me._selectedProfil._links.IsSaved Then
-
-            Dim msgResult As MsgBoxResult = MsgBox("Möchten Sie die Änderungen speichern?", MsgBoxStyle.YesNoCancel, "Änderungen übernehmen?")
-            If msgResult = MsgBoxResult.Yes Then
-
-                'If Not Me._selectedProfil.IsSaved Then
-                '    SaveProfile()
-                'End If
-
-                If Not Me._selectedProfil._links.IsSaved Then
-                    SaveLinks()
-                    SaveProfile()
-                End If
-            Else
-                Me._selectedProfil._links.setLinksSaved()
-                Me._selectedProfil.setSaved()
-            End If
-        End If
 
         Select Case Me._selectedProfil.Ni_Art
             Case "db"
@@ -1709,6 +1704,9 @@ Public Class frmNIVerknuepfungen
                     If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
                         If Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.StartsWith("%") And Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.EndsWith("%") Then
                             Me.grbFilterDB.Enabled = False
+
+                            btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
+
                             Exit Sub
                         End If
                     End If
@@ -2027,7 +2025,7 @@ Public Class frmNIVerknuepfungen
             End If
 
         End If
-
+        btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
 
     End Sub
 
@@ -2837,6 +2835,8 @@ Public Class frmNIVerknuepfungen
         Else
             grbFilterDB.Enabled = True
         End If
+
+        EnableBtnLink()
     End Sub
     Private Sub txtGrundgeruest_check_Click(sender As System.Object, e As System.EventArgs) Handles txtGrundgeruest_check.Click
         Me.txtCheckIndexSQL.Text = "SELECT COUNT(*) FROM [%view] WHERE "
@@ -3458,6 +3458,7 @@ Public Class frmNIVerknuepfungen
             End If
 
         End If
+        EnableBtnLink()
         'Catch ex As Exception
         '    MsgBox("Fehler bei Check Änderung Regex:" & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         'End Try
@@ -3530,7 +3531,14 @@ Public Class frmNIVerknuepfungen
         If _selectedIndex_Type Is Nothing = False Then
             visinvisible_Vektor_ins_State()
         End If
+
+        EnableBtnLink()
     End Sub
+
+    Private Sub lbxQuelle1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxQuelle1.SelectedIndexChanged
+        EnableBtnLink()
+    End Sub
+
     Sub visinvisible_Vektor_ins_State()
         If _selectedIndex_Type.StartsWith("Vektor") Then
             Me.rbvkt_add.Visible = True
@@ -3599,8 +3607,7 @@ Public Class frmNIVerknuepfungen
     End Sub
 
     Private Sub trvwxml_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwxml.AfterSelect
-
-
+        EnableBtnLink()
     End Sub
 
     Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged
@@ -3714,6 +3721,40 @@ Public Class frmNIVerknuepfungen
         End If
     End Sub
 
+    Private Sub rbFunctionsTb_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsTb.CheckedChanged
+        If Not _flagIgnoreCheckedChanged Then
+            If Me._selectedProfil Is Nothing = False Then
+                Me.cmbDataviews.Items.Clear()
+
+                ' View- oder Tabellenliste
+                Dim dataviews() As String = Nothing
+                If Me._selectedProfil.DbArt = "MS-SQL" Then
+                    dataviews = Me.GetMsSqlFunctions("TF", "IF")
+                    'ElseIf Me._selectedProfil.DbArt = "ODBC" Then
+                    '    dataviews = Me.GetOdbcDataviews(Me.rbViews.Checked)
+                    'ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
+                    '    dataviews = Me.GetOleDataviews(Me.rbViews.Checked)
+                Else
+                    MsgBox("Der gewählte Datenbanktyp ist nicht für Funktionen unterstützt.", MsgBoxStyle.Critical, "Unbekannter Datenbanktyp")
+                End If
+
+                If dataviews IsNot Nothing Then
+
+                    For Each dataview As String In dataviews
+                        Me.cmbDataviews.Items.Add(dataview)
+                    Next
+
+                End If
+
+
+                Me.txtSelectAnweisung.Text = ""
+            Else
+                MsgBox("Bitte wählen Sie ein Profil aus!", MsgBoxStyle.Information, "Achtung:")
+            End If
+
+        End If
+    End Sub
+
     Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
 
     End Sub

ToolCollection/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmStart
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
@@ -29,6 +29,7 @@ Partial Class frmStart
         Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
         Me.menHauptmenü = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -36,19 +37,17 @@ Partial Class frmStart
         Me.ZeigeLogFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÖffneLogverzeichnisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ModuleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.LizenzverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PasswortverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CriticalEmailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
-        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PanelMain = New System.Windows.Forms.Panel()
+        Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
         Me.btnNachbearbeitungAD = New System.Windows.Forms.Button()
         Me.grbxMoRe = New System.Windows.Forms.GroupBox()
         Me.btnOpen_MoReProfile = New System.Windows.Forms.Button()
-        Me.GroupBoxIntegration = New System.Windows.Forms.GroupBox()
-        Me.Button3 = New System.Windows.Forms.Button()
         Me.GBNachindexierung = New System.Windows.Forms.GroupBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnNIProfile = New System.Windows.Forms.Button()
@@ -63,12 +62,11 @@ Partial Class frmStart
         Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
         Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
         Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
-        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
         Me.StatusStrip1.SuspendLayout()
         Me.menHauptmenü.SuspendLayout()
-        Me.Panel1.SuspendLayout()
+        Me.PanelMain.SuspendLayout()
+        Me.groupboxNachbearbeitungAD.SuspendLayout()
         Me.grbxMoRe.SuspendLayout()
-        Me.GroupBoxIntegration.SuspendLayout()
         Me.GBNachindexierung.SuspendLayout()
         Me.grbDI.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -128,6 +126,15 @@ Partial Class frmStart
         Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20)
         Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs"
         '
+        'ToolStripStatusLabel_ConnectionString
+        '
+        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
+        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
+        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
+        '
         'menHauptmenü
         '
         Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control
@@ -150,20 +157,20 @@ Partial Class frmStart
         '
         Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1
         Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem"
-        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.ÜbersichtToolStripMenuItem.Text = "Übersicht"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.BeendenToolStripMenuItem.Text = "Beenden"
         '
         'ZeigeLogFileToolStripMenuItem
         '
         Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem})
         Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem"
-        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File"
         '
         'ÖffneLogverzeichnisToolStripMenuItem
@@ -174,34 +181,27 @@ Partial Class frmStart
         '
         'ModuleToolStripMenuItem
         '
-        Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LizenzverwaltungToolStripMenuItem, Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
+        Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
         Me.ModuleToolStripMenuItem.Name = "ModuleToolStripMenuItem"
         Me.ModuleToolStripMenuItem.Size = New System.Drawing.Size(75, 20)
         Me.ModuleToolStripMenuItem.Text = "Bearbeiten"
         '
-        'LizenzverwaltungToolStripMenuItem
-        '
-        Me.LizenzverwaltungToolStripMenuItem.Name = "LizenzverwaltungToolStripMenuItem"
-        Me.LizenzverwaltungToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F10
-        Me.LizenzverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.LizenzverwaltungToolStripMenuItem.Text = "Lizenzverwaltung"
-        '
         'PasswortverwaltungToolStripMenuItem
         '
         Me.PasswortverwaltungToolStripMenuItem.Name = "PasswortverwaltungToolStripMenuItem"
-        Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.PasswortverwaltungToolStripMenuItem.Text = "Passwortverwaltung"
         '
         'GrundeinstellungenToolStripMenuItem
         '
         Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
-        Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen"
         '
         'CriticalEmailTestToolStripMenuItem
         '
         Me.CriticalEmailTestToolStripMenuItem.Name = "CriticalEmailTestToolStripMenuItem"
-        Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.CriticalEmailTestToolStripMenuItem.Text = "Critical Email - Test"
         '
         'HilfeToolStripMenuItem
@@ -234,39 +234,49 @@ Partial Class frmStart
         Me.ImageList1.Images.SetKeyName(7, "ico6700.ico")
         Me.ImageList1.Images.SetKeyName(8, "ico7215.ico")
         '
-        'Panel1
+        'PanelMain
         '
-        Me.Panel1.Controls.Add(Me.btnNachbearbeitungAD)
-        Me.Panel1.Controls.Add(Me.grbxMoRe)
-        Me.Panel1.Controls.Add(Me.GroupBoxIntegration)
-        Me.Panel1.Controls.Add(Me.GBNachindexierung)
-        Me.Panel1.Controls.Add(Me.grbDI)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel1.Location = New System.Drawing.Point(0, 24)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(163, 589)
-        Me.Panel1.TabIndex = 10
+        Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD)
+        Me.PanelMain.Controls.Add(Me.grbxMoRe)
+        Me.PanelMain.Controls.Add(Me.GBNachindexierung)
+        Me.PanelMain.Controls.Add(Me.grbDI)
+        Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left
+        Me.PanelMain.Location = New System.Drawing.Point(0, 24)
+        Me.PanelMain.Name = "PanelMain"
+        Me.PanelMain.Size = New System.Drawing.Size(163, 589)
+        Me.PanelMain.TabIndex = 10
+        '
+        'groupboxNachbearbeitungAD
+        '
+        Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
+        Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
+        Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 395)
+        Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
+        Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
+        Me.groupboxNachbearbeitungAD.TabIndex = 5
+        Me.groupboxNachbearbeitungAD.TabStop = False
+        Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
         '
         'btnNachbearbeitungAD
         '
-        Me.btnNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
         Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnNachbearbeitungAD.Image = Global.ToolCollection.My.Resources.Resources.Untitled__142_
         Me.btnNachbearbeitungAD.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(0, 464)
+        Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(6, 21)
         Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD"
-        Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(163, 42)
+        Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42)
         Me.btnNachbearbeitungAD.TabIndex = 4
-        Me.btnNachbearbeitungAD.Text = "ActiveDirectory" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nachbearbeitung"
+        Me.btnNachbearbeitungAD.Text = "Rechteverwaltung"
         Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True
-        Me.btnNachbearbeitungAD.Visible = False
         '
         'grbxMoRe
         '
         Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile)
         Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top
-        Me.grbxMoRe.Location = New System.Drawing.Point(0, 394)
+        Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.grbxMoRe.Location = New System.Drawing.Point(0, 325)
         Me.grbxMoRe.Name = "grbxMoRe"
         Me.grbxMoRe.Size = New System.Drawing.Size(163, 70)
         Me.grbxMoRe.TabIndex = 4
@@ -279,7 +289,7 @@ Partial Class frmStart
         Me.btnOpen_MoReProfile.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnOpen_MoReProfile.Image = Global.ToolCollection.My.Resources.Resources.Untitled__49_
         Me.btnOpen_MoReProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(3, 21)
+        Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(6, 21)
         Me.btnOpen_MoReProfile.Name = "btnOpen_MoReProfile"
         Me.btnOpen_MoReProfile.Size = New System.Drawing.Size(153, 41)
         Me.btnOpen_MoReProfile.TabIndex = 4
@@ -287,31 +297,6 @@ Partial Class frmStart
         Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True
         '
-        'GroupBoxIntegration
-        '
-        Me.GroupBoxIntegration.Controls.Add(Me.Button3)
-        Me.GroupBoxIntegration.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBoxIntegration.Location = New System.Drawing.Point(0, 325)
-        Me.GroupBoxIntegration.Name = "GroupBoxIntegration"
-        Me.GroupBoxIntegration.Size = New System.Drawing.Size(163, 69)
-        Me.GroupBoxIntegration.TabIndex = 3
-        Me.GroupBoxIntegration.TabStop = False
-        Me.GroupBoxIntegration.Text = "DD Integration"
-        Me.GroupBoxIntegration.Visible = False
-        '
-        'Button3
-        '
-        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.Untitled__640_
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(4, 21)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(153, 41)
-        Me.Button3.TabIndex = 2
-        Me.Button3.Text = "Profilkonfiguration"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
-        '
         'GBNachindexierung
         '
         Me.GBNachindexierung.Controls.Add(Me.Button1)
@@ -325,7 +310,6 @@ Partial Class frmStart
         Me.GBNachindexierung.TabIndex = 1
         Me.GBNachindexierung.TabStop = False
         Me.GBNachindexierung.Text = "Nachindexierung"
-        Me.GBNachindexierung.Visible = False
         '
         'Button1
         '
@@ -379,7 +363,6 @@ Partial Class frmStart
         Me.grbDI.TabIndex = 0
         Me.grbDI.TabStop = False
         Me.grbDI.Text = "Dateiimporter"
-        Me.grbDI.Visible = False
         '
         'btnRegelverwaltung
         '
@@ -425,7 +408,6 @@ Partial Class frmStart
         Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
         Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
         Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         '
         'ContextMenuStrip1
         '
@@ -452,36 +434,26 @@ Partial Class frmStart
         '
         Me.TimerDeleteLogfiles.Interval = 1000
         '
-        'ToolStripStatusLabel_ConnectionString
-        '
-        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
-        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
-        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
-        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1237, 638)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.PanelMain)
         Me.Controls.Add(Me.menHauptmenü)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.Name = "frmStart"
-        Me.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.menHauptmenü.ResumeLayout(False)
         Me.menHauptmenü.PerformLayout()
-        Me.Panel1.ResumeLayout(False)
+        Me.PanelMain.ResumeLayout(False)
+        Me.groupboxNachbearbeitungAD.ResumeLayout(False)
         Me.grbxMoRe.ResumeLayout(False)
-        Me.GroupBoxIntegration.ResumeLayout(False)
         Me.GBNachindexierung.ResumeLayout(False)
         Me.grbDI.ResumeLayout(False)
         Me.ContextMenuStrip1.ResumeLayout(False)
@@ -496,11 +468,10 @@ Partial Class frmStart
     Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ModuleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents LizenzverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents HilfeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ÜberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents PanelMain As System.Windows.Forms.Panel
     Friend WithEvents grbDI As System.Windows.Forms.GroupBox
     Friend WithEvents btnDIMain As System.Windows.Forms.Button
     Friend WithEvents btnDIProfile As System.Windows.Forms.Button
@@ -510,8 +481,6 @@ Partial Class frmStart
     Friend WithEvents btnNIProfile As System.Windows.Forms.Button
     Friend WithEvents btnNIMain As System.Windows.Forms.Button
     Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents Button3 As System.Windows.Forms.Button
-    Friend WithEvents GroupBoxIntegration As System.Windows.Forms.GroupBox
     Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button
     Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
@@ -529,4 +498,5 @@ Partial Class frmStart
     Friend WithEvents TimerDeleteLogfiles As Timer
     Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
     Friend WithEvents ToolStripStatusLabel_ConnectionString As ToolStripStatusLabel
+    Friend WithEvents groupboxNachbearbeitungAD As GroupBox
 End Class

ToolCollection/frmStart.resx

@@ -159,7 +159,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
-        FAAAAk1TRnQBSQFMAgEBCQEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FAAAAk1TRnQBSQFMAgEBCQEAAZABAwGQAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmStart.vb

@@ -1,28 +1,11 @@
-Imports System.Collections.ObjectModel
-Imports System.Reflection
-Imports System.Globalization
-Imports DigitalData.Modules.Logging
-Imports System.IO
-Imports DigitalData.Modules.Database
+Imports System.IO
 Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
 
 Public Class frmStart
     Private _MyLogger As LogConfig
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
-    Public _validModules()
-    Public _company As String
-    ' Dim timediff As Integer = 0
-    Private licenseManager As ClassLicenseManager = Nothing
-    'Private Sub timUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timUhrzeit.Tick
-    '    ' der Statusuhr die aktuelle Systemzeit zuweisen
-    '    Me.Status_Clock.Text = CType(My.Computer.Clock.LocalTime, String)
-    '    timediff += 1000
-    '    If timediff >= 86400000 Then
-    '        'LogDateien-löschen
-    '        Delete_LogFiles()
-    '    End If
-    'End Sub
-
 
     ' CREATE INSTANCE
     Private Shared _Instance As frmStart = Nothing
@@ -127,15 +110,41 @@ Public Class frmStart
         Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie " & Application.ProductName & " wirklich schließen wollen?" & vbNewLine & "Alle Vorgänge/Module werden gestoppt und nicht mehr ausgeführt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
         If result = MsgBoxResult.No Then
             e.Cancel = True
+            Return          ' ← wichtig: hier sofort raus, kein Logout
+        End If
+
+        If Not IsNothing(CURRENToWMSession) Then
+            _Logger.Debug("Closing frmStart - Now logging out of windream session...")
+            Try
+                CURRENToWMSession.Logout()
+                _Logger.Debug("windream session logged out successfully.")
+            Catch ex As Exception
+                _Logger.Warn("Error while logging out windream session: " & ex.Message)
+                _Logger.Error(ex)
+            End Try
         End If
     End Sub
 
     Private Sub CaptionForm()
+        Dim caption As String
+
         If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
-            Me.Text = Application.CompanyName & " - " & Application.ProductName
+            caption = Application.CompanyName & " - " & Application.ProductName
         Else
-            Me.Text = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
+            caption = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
         End If
+
+        ' Fenster-Titel setzen
+        Me.Text = caption
+
+        Dim trayText As String = caption
+
+        If trayText.Length > 63 Then
+            trayText = trayText.Substring(0, 60) & "..."
+        End If
+
+        ' Systray-Tooltip setzen
+        niToolcollection.Text = trayText
     End Sub
 
     Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
@@ -203,14 +212,6 @@ Public Class frmStart
 
             End If
 
-            If Not My.Settings.licensekey = "" Then
-                ' Lizenz-Manager initialisieren
-                Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-                ' alle vorhandenen Module laden
-                Me.LoadAllModules()
-            End If
-
         Catch ex As Exception
             _Logger.Error(ex)
         End Try
@@ -292,108 +293,11 @@ Public Class frmStart
         Cursor = Cursors.Default
     End Sub
 
-    Private Sub LizenzverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzverwaltungToolStripMenuItem.Click
-        ' Öffnet den Lizenz-Manager
-        frmLizenzmanager.ShowDialog()
-    End Sub
     Public Sub ClearGroupBoxes()
         Me.grbDI.Visible = False
         Me.GBNachindexierung.Visible = False
-        Me.GroupBoxIntegration.Visible = False
         Me.grbxMoRe.Visible = False
-        LICENSE_MoveRename = False
-        LICENSE_AD = False
     End Sub
-    Public Sub LoadAllModules()
-        Me._validModules = Nothing
-
-        If Not My.Settings.licensekey = "" Then
-            If My.Settings.licensekey = "DD MaxLicense" Or My.Settings.licensekey.ToUpper = "DDALLIN" Or My.Settings.licensekey.ToUpper = "DD_ALL_IN" Or My.Settings.licensekey.ToUpper = "DD_ALLIN" Then
-                Me.grbDI.Visible = True
-                Me.GBNachindexierung.Visible = True
-                Me.GroupBoxIntegration.Visible = True
-
-                btnNachbearbeitungAD.Visible = True
-                LICENSE_AD = True
-                LICENSE_MoveRename = True
-            Else
-                'Me.licenseManager = New ClassLicenseManager = Nothing
-                Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-                Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-
-                Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-                Me.licenseManager.LoadLicenses()
-
-                If Me.licenseManager.Licenses.machine.ToLower <> "all" Then
-                    If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower Then
-                        MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine &
-                                   "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
-                        Me.grbDI.Visible = False
-                        Me.GBNachindexierung.Visible = False
-                        Me.GroupBoxIntegration.Visible = False
-
-                        Exit Sub
-                    End If
-                End If
-
-                Dim i As Integer = 0
-
-                If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-                    For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                        Dim expires As String = license.Expires.Date
-                        If IsExpired(license.Expires.Date) = False Then
-                            ' MsgBox(license.Modulename & vbNewLine & expires)
-                            Select Case license.Modulename
-                                Case "Dateiimport"
-                                    Me.grbDI.Visible = True
-                                Case "Nachindexierung"
-                                    Me.GBNachindexierung.Visible = True
-                                Case "MerkatorIntegration"
-                                    Me.GroupBoxIntegration.Visible = True
-                                Case "MoveandRename"
-                                    'Me.grbxMoRe.Visible = True
-                                    LICENSE_MoveRename = True
-                                Case "NachbearbeitungAD"
-                                    btnNachbearbeitungAD.Visible = True
-                                    LICENSE_AD = True
-                            End Select
-                            i += 1
-                        Else
-                            MsgBox("Ihre Lizenz für das Modul '" & license.Modulename & "' ist am ' " & license.Expires.Date.ToShortDateString & "' abgelaufen" & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz abgelaufen:")
-                            Select Case license.Modulename
-                                Case "Dateiimport"
-                                    Me.grbDI.Visible = False
-                                Case "Nachindexierung"
-                                    Me.GBNachindexierung.Visible = False
-                                Case "MerkatorIntegration"
-                                    Me.GroupBoxIntegration.Visible = False
-                                Case "MoveandRename"
-                                    Me.GroupBoxIntegration.Visible = False
-                                    LICENSE_MoveRename = False
-                                Case "NachbearbeitungAD"
-                                    btnNachbearbeitungAD.Visible = False
-                                    LICENSE_AD = False
-                            End Select
-                            i += 1
-                        End If
-                        'Date.TryParse(expires, license.Expires)
-
-                    Next
-                End If
-            End If
-
-
-
-        End If
-    End Sub
-    Private Function IsExpired(ByVal _Date As Date)
-        If Date.Today > _Date Then
-            Return True
-        Else
-            Return False
-        End If
-    End Function
 
     Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         TimerNIRestart.Start()
@@ -445,22 +349,10 @@ Public Class frmStart
         frmabout.ShowDialog()
     End Sub
 
-    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        'WMOLICLib.WMLicenser()
-    End Sub
-
     Private Sub PasswortverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswortverwaltungToolStripMenuItem.Click
         frmPWChange.ShowDialog()
     End Sub
 
-    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
-        Cursor = Cursors.WaitCursor
-        Dim frm As New frmMIProfileigenschaften
-        frm.MdiParent = Me
-        frm.Show()
-        Cursor = Cursors.Default
-    End Sub
-
     Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click
 
     End Sub

ToolCollection/packages.config

@@ -2,5 +2,6 @@
 <packages>
   <package id="EntityFramework" version="6.0.2" targetFramework="net451" />
   <package id="NLog" version="5.0.2" targetFramework="net462" />
-  <package id="System.Data.SQLite" version="1.0.91.3" targetFramework="net451" />
+  <package id="Stub.System.Data.SQLite.Core.NetFramework" version="1.0.119.0" targetFramework="net462" />
+  <package id="System.Data.SQLite.Core" version="1.0.119.0" targetFramework="net462" />
 </packages>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net20/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net40/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net45/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net451/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net46/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net20/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net40/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net45/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net451/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net46/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net20/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net40/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net45/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net451/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net46/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net20/app.config.transform

@@ -1,11 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net20/web.config.transform

@@ -1,11 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net40/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net40/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net45/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net45/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net451/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net451/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/tools/net20/install.ps1

@@ -1,36 +0,0 @@
-###############################################################################
-#
-# install.ps1 --
-#
-# Written by Joe Mistachkin.
-# Released to the public domain, use at your own risk!
-#
-###############################################################################
-
-param($installPath, $toolsPath, $package, $project)
-
-$platformNames = "x86", "x64"
-$fileName = "SQLite.Interop.dll"
-$propertyName = "CopyToOutputDirectory"
-
-foreach($platformName in $platformNames) {
-  $folder = $project.ProjectItems.Item($platformName)
-
-  if ($folder -eq $null) {
-    continue
-  }
-
-  $item = $folder.ProjectItems.Item($fileName)
-
-  if ($item -eq $null) {
-    continue
-  }
-
-  $property = $item.Properties.Item($propertyName)
-
-  if ($property -eq $null) {
-    continue
-  }
-
-  $property.Value = 1
-}