From de30e3198be01c58869cd365fd4894f3ae8af294 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Thu, 7 May 2026 11:21:26 +0200 Subject: [PATCH] 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. --- ToolCollection/ModuleSettings.vb | 2 +- ToolCollection/My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 13 - ToolCollection/My Project/Settings.settings | 3 - ToolCollection/ToolCollection.vbproj | 9 - ToolCollection/app.config | 6 +- ToolCollection/frmDIProfilEigenschaften.vb | 10 +- ToolCollection/frmLizenzmanager.Designer.vb | 235 ------------------ ToolCollection/frmLizenzmanager.resx | 149 ----------- ToolCollection/frmLizenzmanager.vb | 101 -------- ToolCollection/frmNIProfileigenschaften.vb | 9 +- ToolCollection/frmStart.vb | 15 -- 12 files changed, 6 insertions(+), 548 deletions(-) delete mode 100644 ToolCollection/frmLizenzmanager.Designer.vb delete mode 100644 ToolCollection/frmLizenzmanager.resx delete mode 100644 ToolCollection/frmLizenzmanager.vb diff --git a/ToolCollection/ModuleSettings.vb b/ToolCollection/ModuleSettings.vb index de6f800..2cb6f6a 100644 --- a/ToolCollection/ModuleSettings.vb +++ b/ToolCollection/ModuleSettings.vb @@ -1,3 +1,3 @@ Module ModuleSettings - Public LICENSE_AD As Boolean + End Module diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 94f0986..d5743dd 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/My Project/Settings.Designer.vb b/ToolCollection/My Project/Settings.Designer.vb index 9668660..659a466 100644 --- a/ToolCollection/My Project/Settings.Designer.vb +++ b/ToolCollection/My Project/Settings.Designer.vb @@ -54,19 +54,6 @@ Namespace My End Get End Property - _ - Public Property licensekey() As String - Get - Return CType(Me("licensekey"),String) - End Get - Set - Me("licensekey") = value - End Set - End Property - - - - False diff --git a/ToolCollection/ToolCollection.vbproj b/ToolCollection/ToolCollection.vbproj index 0ab99ee..76bfd4f 100644 --- a/ToolCollection/ToolCollection.vbproj +++ b/ToolCollection/ToolCollection.vbproj @@ -361,12 +361,6 @@ Form - - frmLizenzmanager.vb - - - Form - frmNIProfileigenschaften.vb @@ -508,9 +502,6 @@ frmNI_SQLTest.vb - - frmLizenzmanager.vb - frmNIProfileigenschaften.vb diff --git a/ToolCollection/app.config b/ToolCollection/app.config index 4ed4e5e..be58e07 100644 --- a/ToolCollection/app.config +++ b/ToolCollection/app.config @@ -11,7 +11,8 @@
- + @@ -35,9 +36,6 @@ - - - False diff --git a/ToolCollection/frmDIProfilEigenschaften.vb b/ToolCollection/frmDIProfilEigenschaften.vb index 077d73c..f627cfd 100644 --- 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) diff --git a/ToolCollection/frmLizenzmanager.Designer.vb b/ToolCollection/frmLizenzmanager.Designer.vb deleted file mode 100644 index 4db939f..0000000 --- a/ToolCollection/frmLizenzmanager.Designer.vb +++ /dev/null @@ -1,235 +0,0 @@ - _ -Partial Class frmLizenzmanager - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - 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. - _ - 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 diff --git a/ToolCollection/frmLizenzmanager.resx b/ToolCollection/frmLizenzmanager.resx deleted file mode 100644 index 1e7e441..0000000 --- a/ToolCollection/frmLizenzmanager.resx +++ /dev/null @@ -1,149 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - 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= - - - \ No newline at end of file diff --git a/ToolCollection/frmLizenzmanager.vb b/ToolCollection/frmLizenzmanager.vb deleted file mode 100644 index 5b2939a..0000000 --- a/ToolCollection/frmLizenzmanager.vb +++ /dev/null @@ -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 \ No newline at end of file diff --git a/ToolCollection/frmNIProfileigenschaften.vb b/ToolCollection/frmNIProfileigenschaften.vb index baf787c..0db035b 100644 --- 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) diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb index f80ecd5..cce7318 100644 --- 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