Numero de serie

[sattel]

Les dejo este pequeño aporte que puede ser muy util para el inicio de la creacion de software con version trial y generar registros, mas adelante subire ese proyecto terminado para ser aplicado a cualquier software realizado con AMS 8.

link del apz.
https://mega.co.nz/#!10IyXDCY!ftKtcQpA2 ... 1I2D8c_qfE

les dejo el codigo.

function GetHDDInfo(sDRIVE)
	sDRIVE=String.Replace(sDRIVE,":","",false)
	sDRIVE=String.Replace(sDRIVE,"\\","",false)   
	tbDrives = Drive.Enumerate();
	if tbDrives then
		nHDDCount=0
		for i,v in pairs (tbDrives) do
			if Drive.GetType(v) == 3 then
				cDRIVE=String.Replace(v,":\\","",false)
				cDRIVE=String.Upper(cDRIVE)
				if String.Upper(sDRIVE) == cDRIVE then
					tbRet={}
					tbRet.DriveSerie = DLL.CallFunction("AutoPlay\\Docs\\DriverSer.dll", "DriveSerialNumber", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
					
					nHDDCount=nHDDCount+1
				end
			end
		end
	else
		tbRet = 0
	end
	return tbRet
end

tbHDD=GetHDDInfo(_SourceDrive)
test=""  ..tbHDD.DriveSerie.. "\r"
Input.SetText("Input1", test);

Sattel
Medellin - Colombia

[franziscovick]

Muchas gracias!

A ver si subes pronto el definitivo!

[kauster72]

Lo esperamos..

[sattel]

Señores en el transcurso de la semana subire el apz, les digo desde ya... es una mezcla de ingenio y de trabajo, no me habia reportado por problemas de salud necesitaba un poco de trankilidad fuera del pc.

Subire el apz con el .exe o programa para que lo analicen y lo instalen en sus pc y me den el visto bueno y logicamente el activador o generador de licencias.

Resumen.

por cada instalacion es un numero de licencia unica, si se instala hoy y si no se activa hoy mismo el serial de validacion no servira.


Si se formatea el pc sera un nuevo numero de serie o de licencia para validar.

se puede activar por correo, por telefono mediante el envio de los codigos.

esta codificado asi que asi el usuario envie 1 solo numero el generador te genera 22 numeros para la activacion.

Proximamente por mega:

Saludos.

[mottapires]

cómo utilizar?

[Qemizobpr]

I do not think this is the best possible.

[poyatron]

amigo esto al final no salio la parte final de ese proyecto?? gracias!