Salut !
J'aimerais maitre un CD Key a mon prog.
( Pas trop dur a metre )
Ex .: je rentre mon CD Key dans un text box a louverture de mon prog. et ci mon CD Key est correcte , il ne me le demande plus !
Et ci posible , j'aimerais que passer 30 jours
ci le CD key n'a pas ete rentre le prog. ne foctionne plus !
( Ci c'est possible ??? )
SVP E-Mail moi a .: ilogik@hotmail.com
ci tu a un Zip. ou un text Source.
Le mieux c'est d'utiliser le n° de série de ton CD.
Voici comment récupérer celui-ci:
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)
Const MAX_FILENAME_LEN = 256
Private Sub Command1_Click()
Dim No&, s As String * MAX_FILENAME_LEN
Dim s2 As String * MAX_FILENAME_LEN
Call GetVolumeInformation(Drive + ":", s, MAX_FILENAME_LEN, _
No, 0&, 0&, 0&, MAX_FILENAME_LEN)
Msgbox (format(Hex(Val(No))))
End Sub
On ne peut pas connaître à l'avance un N° de série, en fait tu graves une première fois ton CD et ensuite tu le regraves en multisession. Par contre cela ne marche pas avec tout les logiciels de gravures!