[n3oka]

Tested and works, Thx

[rehatflogs]

Tested and works, Thx

Which method did you use ?
And which car and year?

[n3oka]

Tested and works, Thx

Which method did you use ?
And which car and year?

With ODIS-E 16
A3 8V 2017

[7491159]

VCP_Script data:


em : string ;
begin
    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem := ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end

Compiling
Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

Check Synlax ,(

[rehatflogs]

VCP_Script data:


em : string ;
begin
    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem := ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end

Compiling
Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

Check Synlax ,(

Remove the spaces in this line and retry to compile in VCP:

readedmem := ReadMemoryByAddr($03003C09,1,$14);

[7491159]

VCP_Script data:


em : string ;
begin
    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem := ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end

Compiling
Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

Check Synlax ,(

Remove the spaces in this line and retry to compile in VCP:

readedmem := ReadMemoryByAddr($03003C09,1,$14);

Code:

begin

    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem:=ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end.

Compiling

Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

---

ok
I figured out where the error is

need
var
readedmem : string ;

(on your post was " em : string ; ")

Thanks man ! Now all ok "Compiling
Compiled succesfully"

[rehatflogs]

VCP_Script data:


em : string ;
begin
    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem := ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end

Compiling
Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

Check Synlax ,(

Remove the spaces in this line and retry to compile in VCP:

readedmem := ReadMemoryByAddr($03003C09,1,$14);

Code:

begin

    ConnectToEcuUDS('17');
    if IsConnectedToEcu then
    begin
         Writeln('Connected');
         Writeln(GetECUNo);
         //change diag session to developer
         ChangeDiagSessionRaw('4F');
         //Programming date F199
         WriteDataByIDRaw(61849,'201102');
         //Tester fingerprint F198
         WriteDataByIDRaw(61848,'0181C8F6002E');
         if DoLogin(20103) then Writeln('Login OK') else Writeln('Login failed');
         WriteMemoryByAddr($03003C09,'01',$14);
         readedmem:=ReadMemoryByAddr($03003C09,1,$14);
         Writeln(readedmem);
         Writeln('EEPROM update success');
         ECUReset;
    end
    else
    begin
         Writeln('Cant connect to cluster!!');
    end;
    CloseCommunication;
end

Compiling

Compiler: [Error] (15:10): Unknown identifier 'readedmem'
Compiling failed

---

ok
I figured out where the error is

need
var
readedmem : string ;

(on your post was " em : string ; ")

Thanks man ! Now all ok "Compiling
Compiled succesfully"

Thanks for correcting. Will update posts now
Let me know if you get success with which car and year !

[7491159]

Thanks, have added script to first post

• When finished. Have you checked for errors ? 0 Errors in 17 ?

[papaosman]

Hello friends
Will it work with ODIS E 12.2.0
Can i use this method or script?
Thanx

[damkys500]

Finally released !

VCP script attached - Load, and Run !
Tested by other users and working

Still waiting for a macro version to use with ODIS-E so if anyone has it and could share that would be great


EDIT 1: Python script for ODIS E added 

EDIT 2: Unencrypted VCP Script added

EDIT 3: Manual ODIS-E Commands:
Log in to control unit 17

Go to developer mode with code 20103
Open "Special Function" and then "Hex Service"
Enter the following code:
For RS Sport Layout:
3D 14 03 00 3C 09 01 03
For S Sport Layout:
3D 14 03 00 3C 09 01 01
For RS Sport Layout with Rainbow:
3D 14 03 00 3C 09 02 03 57

You forgot to add that before starting the macro it is necessary to check Bit 1-3 in 17 Instrument Cluster Byte 1 and the SW version must be 0300+!! VCP Script is encrypted! It is not recommended to use because they report various defects... I recorded via ODIS E 12.2 with the VAS5054A head, but I have the script from another site... It has been a day since the modification, but I have been checked for a while without errors... From activation to now, the car has been started several times times and restarted VC via VCP several times and everything is without errors... People who have errors, what did you record through? Via VCP?

---

After upload script cluster have B20096 DTC :/

I wrote a message this morning reporting how is dangerous to use a script for this modification and it was deleted, here the result

Is the error in the VCP script or ODIS?