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

License

Browse Source
This commit is contained in:
SchreiberM
2021-03-04 09:14:17 +01:00
parent 6418c0625c
commit adeaec38e6
3 changed files with 37 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_Clipboard_Searcher/frmLicense.vb
View File

@@ -1,4 +1,5 @@
Imports DD_LIB_Standards
Imports System.Globalization
Imports DD_LIB_Standards
Public Class frmLicense
Dim CLIENT_ID As Integer
Public _lizenzManager As clsLicenseManager
@@ -49,7 +50,9 @@ Public Class frmLicense
_lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" Then
'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#")
Dim oDate = CDate(dtpGueltig_GI.Value)
Dim oDateddMMyyyy = oDate.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture)
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If Database.ExecuteNonQuery(sql) = False Then