Numero de serie
Publicado: 09 Mar 2013 08:25
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.
Sattel
Medellin - Colombia
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);
Medellin - Colombia