AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Switch License Module, Move SnapToDesktopBorder to Window Module

Browse Source
This commit is contained in:
Jonathan Jenne
2021-09-23 11:23:01 +02:00
parent 7e28e072df
commit 59d6d26dce
7 changed files with 30 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Global_Indexer/frmLicense.vb
View File

@@ -1,7 +1,6 @@
Imports System.Resources
Imports DLLLicenseManager
Public Class frmLicense
Public _lizenzManager As ClassLicenseManager
Private LocRM As ResourceManager
Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
If Me.txtPW.Text <> "" Then
@@ -25,7 +24,7 @@ Public Class frmLicense
Try
If Me.txtNewlicences.Text <> "" And txtProfile.Text <> "" Then
'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtProfile.Text & "#" & txtHotKey.Text, "#DigitalData35452!#")
Dim result As String = ClassLicence.LicenseManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtProfile.Text & "#" & txtHotKey.Text, "#DigitalData35452!#")
txtlicensekey.Text = result
Dim sql As String = "UPDATE TBGI_CONFIGURATION SET LICENSEKEY = '" & result & "' where guid = 1"
If DATABASE_ECM.ExecuteNonQuery(sql) = True Then
@@ -41,11 +40,10 @@ Public Class frmLicense
Sub Refresh_Licence(Neu As Boolean)
Dim lizenzzahl As Integer
Try
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
Dim lic As String = DATABASE_ECM.GetScalarValue(sql)
Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
Dim licString = ClassLicence.LicenseManager.DecodeLicenseKey(lic)
Dim split() = licString.ToString.Split("#")