Voldemort04
Ist gelegentlich hier
- Registriert
- 25. Juni 2009
- Beiträge
- 55
- Reaktionspunkte
- 13
- Punkte
- 250
Hallo
Hat sich da schon jemand ran getraut?
Ich habe es mal probiert, aber direkt nach dem start des Navis kommt die Meldung das ich mein Gerät in die Halterung und die Zündung betätigt werden soll.
Ich denke mal das die Software Daten vom Fahrzeug abfragt.
Wie kann man diese Abfrage umgehen umgehen?
Das steht in der autorunce:
Hat sich da schon jemand ran getraut?
Ich habe es mal probiert, aber direkt nach dem start des Navis kommt die Meldung das ich mein Gerät in die Halterung und die Zündung betätigt werden soll.
Ich denke mal das die Software Daten vom Fahrzeug abfragt.
Wie kann man diese Abfrage umgehen umgehen?
Das steht in der autorunce:
ErrorLevel ( "syntax" )
Run("\My Flash Disk\VwUserShell\CradleLEDCtrl.exe")
Run("\My Flash Disk\VwUserShell\VwCommunicationExe.exe")
SetFileAttribute("\My Flash Disk\BrandDevice.reg", "readonly", FALSE)
RunWait("\My Flash Disk\VwBrandDevice\VwBrandDevice.exe")
Run("\My Flash Disk\VwUserShell\Mute.exe")
Run("\My Flash Disk\NAVIGON\VolumeUI.exe")
Run("\My Flash Disk\WatchdogPuppy.exe", "Watchdog_MN.ini Watchdog_BTCore.ini Watchdog_VwUserShell.ini Watchdog_PhoneApplication.ini Watchdog_MMP.ini Watchdog_HW.ini")
Sleep(5000)
If ( FileExists("\My Flash Disk\NAVIGON\CheckForStorageCard2.exe") )
Run("\My Flash Disk\NAVIGON\CheckForStorageCard2.exe")
EndIf
Call AddFontSkipping
Call InstallDebugger
Call CleanupInstallation
Exit
# ----------------------
Sub InstallDebugger
RegWriteDWord("HKLM","Debug","Debugger_Enable", 1)
If ( NOT RegValueExists("HKLM","Debug","JITDebugger") OR RegRead("HKLM","Debug","JITDebugger") ne "\My Flash Disk\ErrorReporter.exe" )
RegWriteString("HKLM","Debug","JITDebugger","\My Flash Disk\ErrorReporter.exe")
EndIf
EndSub
Sub AddFontSkipping
RegWriteDWord("HKLM", "SYSTEM\GDI", "FontLinkMethods", 3 )
RegDeleteKey("HKLM", "Software\Microsoft\FontLink\SystemLink", TRUE, TRUE)
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG", "\windows\arial.ttf,Arial")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG Light", "\windows\arial.ttf,Arial")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG Medium", "\windows\arialbd.ttf,Arial")
RegDeleteKey("HKLM", "Software\Microsoft\FontLink\SkipTable", TRUE, TRUE)
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG", "025CF, 0300-FFFF")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG Light", "025CF, 0300-FFFF")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG Medium", "025CF, 0300-FFFF")
EndSub
Sub CleanupInstallation
If ( FileExists("\My Flash Disk\updateme_bak.exe") )
Delete("\My Flash Disk\*.NB0")
EndIf
If ( FileExists("\My Flash Disk\DFUWizardCE_bak.exe") )
Delete("\My Flash Disk\*.xpv")
Delete("\My Flash Disk\*.xdv")
Delete("\My Flash Disk\*.dfu")
EndIf
Delete("\My Flash Disk\*_bak")
Delete("\My Flash Disk\*_bak.exe")
Delete("\My Flash Disk\restore*.txt")
Delete("\My Flash Disk\WaitUntilBatteryFull*.exe")
Delete("\My Flash Disk\*.rgb")
Delete("\My Flash Disk\*.bin")
EndSub
Run("\My Flash Disk\VwUserShell\CradleLEDCtrl.exe")
Run("\My Flash Disk\VwUserShell\VwCommunicationExe.exe")
SetFileAttribute("\My Flash Disk\BrandDevice.reg", "readonly", FALSE)
RunWait("\My Flash Disk\VwBrandDevice\VwBrandDevice.exe")
Run("\My Flash Disk\VwUserShell\Mute.exe")
Run("\My Flash Disk\NAVIGON\VolumeUI.exe")
Run("\My Flash Disk\WatchdogPuppy.exe", "Watchdog_MN.ini Watchdog_BTCore.ini Watchdog_VwUserShell.ini Watchdog_PhoneApplication.ini Watchdog_MMP.ini Watchdog_HW.ini")
Sleep(5000)
If ( FileExists("\My Flash Disk\NAVIGON\CheckForStorageCard2.exe") )
Run("\My Flash Disk\NAVIGON\CheckForStorageCard2.exe")
EndIf
Call AddFontSkipping
Call InstallDebugger
Call CleanupInstallation
Exit
# ----------------------
Sub InstallDebugger
RegWriteDWord("HKLM","Debug","Debugger_Enable", 1)
If ( NOT RegValueExists("HKLM","Debug","JITDebugger") OR RegRead("HKLM","Debug","JITDebugger") ne "\My Flash Disk\ErrorReporter.exe" )
RegWriteString("HKLM","Debug","JITDebugger","\My Flash Disk\ErrorReporter.exe")
EndIf
EndSub
Sub AddFontSkipping
RegWriteDWord("HKLM", "SYSTEM\GDI", "FontLinkMethods", 3 )
RegDeleteKey("HKLM", "Software\Microsoft\FontLink\SystemLink", TRUE, TRUE)
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG", "\windows\arial.ttf,Arial")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG Light", "\windows\arial.ttf,Arial")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SystemLink", "Neo Tech VWNG Medium", "\windows\arialbd.ttf,Arial")
RegDeleteKey("HKLM", "Software\Microsoft\FontLink\SkipTable", TRUE, TRUE)
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG", "025CF, 0300-FFFF")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG Light", "025CF, 0300-FFFF")
RegWriteString("HKLM", "Software\Microsoft\FontLink\SkipTable", "Neo Tech VWNG Medium", "025CF, 0300-FFFF")
EndSub
Sub CleanupInstallation
If ( FileExists("\My Flash Disk\updateme_bak.exe") )
Delete("\My Flash Disk\*.NB0")
EndIf
If ( FileExists("\My Flash Disk\DFUWizardCE_bak.exe") )
Delete("\My Flash Disk\*.xpv")
Delete("\My Flash Disk\*.xdv")
Delete("\My Flash Disk\*.dfu")
EndIf
Delete("\My Flash Disk\*_bak")
Delete("\My Flash Disk\*_bak.exe")
Delete("\My Flash Disk\restore*.txt")
Delete("\My Flash Disk\WaitUntilBatteryFull*.exe")
Delete("\My Flash Disk\*.rgb")
Delete("\My Flash Disk\*.bin")
EndSub
Zuletzt bearbeitet von einem Moderator: