hola bueno como todos ustedes un buen dia me dije que tenia que haber mas de alguna forma de proteger mi programa de los ladrones asi que bueno. tengo que buscar la manera de extraer un numero de serie o algo asi de la compu.. y entonces pude extraer la etiqueta del disco duro que es un numero que varía grandemente segun cada computadora.. asi que bueno econtre este codigo por allii...(explico.. la etiqueta se puede extraer de la unidad que uno desee pero para mayor seguridad se usa la unidad C: la cual poseen todas las computadoras)
Código:
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)
Private Sub Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "C:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
MsgBox "Numero de Serie de la unidad " & unidad & " = " & numSerie
End Sub
depues econtrar la menera de poner los numero en un la memoria de windows para simpre esten alli..
y bueno econtre eso... que me envio un amigo..
Hola. Create un formulario llamado Form1, y en el pon un Textbox, llamado texto. Depués añade este código.
Código:
Private Sub Form_Load()
Check1.text= GetSetting(App.Title, me.Name, texto.Name, vbChecked)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, me.Name, texto.name, texto.text
End Sub
con esto completaba ya casi todo y bueno solo faltaba ponerle ingenio y uni todo esto y el resultado es el ejemplo que les dejo aqui...
COMO OBSERVACION EL EJEMPLO SE LE TIENE QUE INGRESAR LOS TRES NUMERO QUE APARECEN EN LA PARTE INFERIOR LO CUALES DICEN REGISTRO Y ESTAN DIVIDIDOS POR EL SIGNO "#". YO LE COLOQUE LA REPUESTA EL EN MISMO PROGRAMA PERO USTEDES PUEDEN HACER UN GENERADOR DE CLAVES (KEYGENERATOR).. SI HAY MAS PREGUNTAS ESTAR REVISANDO..
EL LINK(es un .exe es un autoextraíble..)
EL PROYECTO AL FIN