Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suche eine Idee für eine Lizenzschlüsselgenerierung
zurück: fortlaufende Nummerierung im Unterformular weiter: Ungebundenes Feld füllen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Yoda_Josef
Access Hobby Programmierer


Verfasst am:
15. Nov 2008, 18:26
Rufname:
Wohnort: München

Suche eine Idee für eine Lizenzschlüsselgenerierung - Suche eine Idee für eine Lizenzschlüsselgenerierung

Nach oben
       Version: Office 2007

An alle Access und VBA Spezialisten

Ich suche eine Idee mein Access Applikation zu schützen. Dazu würde ich gerne einen Identifier (Maschinen ID) des Rechners oder so auslesen und einen Schlüssel generieren mit Laufzeit Datum.
Wie könnte ich ein unveränderbares Computermerkmal mit VBA auslesen und dann weiterverarbeiten?

Freu mich wenn mir einer helfen kann.
Vielleicht gibts ja auch dafür ein kleines Plugin das ihr empfehlen könnt....

Viele Grüße aus München

Josef
eiskalterengel
Macher


Verfasst am:
17. Nov 2008, 09:48
Rufname:
Wohnort: Hildesheim


AW: Suche eine Idee für eine Lizenzschlüsselgenerierung - AW: Suche eine Idee für eine Lizenzschlüsselgenerierung

Nach oben
       Version: Office 2007

Hallo Josef,

erstell dir folgendes Modul:
Code:
Option Compare Database
Option Explicit

Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
    "GetVolumeInformationA" (ByVal lpRootPathName As String, _
                             ByVal pVolumeNameBuffer As String, _
                             ByVal nVolumeNameSize As Long, _
                             lpVolumeSerialNumber As Long, _
                             lpMaximumComponentLength As Long, _
                             lpFileSystemFlags As Long, _
                             ByVal lpFileSystemNameBuffer As String, _
                             ByVal nFileSystemNameSize As Long) As Long
                             
Const MAX_FILENAME_LEN As Long = 256&

Public Function SerNum() As Long
    Dim No As Long, s As String
   
    GetVolumeInformation "c:\", s, MAX_FILENAME_LEN, No, 0&, 0&, s, _
                         MAX_FILENAME_LEN
    SerNum = No
End Function
Durch Aufruf von SerNum() gibt dir das Modul die eindeutige Festplatten ID aus.

Über eine Switch-Case Anweisung kannst du dann prüfen, ob der Rechner berechtigt ist oder eben nicht.
Code:
    Dim strHD As String
   
    strHD = SerNum()
    Select Case strHD
      Case "DieErsteFestplattenID"
        'Hier kannst du ein Formular öffnen oder was auch immer. berechtigung akzeptiert.
      'Case "" 'hier eine weitere festplatten ID
      'Case "" 'usw.
      Case Else
        MsgBox "Der Rechner ist nicht berechtigt die DB zu öffnen!", vbCritical
        DoCmd.Quit
    End Select
Bei den Cases musst du dann jewiels die vorher ausgelsene ID der jeweiligen Festplatte resp. des jeweiligen Rechners eintragen. Leg dir das einfach auf einen Button -> Klick-Befehl -> Ereignisprozedur
Code:
    Dim strID As String
   
    strID = SerNum()
    MsgBox strID

_________________
Exzellenz ist eine Frage des Umfeldes.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Idee für Tabellenerstellung? 2 Mike2 195 08. Feb 2011, 09:10
Mike2 Idee für Tabellenerstellung?
Keine neuen Beiträge Access Tabellen & Abfragen: Suche 1 Lampieyyy 192 12. Okt 2010, 15:18
MissPh! Suche
Keine neuen Beiträge Access Tabellen & Abfragen: Suche in Access über 3 Tabellen 4 bountyhunter 388 18. Jan 2010, 12:01
bountyhunter Suche in Access über 3 Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Datensatz mit dem ältesten Anschaffungsdatum 2 Mareike87 1011 16. Jan 2010, 17:13
Mareike87 Suche Datensatz mit dem ältesten Anschaffungsdatum
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei SQL Suche bei leeren Feldern im Datensatz 1 KillyvsCibo 1297 04. Dez 2009, 17:32
MissPh! Problem bei SQL Suche bei leeren Feldern im Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Access Viewer 2 10IN01 589 23. Jul 2009, 13:19
10IN01 Suche Access Viewer
Keine neuen Beiträge Access Tabellen & Abfragen: Suche den größten gemeinsamen Teiler zweier zahlen 10 VR2008 1092 12. Jul 2009, 18:56
Willi Wipp Suche den größten gemeinsamen Teiler zweier zahlen
Keine neuen Beiträge Access Tabellen & Abfragen: Suche in 2 ähnlichen Tabellen über 1 Suchformular 4 Caym 492 30. Jun 2009, 13:34
Caym Suche in 2 ähnlichen Tabellen über 1 Suchformular
Keine neuen Beiträge Access Tabellen & Abfragen: Wie erstellt man eine "von - bis" Suche in Access? 17 Macindows 1795 23. Jul 2008, 10:57
Macindows Wie erstellt man eine "von - bis" Suche in Access?
Keine neuen Beiträge Access Tabellen & Abfragen: Suche nach bestimmten Zeichen 3 Gast 6027 25. Jun 2008, 06:49
Gast Suche nach bestimmten Zeichen
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000 Auswahlabfrage - Suche Kriterien 1 Huje 3122 07. Feb 2008, 17:29
Marmeladenglas Access 2000 Auswahlabfrage - Suche Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Suche und Ausgabe 2 jan2303 482 02. Feb 2008, 14:21
jens05 Suche und Ausgabe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver