#region ### Global ###
Global $pfad = IniRead('Option.ini', 'Install_Path', 'Path', '')
#endregion ### Global ###
;============
#region ### X86 & X64 ###
Func Abiword()
	ShellExecute('abiword-setup-2.9.2.exe','',@ScriptDir&'\X86-X64bit\Abiword')
	Sleep(500)
	WinWaitActive('Installer Language','')
	Sleep(500)
	ControlClick('Installer Language','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:ComboBox; INSTANCE:1]')
	Sleep(500)
	Send('{DOWN}')
	Send('{DOWN}')
	Sleep(500)
	Send('{ENTER}')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
	Sleep(1000)
	Send ($pfad&'Abiword')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
	Sleep(750)
	If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
;~ 	Placeholder (>_<)
	ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
		Send('{TAB}')
		Send('{TAB}')
		Send('{Space}')
	EndIf
	ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	WinWait('AbiWord 2.9.2 Installation ', 'Die Installation wurde erfolgreich abgeschlossen.')
	Sleep(750)
	Send('{Space}')
	Sleep(500)
	ControlClick('AbiWord 2.9.2 Installation','','[CLASS:Button; INSTANCE:2]')
	Sleep(2000)
EndFunc
;=============
Func adobe_air()
	ShellExecute('AdobeAIRInstaller.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_air')
	MsgBox(0,'Info', 'Dieses Programm wird via Maus / Tastatur Installiert.' & @CRLF & 'Maus & Tastatur werden Blockiert.' & @CRLF & 'Die Blockierung wird nach 10sec wieder Aufgehoben' & @CRLF & @CRLF & 'Grund der Blockierung:' & @CRLF & 'Die Installarion ist nicht über "ControlClick" Erreichbar','5')
	SLeep(500)
	BlockInput(1)
	WinWaitActive('Adobe AIR einrichten')
	Send('{Space}')
	Sleep(10000)
	Send('{Space}')
	BlockInput(0)
	MsgBox(0,'Info','Blockierung Aufgehoben','2')
	Sleep(2000)
EndFunc
;=============
Func Adobe_Flash()

	WinWaitActive('Adobe Flash Player-Installationsprogramm')
	Sleep(7000)
	ControlClick('Adobe Flash Player-Installationsprogramm','','[CLASS:Internet Explorer_Server; INSTANCE:1]','left','1','103','220')
	Sleep(500)
	ControlClick('Adobe Flash Player-Installationsprogramm','','[CLASS:Internet Explorer_Server; INSTANCE:1]','left','1','653','274')
	Sleep(500)
EndFunc
;=============
Func Adobe_Reader()
	ShellExecute('install_reader10_de_mssd_aih.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_reader')
	Sleep(500)
	WinWaitActive('Adobe Reader-Installationsprogramm','')
	Sleep(12000)
EndFunc
;=============
Func Adobe_Shockwave()
	ShellExecute('Shockwave_Installer_Slim.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_shokwave')
	Sleep(500)
	WinWaitActive('Adobe Shockwave Player Installation: Installiere','')
	WinWaitActive('Installation von Adobe Shockwave Player','')
	ControlClick('Installation von Adobe Shockwave Player','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	ControlClick('Installation von Adobe Shockwave Player','','[CLASS:Button; INSTANCE:3]')
	Sleep(500)
	WinActivate('Adobe Shockwave Player Installation','')
	ControlClick('Adobe Shockwave Player Installation','','[CLASS:Button; INSTANCE:2]')
	Sleep(2000)
EndFunc
;=============
Func Audacity()
	ShellExecute('audacity-win-2.0.2.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity')
	WinWaitActive('Setup-Sprache auswählen','')
	Sleep(500)
	ControlClick('Setup-Sprache auswählen','','[CLASS:TNewButton; INSTANCE:1]')
	WinWaitActive('Setup - Audacity','')
	Sleep(500)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:2]')
	Sleep(1000)
	Send ($pfad&'Audacity')
	Sleep(750)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(750)
	If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
;		Placeholder (>_<)
	ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
		Send('{Space}')
	EndIf
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(500)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(500)
	WinWaitActive('Setup - Audacity','Information')
	Sleep(500)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(500)
	Send('{Space}')
	Sleep(500)
	ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	MsgBox(0,'Information','Audacity zubehör wird Installiert'& @CRLF &'Audacity Lame (mp3 Codec für Audacity)'& @CRLF &'LADSPA Plugins'& @CRLF &'VST Bridge für Audacity'& @CRLF &'Timeout nach 5sec',5)
;	Installation der Lame.exe
	ShellExecute('Lame.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_lame')
	Sleep(500)
	WinWaitActive('Setup - LAME for Audacity','')
	Sleep(750)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:1]')
	Sleep(500)
	WinWait('Setup - LAME for Audacity','License Agreement')
	Sleep(750)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewRadioButton; INSTANCE:1]')
	Sleep(750)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:2]')
	WinWait('Setup - LAME for Audacity','Select Destination Location')
	Sleep(500)
	Send ($pfad&'Lame For Audacity')
	Sleep(750)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	WinWaitActive('Setup - LAME for Audacity','')
	Sleep(1000)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(1000)
	ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
	Sleep(2000)
;	Installation der Plugins
	ShellExecute('LADSPA_plugins-win-0.4.15.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_plugin')
	WinWaitActive('Setup-Sprache auswählen','')
	Sleep(500)
	ControlClick('Setup-Sprache auswählen','','[CLASS:TButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TRadioButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:2]')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:2]')
	Sleep(1000)
	Send ($pfad&'Audacity\Plug-Ins')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
	Sleep(500)
	WinWaitActive('Setup - LADSPA_plugins-win','Beenden des LADSPA_plugins-win Setup-Assistenten')
	Sleep(500)
	ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
	Sleep(2000)
;	Installation der VST Bridge
	ShellExecute('vst_bridge_1_1.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_vst_brige')
	Sleep(500)
	WinWaitActive('Setup - VST Bridge','')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TRadioButton; INSTANCE:1]')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:2]')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:2]')
	Sleep(1000)
	Send ($pfad&'Audacity\Plug-ins')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
	Sleep(500)
	ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
	Sleep(2000)
EndFunc
;=============
Func AutoIt()
 	ShellExecute('autoit-v3.3.8.1-setup.exe','',@ScriptDir&'\X86-X64bit\AutoIt\AutoIt')
 	Sleep(500)
 	WinWait('AutoIt v3.3.8.1 Setup','')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:5]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	MsgBox(0,'Information','Dieses Programm kann nicht an Speziefischen Orten Installiert werden'&@CRLF&'Standard Pfad: C:\Program Files (x86)\AutoIt3',3)
 	Send ('C:\Program Files (x86)\AutoIt3')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:4]')
 	Sleep(500)
 	ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
 	Sleep(2000)
	ShellExecute('SciTE4AutoIt3.exe','',@ScriptDir&'\X86-X64bit\AutoIt\Scite')
	Sleep(500)
	WinWaitActive('SciTE4AutoIt3 6/10/2012 Setup','')
	Sleep(500)
	ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	WinWaitActive('SciTE4AutoIt3 6/10/2012 Setup','SciTE4AutoIt3 install finished')
	Sleep(500)
	ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
	Sleep(2000)
	If MsgBox(4,'Deutsche Hilfe','Soll die Deutsche Hilfe Installiert werden?') = 6 Then
		FileCopy(@ScriptDir&'\X86-X64bit\AutoIt\Deutsche Hilfe','C:\Program Files (x86)\AutoIt3',1)
	Else
		Return
	EndIf
	Sleep(1000)
	If MsgBox(4,'Organize Include','Soll Organize Include Installiert werden?') = 6 Then
		FileCopy(@ScriptDir&'\X86-X64bit\AutoIt\OrganizeIncludes','C:\Program Files (x86)\AutoIt3\SciTE',1)
	Else
		Return
	EndIf
	Sleep(1000)
EndFunc
;=============
Func Dropbox()
	ShellExecute('Dropbox 1.4.17.exe','',@ScriptDir&'\X86-X64bit\Dropbox')
	Sleep(500)
	WinWaitActive('Dropbox Setup','')
	Sleep(500)
	ControlClick('Dropbox Setup','','[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	ControlClick('Dropbox Setup','','[CLASS:Button; INSTANCE:2]')
	Sleep(500)
	WinWaitActive('Dropbox-Setup','Ich habe kein Dropbox-Konto',35)
	Sleep(500)
	If IniRead('Spez-Option.ini', 'Dropbox', 'Konto', '') = 'Ja' Then
		MsgBox(0,'Info','Konto Gefunden',1)
		ControlClick("Dropbox-Setup","","[CLASS:Button; INSTANCE:2]")
		Sleep(500)
		ControlClick('Dropbox-Setup','Weiter','[CLASS:Button; INSTANCE:3]','',2)
		_KontoVor()
	ElseIf IniRead('Spez-Option.ini', 'Dropbox', 'Konto', '') = 'Nein' Then
		MsgBox(0,'Info','Konto nicht Gefunden',1)
		ControlClick("Dropbox-Setup","","[CLASS:Button; INSTANCE:1]")
		Sleep(500)
		ControlClick('Dropbox-Setup','Weiter','[CLASS:Button; INSTANCE:3]','',2)
		_KontoNiVor()
	EndIf
EndFunc
;======
Func _KontoVor()
	$K_N = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Name','')
	$K_P = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Password','')
	Send($K_N)
	Sleep(500)
	Send('{Tab}')
	Sleep(500)
	Send($K_P)
EndFunc
;======
Func _KontoNiVor()

EndFunc
;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============

;=============


#endregion ### X86 & X64 ###
;=============
#region ### X86 ###
Func _7zip()
	ShellExecute('7z920-x64.msi','',@ScriptDir&'\X64bit\7-zip')
	WinWait('7-Zip 9.20 (x64 edition) Setup','')
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:3]')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
	Send($pfad&'7-Zip')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:5]')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
	Sleep(500)
	WinWait('7-Zip 9.20 (x64 edition) Setup','Completing the 7-Zip 9.20 (x64 edition) Setup Wizard')
	Sleep(500)
	ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
EndFunc

#endregion ### X86 ###
;=============
#region ### X64 ###

#endregion ### X64 ###
;=============
#region ### Info ###
Func _Finish()
	MsgBox(0,'Installation','Installation/en Beendet')
EndFunc
#endregion ### Info ###