TKSoft-Online

Willkommen, Gast
Benutzername: Passwort: Angemeldet bleiben:
Passwort vergessen? Benutzername vergessen?
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten

Demos von Access-DB's freischalten
(1 Leser) (1) Gast
Alles rund um MS-Access
Auf Thema antworten
Neues Thema
  • Seite:
  • 1

THEMA: Demos von Access-DB's freischalten

Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #641

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
In diesem Thema wird dieser Beitrag diskutiert: Demos von Access-DB's freischalten

Hallo sehr schön!

Ich habe eine Frage, kann ich mir den Schlüssel bzw. die Registrierung zur Freischaltung (also die Generierung der Daten) auch als php machen?

Weil ich habe eine Access-DB gemacht für jemand und dieser jemand vertreibt diese nun ich bekomme 25 % des Verkaufspreises pro Sell.

Nun würde ich gerne haben, das diese Person bei mir auf der Webseite in einem internen Bereich dies berechnen lassen kann und danach der Eintrag gespeichert wird, sodass ich weiß das er wieder eins verkauft hat.


Ist diese Berechnung per PHP möglich?

Grüße
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #642

  • TommyK
  • ONLINE
  • Administrator
  • Beiträge: 472
  • Karma: 4
Hallo,

da muss ich leider passen.
Meine PHP-Kenntnisse sind nur sehr rudimentär.
Das ist sicher möglich aber da müsstest Du mal in einem PHP-Forum nachfragen.
Tut mir leid.
Gruß TommyK
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #643

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hallo TommyK,

gut ich denke das bekomm ich hin mit dem php.

Wäre es aber möglich die Lizenzdaten (verschlüsselt) in der Datenbank zu speichern, anstatt in der Registry?

Grüße CHris
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #644

  • TommyK
  • ONLINE
  • Administrator
  • Beiträge: 472
  • Karma: 4
Hallo Chris,

Wäre es aber möglich die Lizenzdaten (verschlüsselt) in der Datenbank zu speichern, anstatt in der Registry?


Ja, das ist kein Problem.
In diesem Bsp. (Access-DB als Demo weitergeben) war ja noch ein 2. Variante enthalten in dem
die Lizenzdaten in einer Property in der DB gespeichert wird.
Von einem speichern in einer Tabelle, was auch möglich ist, rate ich aber ab.
Gruß TommyK
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #645

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hallo TommyK

Habe es nun mit der Registry getestet, beim ersten Mal kommt die Meldung \"Sie können das Programm noch 30 Tage verwenden\"...

Wenn ich es schliesse und danach noch einmal starte dann kommt die Meldung: \"Sie können das Programm noch 2592 Tage verwenden...

Benutze Access 2003

Was ist da falsch?

Grüße
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #646

  • TommyK
  • ONLINE
  • Administrator
  • Beiträge: 472
  • Karma: 4
Hallo Chris,

das ist mir neu.
Werde das mal überprüfen.
Gruß TommyK
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #647

  • TommyK
  • ONLINE
  • Administrator
  • Beiträge: 472
  • Karma: 4
Hallo Chris,

im Anhang meine Version. Dort tritt das Problem nicht auf.
Vorher lösche aber bitte den alten Registryeintrag:
HKEY_CURRENT_USER\WinApp

Dann öffne die DB aus dem Anhang und schau dann mal in der Registry nach
Es sollte so aussehen:

Reg1.jpg



Dateianhang:

Dateiname: tk_DemoZeitraumRegistry00.rar
Dateigröße: 30995
Gruß TommyK
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #648

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hallo TommyK!

Dankeschön ja da funktioniert es nun.

Könntest DU mal schauen was aber an meinem Code noch falsch ist, da funktioniert es nicht, bekomme es irgendwie nicht hin.

Ich hätte auch gerne das es gar keinen Demomodus gibt, sondern gleich lizenziert werden muss.

Hier mein Code:

Const intCountDays As Integer = 30
 
 
Private Sub Form_Activate()
    DoCmd.ShowToolbar \"Formularansicht\", acToolbarNo
    DoCmd.ShowToolbar \"Test\", acToolbarYes
End Sub
 
 
 
Private Sub Form_Load()
    On Error Resume Next
    Dim sDateTemp As String
    Dim intDays As Integer
    Dim sTemp As String, sTemp2 As String
    Dim sTemp3 As String, sTemp4 As String
    Dim sTempKey As String
    Dim sValue As String
    Dim dateTemp As Date
 
    sTemp = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppValue\"«»)
    sTemp2 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppLKey\"«»)
    sTemp3 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppLUser\"«»)
    sTemp4 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppEMailUser\"«»)
    sValue = Encrypt(Day(Date) & Format(Month(Date), \"00\"«») & Year(Date), sPWD)
 
    If sTemp = \"\" Then
        fStringSpeichern HKEY_CURRENT_USER, \"WinApp\", \"WinAppValue\", sValue
        MsgBox \"Demomodus gestartet\"
    Else
        If sTemp2  \"\" Or sTemp3  \"\" Or sTemp4  \"\" Then
            Me.cmd_Reg.Enabled = False
            sTempKey = Hex$(CRC32Unicode(Encrypt(sTemp3, sPWD))) & \"-\" & Hex$(CRC32Unicode(Encrypt(sTemp4, sPWD)))
            If sTempKey  sTemp2 Then
                MsgBox \"Der in der Registry vorhandene Schlüssel ist falsch.\" & vbNewLine & \"Bitte geben Sie den richtigen Schlüssel neu ein.\", vbCritical + vbOKOnly, \"Fehler\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppLKey\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppLUser\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppEMailUser\"
                Me.cmd_Reg.Enabled = True
            End If
        Else
            Me.cmd_Reg.Enabled = True
            sDateTemp = Decrypt(sTemp, sPWD)
            dateTemp = DateSerial(Right(sDateTemp, 2), Mid(sDateTemp, 3, 2), Left(sDateTemp, 2))
            intDays = DateDiff(\"d\", Date, dateTemp)
            If intDays
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #649

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
SOrry!

Irgendwie wurder der VBA.Code abgeschnitten - Ich versuche es noch einmal.

Wie gesagt am besten wäre wenn es gar kein Demomodus gibt, das er direkt einen Lizenzcode abfrägt und in die Registry schreibt

Grüße

Hier der Code:

Const intCountDays As Integer = -9999
 
Private Sub Form_Activate()
    DoCmd.ShowToolbar \"Formularansicht\", acToolbarNo
    DoCmd.ShowToolbar \"Test\", acToolbarYes
End Sub
 
Private Sub Form_Load()
    On Error Resume Next
    Dim sDateTemp As String
    Dim intDays As Integer
    Dim sTemp As String, sTemp2 As String
    Dim sTemp3 As String, sTemp4 As String
    Dim sTempKey As String
    Dim sValue As String
    Dim dateTemp As Date
 
    sTemp = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppValue\"«»)
    sTemp2 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppLKey\"«»)
    sTemp3 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppLUser\"«»)
    sTemp4 = fWertLesen(HKEY_CURRENT_USER, \"WinApp\", \"WinAppEMailUser\"«»)
    sValue = Encrypt(Day(Date) & Format(Month(Date), \"00\"«») & Year(Date), sPWD)
 
    If sTemp = \"\" Then
        fStringSpeichern HKEY_CURRENT_USER, \"WinApp\", \"WinAppValue\", sValue
        MsgBox \"Demomodus gestartet\"
    Else
        If sTemp2  \"\" Or sTemp3  \"\" Or sTemp4  \"\" Then
            Me.cmd_Reg.Enabled = False
            sTempKey = Hex$(CRC32Unicode(Encrypt(sTemp3, sPWD))) & \"-\" & Hex$(CRC32Unicode(Encrypt(sTemp4, sPWD)))
            If sTempKey  sTemp2 Then
                MsgBox \"Der in der Registry vorhandene Schlüssel ist falsch.\" & vbNewLine & \"Bitte geben Sie den richtigen Schlüssel neu ein.\", vbCritical + vbOKOnly, \"Fehler\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppLKey\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppLUser\"
                fWerteLoeschen HKEY_CURRENT_USER, \"WinApp\", \"WinAppEMailUser\"
                Me.cmd_Reg.Enabled = True
            End If
        Else
            Me.cmd_Reg.Enabled = True
            sDateTemp = Decrypt(sTemp, sPWD)
            dateTemp = DateSerial(Right(sDateTemp, 2), Mid(sDateTemp, 3, 2), Left(sDateTemp, 2))
            intDays = DateDiff(\"d\", Date, dateTemp)
            If intDays
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #650

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Hier der Rest ab if Intdays

If intDays sgBox \"Testzeitraum abgelaufen\"
DoCmd.OpenForm \"frm_Registry\"
'DoCmd.Quit
Else
MsgBox \"Sie können das Programm noch \" & intCountDays + intDays & \" Tage testen\"
End If
End If
End If
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #651

  • TommyK
  • ONLINE
  • Administrator
  • Beiträge: 472
  • Karma: 4
Hallo Chris,

habe das Bsp der Freischaltung mal umgeschrieben das es keinen Testzeitraum gibt.
s. Anhang.

Dateianhang:

Dateiname: tk_Freischaltung00.zip
Dateigröße: 47976
Gruß TommyK
Antwort Zitieren

Re:Demos von Access-DB's freischalten 2 Jahre, 5 Monate her #656

  • ChrisTheMan
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 7
  • Karma: 0
Vielen Vielen Dank TommyK!

Jetzt habe ich eine richtige Version und wenn ich eine Demoversion benötige, mach ich mir einfach ein anderes Startformular rein welches nur als Demo funktioniert und beschränke auch auf bestimmte Tabellen auf Einträge etc.

Dann hab ich eine richtige Vollversion und eine Demoversion

Vielen Dank und Viele Grüße

ChrisTheMan
Antwort Zitieren
Auf Thema antworten
Neues Thema
  • Seite:
  • 1
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten
Moderatoren: TommyK
Powered by Kunena
Ladezeit der Seite: 2.60 Sekunden

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
168515 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval