Hallo,
durch diverse Softwaretests installiere ich zur Zeit mein Navi regelmäßig neu. Die Installation der einzelnen Programme ist dabei sehr lästig.
Mit dem Programm AutohotkeyCE kann man nun stupide Abläufe auch auf einem Navi automatisieren.
Autohotkey ist ein OpenSource-Programm für den PC, ich bin aber dabei eine kompatible Version für WinCE zu schreiben. Zirka 70% der Befehle laufen bereits.
Der Vorteil ist, daß man mit der extrem mächtigen Scriptsprache sehr viel machen kann, z.B. selber kleine Programme mit Oberfläche schreiben und andere Programme fernsteuern kann.
Bestehende Scripts können zwischen PC und PNA ausgetauscht werden.
Falls Ihr Wünsche habt, welche Funktionen von Autohotkey als nächstes in AutohotkeyCE umgesetzt werden sollen, schreibt mir am besten im AHK-Forum eine Antwort.
Hier ein kleines Beispielscript:
;
; AutoHotkeyCE Version: 1.0
; Language: English
; Platform: WinCE
; Author: Micha
;
; Script Function:
; Reinstallation of my Medion P4410
;
;Löschen der Bluetooth-Autostart
FileDelete, \My Flash Disk\navigation\menu\autostart\dialer.xml
;Reinkopieren der aktuellen Änderungen
;FileCopyDir, \Storage Card\newinstall\After Install\My Flash Disk\, \My Flash Disk, 1
;Kopieren des Städeguides Nürnbergs
FileCopy, \Storage Card\newinstall\After Install\Storage Card\New-install\MEN_DE_NRB.xml, \My Flash Disk\navigation\multimedia\travelguide\database\DE, 1
;Kontakte installieren
FileCopyDir, \Storage Card\newinstall\After Install\Storage Card\CONTACTS, \Storage Card\CONTACTS, 1
;KFZ-Dateien->Eigene Dateien
FileCreateDir, \Storage Card\Eigene Dateien
FileCopy, \Storage Card\newinstall\After Install\Storage Card\Eigene Dateien\*.*, \Storage Card\Eigene Dateien, 1
;Zusatzprogramme per Copy reinkopieren
FileCopyDir, \Storage Card\newinstall\After Install\Storage Card\Zusatzprogramme, \Storage Card\Zusatzprogramme, 1
;Desktopsymbole anlegen
FileCreateShortcut, "\My Flash Disk\navigation\MNAVDCE.EXE", \Windows\Desktop\Navigation.lnk
FileCreateShortcut, "\Storage Card\Zusatzprogramme\FileManCE2\FileManCE.exe", \Windows\Desktop\FileManCE.lnk
FileCreateShortcut, "\Storage Card\Zusatzprogramme\CEProcessV.exe", \Windows\Desktop\CEProcessV.lnk
FileCreateShortcut, "\Storage Card\Zusatzprogramme", \Windows\Desktop\Zusatzprogramme.lnk
;********************* Registryeintragungen machen *********************
;********************* Programme installieren *********************
FileCreateDir, \Storage Card\Zusatzprogramme
FileCreateDir, \Storage Card\Zusatzprogramme\Spiele
;*****Backgammon
FileRemoveDir, \Storage Card\Zusatzprogramme\Spiele\Backgammon, 1
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\AnyWare Consulting Backgammon.CAB")
InstallCab("Install AnyWare Consulting Backgammon", "\Storage Card\Zusatzprogramme\Spiele\Backgammon", 0)
;*****CEDigger
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\cedigger.cab")
InstallCab("Install Roy's DustDigger", "\Storage Card\Zusatzprogramme\Spiele", 1)
;*****Daughter
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\Daughter.arm.CAB")
InstallCab("Install TascalSoft Daughter in the box", "\Storage Card\Zusatzprogramme\Spiele", 1)
;*****Sudoku . Hierfür braucht man VB-Runtime
FileRemoveDir, \Storage Card\Zusatzprogramme\Spiele\Sudoku, 1
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\Sudoku_Solver.Arm 1100 (4K) v3.00.CAB")
InstallCab("Install c-digital-art.co.uk Sudoku Solver", "\Storage Card\Zusatzprogramme\Spiele\Sudoku", 0)
;*****VB-Runtime not Working
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\msvbppc.armv4.cab")
InstallCab("Install Microsoft VB Runtimes for PPC", "(Install Here)", 0)
;*****Cpuload
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\CpuLoad.ARM.300.CAB")
InstallCab("Install WR-Tools CpuLoad", "\Storage Card\Zusatzprogramme\WR-Tools", 0)
;*****dNote
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\derago dNote.CAB")
InstallCab("Install derago dNote", "\Storage Card\Zusatzprogramme", 1)
;*****Hali Reader
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\Haali Reader.CAB")
InstallCab("Install Haali Reader", "\Storage Card\Zusatzprogramme", 1)
;*****Microsoft Remote Display
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\Microsoft Remote Display Control.CAB")
InstallCab("Install Microsoft Remote Display Control", "\Storage Card\Zusatzprogramme", 1)
;*****MobiReader
FileRemoveDir, \Storage Card\Zusatzprogramme\MobiPocket, 1
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\mobireader_hpc.arm.cab")
InstallCab("Install MobiPocket.com Reader", "\Storage Card\Zusatzprogramme\MobiPocket", 0)
Process, Wait, mobibook.exe, 9000
Process, Close, mobibook.exe
;*****MSS Converter
FileRemoveDir, \Storage Card\Zusatzprogramme\MSSConverter, 1
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\MSS Converter.CAB")
InstallCab("Install Micromega MSS Converter", "\Storage Card\Zusatzprogramme\MSSConverter", 0)
;*****PNotepad
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\pnotepad.hpcarm.CAB")
InstallCab("Install Tillanosoft PocketNotepad", "\Storage Card\Zusatzprogramme", 1)
;*****Tascal Regedit
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\TascalRegEdit.arm.CAB")
InstallCab("Install TascalSoft TascalRegEdit", "\Storage Card\Zusatzprogramme", 1)
;*****Media Player
CopyCab("\Storage Card\newinstall\After Install\Storage Card\New-install\tcpmp081.cab")
InstallCab("Install Escape TCPMP 0.81", "\Storage Card\Zusatzprogramme\Mediaplayer", 0)
exitapp
InstallCab(WndTitel, ZielPfad, installhere)
{
WinWaitActive, %WndTitel%
Sleep, 500
CtrlSetAndWait("Edit1", ZielPfad, WndTitel)
;ControlSetText, Edit1, %ZielPfad%, %WndTitel%
Sleep, 500
Send, {enter}
if installhere = 1
{
Sleep, 200
CtrlSetAndWait("Edit1", "(Install Here)", WndTitel)
;ControlSetText, Edit1, (install here), %WndTitel%
Sleep, 200
Send, {enter}
}
}
CtrlSetAndWait(Ctrl, Text, WndTitel)
{
loop,
{
ControlSetText, %ctrl%, %Text%, %WndTitel%
Sleep, 200
ControlGetText, OutputVar, %Ctrl%, %WndTitel%
if OutputVar = %Text%
break
if a_index >= 10
{
MsgBox, 4,, ControlSetText- %ctrl%- %Text%- %WndTitel% failed 10 times. Would you like to continue? (press Yes or No)
IfMsgBox No
break
}
}
}
CopyCab(szFileName)
{
SplitPath, szFileName, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
;MsgBox, %szFileName% - %OutFileName% - %OutDir% - %OutExtension% - %OutNameNoExt% - %OutDrive%
FileCopy, %szFileName%, \temp\%OutFileName%, 1
Run, \temp\%OutFileName%
}
Alles anzeigen
Ciao
Micha