Commen maitre un " CD Key " a mon prog.

Sycho - 27 avril 2001 à 04:54
 Infodev - 21 août 2001 à 08:47
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.

Merci davence ! :big)

6 réponses

Salut,

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
0
-------------------------------
Réponse au message :
-------------------------------

Merci beaucoup ! :big)
0
Ca fais koa un cd lock et pis c koa ?
0
Ca fais koa un cd lock et pis c koa ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Peut on connaitre le no de série d'un CD avant de le graver?
Merci de me transmettre la réponse si vous avez une solution.
0
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!

A+
0
Rejoignez-nous