1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146
| '#################################################
'# #
'# Function Verification() #
'# #
'#################################################
Function Verification()
Dim rst1 As dao.Recordset
Dim rst2 As dao.Recordset
Dim sql, sql1, SER_RECU As String
Dim yatilunelicence As Integer
Dim WshShell, Clef_A_Recuperer
Dim msg, msg1, Style, Title, Help, Ctxt, Response, MyString, jour1, jour2, empecheModifDate
msg = "Souhaitez-vous proceder à l'activation du logiciel?" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "CLIQUEZ SUR OUI ! " ' Définit le titre.
Help = "DEMO.HLP" ' Définit le fichier d'aide.
Ctxt = 1000 ' Définit le contexte de
' la rubrique.
'##############################################################
'# #
'# APPEL D'UNE FONCTION QUI FERA DISPARAITRE LE RUBAN OFFICE #
'# #
'##############################################################
Set WshShell = CreateObject("WScript.Shell")
''' Set signifie "créer une variable d'environnement". Donc Set WshShell signifie
''' créer la variable d'environnement WshShell.
''' CreateObject est une fonction permettant de créer un objet Script, l'objet
''' script étant ici la clef du registre à récupérer.
Clef_A_Recuperer = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId")
''' RegRead est une fonction script permettant de lire l'objet script qui
''' est la clef du registre
''' "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\productId" est
''' l'arborescence ou chemin d'accès à ProductId, ProductId étant la clef du régistre.
sql1 = "SELECT * FROM serialattribuer"
Set rst1 = CurrentDb.OpenRecordset(sql1)
With rst1
' rst1.Edit
yatilunelicence = rst1.RecordCount
With rst2
If yatilunelicence <> 0 Then
SER_RECU = rst1("serialicence").Value
sql2 = "SELECT * FROM syst_ser_val WHERE serialkey='" & SER_RECU & "'"
Set rst2 = CurrentDb.OpenRecordset(sql2)
If (rst2.EOF = False) Then
If rst2("serialkey").Value = rst1("serialicence").Value Then
If (rst1("cleRegRecup").Value = Clef_A_Recuperer) Then
rst1.Edit
jour2 = rst1("datedujour").Value
empecheModifDate = DateDiff("d", jour2, Now)
If empecheModifDate >= 0 Then
jour1 = rst1("debutUtiilisation").Value
rst1("datedujour").Value = Date
rst1("joursrestants").Value = rst1("nbJourvalidite").Value - DateDiff("d", jour1, Now)
rst1.Update
Else
MsgBox ("VEUILLEZ REGLER VOTRE HORLOGE SYSTEME ET RELANCER LE LOGICIEL")
Application.Quit
End If
If rst1("joursrestants").Value >= 0 Then
DoCmd.OpenForm "Menu Général", acNormal, , , , acWindowNormal ' 'formulaire de demarrage lorque licence trouvé
Else
msg1 = "VOTRE LICENCE EST EXPIREE!" _
& " " & "VEUILLEZ CONTACTER xxxxxxx " _ 'Votre nom
& " " & "AU yyyyyyyyyyy POUR PLUS DE DETAIL") 'Votre téléphonne
Response = MsgBox(msg1, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
DoCmd.OpenForm "Activation Licence", acNormal, , , , acWindowNormal '
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Application.Quit
End If
End If
Else
MsgBox ("DESOLER VOUS AVEZ EFFECTUER UNE COPIE ILLEGALE" _
& " " & "VEUILLEZ CONTACTER xxxxxxx " _ 'Votre nom
& " " & "AU yyyyyyyyyyy POUR PLUS DE DETAIL") 'Votre téléphonne
msg1 = "AVEZ VOUS UNE LICENCE VALIDE?"
Response = MsgBox(msg1, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
DoCmd.OpenForm "Activation Licence", acNormal, , , , acWindowNormal '
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Application.Quit
End If
'
End If
End If
End If
Else
MsgBox ("VOUS N'AVEZ PAS DE LICENCE D'UTILISATION!")
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
DoCmd.OpenForm "Activation Licence", acNormal, , , , acWindowNormal '
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Application.Quit
End If
End If
End With
rst2.close
End With
rst1.Close
End Function
'#############################################################"
'#
'#
'#
'############################################################### |
Partager