Automatisierung mit Autohotkey

;
; 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%
}