16-07-2020, 15:45:10
program lerSenhaC4;
var code: string;
procedure ReadCode;
begin
Code := chr(GetByteHexEdit($42)) +
chr(GetByteHexEdit($43)) +
chr(GetByteHexEdit($44)) +
chr(GetByteHexEdit($45));
MsgBox('Code = ' + Code, 'O Código Pin é', MB_OK or MB_ICONINFORMATION);
end;
begin
AddDeviceGroup('PSA', 'selecionar un Programa');
AddDevice('207/307/C4 ECU ME7.4.9', 'MEMORIA 95320', 'PSA', 'ST95320');
AddAction('Ler Código PIN', 'ReadCode', '207/307/C4 ECU ME7.4.9');
SetProductInfo('MSBig', 'Device Script Example'#$D'Copyright'#169' 2020 Fórum MSBig - www.msbig.net');
end.