UPA Script - Leitura Senha Logan

[👷 admin]

program Prog1;
var code: string;

procedure ReadCode;
begin
  if not ReadDevice then
  begin
    MsgBox('Read Error', 'Error', MB_OK);
  end
  else
  begin
    Code := inttohex(GetByteHexEdit($142), 2) +
    inttohex(GetByteHexEdit($1A5), 2) +
    inttohex(GetByteHexEdit($1C2), 2) +
    inttohex(GetByteHexEdit($141), 2) +
    inttohex(GetByteHexEdit($1C1), 2) +
    inttohex(GetByteHexEdit($1A4), 2);
    MsgBox(Code, 'Code www.msbig.net', MB_OK or MB_ICONINFORMATION);
  end;
end;

begin
  AddDeviceGroup('APLICAÇÃO RENAULT', 'Select a Device');
  AddDevice('LOGAN - UCH 95040', 'ST95040', 'APLICAÇÃO RENAULT', 'ST95040');
  AddAction('LER SENHA', 'ReadCode', 'LOGAN - UCH 95040');
  AddOpenFileAction('Ver Foto', 'LOGAN - UCH 95040', 'i16.jpg');
  AddMsg('RENAULT - LOGAN - UCH 95040 - Installed '#169' Fórum MSBig - www.msbig.net');
  SetProductInfo('Sample1', 'Device Script Example'#$D'Copyright'#169' Fórum MSBig - www.msbig.net');
end.
Pascal
Copy

---

Esquema de Ligação:
   

---