2.10.3.0 - Remove license management feature and UI

Removed all license management functionality, including the frmLizenzmanager form, related settings, and code references. Deleted the "licensekey" user setting and cleaned up associated logic in forms and the main menu. Updated assembly version to 2.10.3.0. No other functional changes were made.
2026-05-07 11:21:26 +02:00
parent 320d65925b
commit de30e3198b
12 changed files with 6 additions and 548 deletions
--- a/ToolCollection/ModuleSettings.vb
+++ b/ToolCollection/ModuleSettings.vb
@@ -1,3 +1,3 @@
 Module ModuleSettings
-    Public LICENSE_AD As Boolean
+
 End Module
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.10.2.0")>
+<Assembly: AssemblyVersion("2.10.3.0")>
 <Assembly: AssemblyFileVersion("2.9.9.0")>
--- a/Project/Settings.Designer.vb
+++ b/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"),  _
--- a/Project/Settings.settings
+++ b/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>
--- a/ToolCollection/ToolCollection.vbproj
+++ b/ToolCollection/ToolCollection.vbproj
@@ -361,12 +361,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>
@@ -508,9 +502,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>
--- a/ToolCollection/app.config
+++ b/ToolCollection/app.config
@@ -11,7 +11,8 @@
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <connectionStrings>
-    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False" providerName="System.Data.SqlClient" />
+    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
+      providerName="System.Data.SqlClient" />
  </connectionStrings>
  <system.diagnostics>
    <sources>
@@ -35,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>
--- a/ToolCollection/frmDIProfilEigenschaften.vb
+++ b/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)

--- a/ToolCollection/frmLizenzmanager.Designer.vb
+++ b/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
--- a/ToolCollection/frmLizenzmanager.resx
+++ b/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>
--- a/ToolCollection/frmLizenzmanager.vb
+++ b/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
--- a/ToolCollection/frmNIProfileigenschaften.vb
+++ b/ToolCollection/frmNIProfileigenschaften.vb
@@ -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)

--- a/ToolCollection/frmStart.vb
+++ b/ToolCollection/frmStart.vb
@@ -228,9 +228,6 @@ Public Class frmStart

            End If

-            ' Module laden
-            Me.LoadAllModules()
-
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
@@ -312,18 +309,10 @@ Public Class frmStart
        Cursor = Cursors.Default
    End Sub

-    Private Sub LizenzverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        ' Öffnet den Lizenz-Manager
-        frmLizenzmanager.ShowDialog()
-    End Sub
    Public Sub ClearGroupBoxes()
        Me.grbDI.Visible = False
        Me.GBNachindexierung.Visible = False
        Me.grbxMoRe.Visible = False
-        LICENSE_AD = False
-    End Sub
-    Public Sub LoadAllModules()
-        LICENSE_AD = True
    End Sub

    Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
@@ -376,10 +365,6 @@ 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