es sencillo crear un codigo serial que sea especificamente para cierta maquina.
usen el codigo de ejemplo de esta pagina
http://geeks.ms/blogs/jorge/pages/v...-registro-para-nuestras-aplicaciones-net.aspx, pero en vez de solo usar "jorge", usen ademas el numero de serie del disco duro, por ahi hay varias paginas para obtenerlo.
bueno aqui se los pongo.
Private Function MostrarInformacionDeDisco()
Dim FS, d, t, Unidad
'arturo.michaca@gmail.com
MostrarInformacionDeDisco = False
Unidad = "C"
Set FS = CreateObject("Scripting.FileSystemObject")
On Error GoTo MensajeError
Set d = FS.GetDrive(FS.GetDriveName(FS.GetAbsolutePathName(Unidad)))
Serie = d.SerialNumber
MostrarInformacionDeDisco = Serie
Exit Function
MensajeError:
MostrarInformacionDeDisco = False
End Function
ahora, manda el nombre del usuario, o nombre de empresa + num de serie del disco,en el mismo text box a partir del cual generarás la clave, al generarla, esa clave será unica por cada computadora donde instales, aunque el nombre de empresa sea el mismo.
espero que esto te sirva, nos vemos.