Bem vindo ao Fórum MSBig, se você já é registrado e está vendo essa mensagem basta clicar em Entrar com seu usuário e senha!

Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
UPA Script - Leitura Senha Sandero
#1
Script 
program Prog1;
var code: string;

procedure ReadCode;
begin
  if not ReadDevice then
  begin
    MsgBox('Erro de Leitura', 'Erro', 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('SANDERO - UCH 95040', 'ST95040', 'APLICAÇÃO RENAULT', 'ST95040');
  AddAction('LER SENHA', 'ReadCode', 'SANDERO - UCH 95040');
  AddOpenFileAction('Ver Foto', 'SANDERO - UCH 95040', 'i16.jpg');
  AddMsg('RENAULT - SANDERO - UCH 95040 - Installed '#169' 2020 Fórum MSBig - www.msbig.net');
  SetProductInfo('Sample1', 'Device Script Example'#$D'Copyright'#169' 2020 Fórum MSBig - www.msbig.net');
end.

Esquema de Ligação:    

Administrador
Responder


Possíveis Tópicos Relacionados...
Tópico: Autor Respostas: Visualizações: Última Mensagem
Script UPA Script - Leitura Senha Logan admin 0 800 16-07-2020, 15:24:26
Última Mensagem: admin

Saltar Fórum:


usuários a ver este tópico: 1 Visitante(s)