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