AppStd/ClipboardWatcher
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
app/DD_Clipboard_Searcher/ClassLicense.vb
View File

@ -32,15 +32,39 @@ Public Class ClassLicense
If lic_string <> "" Then If lic_string <> "" Then
LICENSE_COUNT = split(0) LICENSE_COUNT = split(0)
LICENSE_DATE = CDate(split(1)) Try
Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo("de-DE")
cultureInfo.DateTimeFormat.ShortDatePattern = "dd.MM.yyyy"
Try
Dim oLicDate As Date = Convert.ToDateTime(split(1), cultureInfo)
LICENSE_DATE = oLicDate
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception
LICENSE_DATE = split(1)
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
End If End If
If CDate(split(1)) < CDate(Now.ToShortDateString) Then Try
MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation) If Not IsNothing(LICENSE_DATE) Then
LICENSE_EXPIRED = True If CDate(LICENSE_DATE.ToShortDateString) < CDate(Now.ToShortDateString) Then
LICENSE_COUNT = 0 MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & LICENSE_DATE.ToString & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
ERROR_INIT = "NO LICENSE" LICENSE_EXPIRED = True
End If LICENSE_COUNT = 0
ERROR_INIT = "NO LICENSE"
End If
End If
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
End Try End Try

2
app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.0.1")> <Assembly: AssemblyVersion("2.2.1.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

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 Public Class frmLicense
Dim CLIENT_ID As Integer Dim CLIENT_ID As Integer
Public _lizenzManager As clsLicenseManager Public _lizenzManager As clsLicenseManager
@ -49,7 +50,9 @@ Public Class frmLicense
_lizenzManager = New clsLicenseManager("#DigitalData35452!#", "") _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" Then If Me.txtNewlicences.Text <> "" Then
'Encode the license '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) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If Database.ExecuteNonQuery(sql) = False Then If Database.ExecuteNonQuery(sql) = False Then