Moin moin,
Wie so machne vll schon mitbekommen haben arbeite ich an einer "Multi" auto install
Ich habe bis jetz schoneinmal dass
Install Manager
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#region ### include ###
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include "Installation.au3"
;#include"Info.au3"
#endregion ### include ###
;=============
#region ### ini ###
$opt_path = IniRead('Option.ini', 'Install_Path', 'Path', 'C:\Program Files (x86)')
#endregion ### ini ###
;=============
#region ### Global ###
Global $Instdir, $akpath, $hGui, $ListView
#endregion ### Global ###
;=============
#region ### Global Style ###
Global $style = BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER)
#endregion ### Global Style ###
;=============
#region ### Array angaben: BoxNames & Funktions ###
;=============Install Names=============
Global $BoxNames64_32[70] = ['Abiword', 'Adobe Air', 'Adobe Flash', 'Adobe Reader', 'Adobe Shockwave', 'Audacity', 'AutoIt', 'Avast', 'AVG Antivirus', 'Avira', 'Boinc', 'CCleaner', 'CDBunerXP', 'Comodo Antivirus', 'Comodo Firewall', 'Copernic Desktop Search', 'Cute PDF Writer', 'Daemon Tools Lite', 'Device Manager Pro','Dropbox', 'DSynchronize', 'DVDisaster', 'EasyCleaner', 'Eraser', 'Exact Audio Copy', 'Exif Sorter', 'Foobar 2000', 'Foxit Reader', 'Free Commander', 'Free Minder', 'Geosetter', 'Google Earth', 'HxD', 'ImgBurn', 'Inkscape', 'Irfanview', 'Mozilla Firefox 3.6', 'Mozilla Firefox 4', 'Mozilla Thunderbird', 'MP3Gain', 'MP3Tag', 'MUCommander', 'NotePad++', 'OpenIffice', 'Opera', 'PaintDotNet', 'PC Instector File Recovery', 'PDF Creator', 'Pidgin', 'Process Explorer', 'QuickPar', 'Recuva', 'RenameFiles', 'Skype','Soluto', 'Spybit Search and Destroy', 'TCPView', 'Tor Browser', 'Toucan', 'Truecrypt', 'Universal Extractor', 'Virtual CloneDrive', 'VirtualBox', 'Vist ShutDown Timer', 'VLC Media Player', 'WinAmp', 'xMedia Recorde', 'XnView', 'XviD']
Global $BoxNames64[4] = ['7-zip', 'Java', 'Media Player Classic HC', 'WinRar']
Global $BoxNames86[4] = ['7-zip64', 'Java64', 'Media Player Classic HC64', 'WinRar64']
;=======================================
;=============Install Func==============
Global $aFunktions[71] = ['Abiword', 'Adobe_Air', 'Adobe_Flash', 'Adobe_Reader', 'Adobe_Shockwave', 'Audacity', 'AutoIt', 'Avast', 'AVG_Antivirus', 'Avira', 'Boinc', 'CCleaner', 'CDBurnerXP', 'Comodo_Antivirus', 'Comodo Firewall', 'Copernic Desktop Search', 'Cute PDF Writer', 'Daemon Tools Lite', 'Device Manager Pro','Dropbox', 'DSynchronize', 'DVDisaster', 'EasyCleaner', 'Eraser', 'Exact Audio Copy', 'Exif Sorter', 'Foobar 2000', 'Foxit Reader', 'Free Commander', 'Free Minder', 'Geosetter', 'Google Earth', 'HxD', 'ImgBurn', 'Inkscape', 'Irfanview', 'MokaFive', 'Mozilla Firefox 3.6', 'Mozilla Firefox 4', 'Mozilla Thunderbird', 'MP3Gain', 'MP3Tag', 'MUCommander', 'NotePad++', 'OpenIffice', 'Opera', 'PaintDotNet', 'PC Instector File Recovery', 'PDF Creator', 'Pidgin', 'Process Explorer', 'QuickPar', 'Recuva', 'RenameFiles', 'Skype','Soluto', 'Spybit Search and Destroy', 'TCPView', 'Tor Browser', 'Toucan', 'Truecrypt', 'Universal Extractor', 'Virtual CloneDrive', 'VirtualBox', 'Vist ShutDown Timer', 'VLC Media Player', 'WinAmp', 'xMedia Recorde', 'XnView', 'XviD']
Global $X64Funktions[4] = ['7-zip', 'Java', 'Media Player Classic HC', 'WinRar']
Global $X86Funktions[4] = ['_7zip86', 'Java86','_MediaPlayerClassicHC86', '_WinRar86']
;========================================
;========Checkbox Names _SpezOpt=========
Global $Checkbox[14]
Global $CheckNames[14] = ['RAR', 'Zip', 'CAB', 'ARJ', 'LZH', 'ACE', '7-Zip', 'TAR', 'GZip', 'UUE', 'BZ2', 'JAR', 'ISO', 'Z']
Global $Left[14] = [16, 72, 128, 184, 240, 296, 352, 408, 464, 520, 16, 72, 128, 184]
Global $Top[14] = [352, 352, 352, 352, 352, 352, 352, 352, 352, 352, 376, 376, 376, 376]
;RAR ZIP CAB ARJ LZH ACE 7ZIP TAR GZIP UUE BZ2 JAR ISO Z
;========================================
#endregion ### Array angaben: BoxNames & Funktions ###
;=============
#region ### GUI ###
$hGui = GUICreate('Auto Install', 421, 421, -1, -1, $style)
GUICtrlCreateGroup('( X86 ) 32Bit und ( X64 ) 64Bit', 10, 10, 230, 400)
GUICtrlCreateGroup('Install Manager', 250, 10, 161, 200)
GUICtrlCreateGroup('( ' & @OSArch & ' )' & ' Bit only', 248, 210, 161, 200)
$install = GUICtrlCreateLabel('Ausgewählte Installieren', 264, 30, 118, 17)
$deinstall = GUICtrlCreateLabel('Deinstallations Info', 264, 50, 131, 17)
$opt = GUICtrlCreateLabel('Optionen', 304, 160, 47, 17)
$exit = GUICtrlCreateLabel('Beenden', 304, 180, 47, 17)
$akpath = GUICtrlCreateLabel('Install Pfad: ' & @CRLF & $opt_path, 264, 120, 139, 33)
#endregion ### GUI ###
;=============
#region ### ListView ###
$Header = 'Name'
$ListView = GUICtrlCreateListView($Header, 20, 25, 210, 370, $LVS_SINGLESEL, $LVS_EX_CHECKBOXES)
_GUICtrlListView_RegisterSortCallBack($ListView)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, 193)
For $i = 0 To UBound($BoxNames64_32) - 1
$item32_64 = GUICtrlCreateListViewItem($BoxNames64_32[$i], $ListView)
Next
#endregion ### ListView ###
;=============
#region ### ListView Os ###
$HeaderOS = 'Name'
$ListViewOS = GUICtrlCreateListView($HeaderOS, 258, 225, 141, 170, $LVS_SINGLESEL, $LVS_EX_CHECKBOXES)
_GUICtrlListView_RegisterSortCallBack($ListViewOS)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg($ListViewOS, $LVM_SETCOLUMNWIDTH, 0, 140)
If @OSArch = 'X64' Then
For $a = 0 To UBound($BoxNames64) - 1
$item64 = GUICtrlCreateListViewItem($BoxNames64[$a], $ListViewOS)
Next
ElseIf @OSArch = 'X86' Then
For $b = 0 To UBound($BoxNames86) - 1
$item86 = GUICtrlCreateListViewItem($BoxNames86[$b], $ListViewOS)
Next
EndIf
#endregion ### ListView Os ###
GUISetState(@SW_SHOW)
;=============
#region ### EVENT ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $exit
Exit
Case $opt
_opt($Instdir)
Case $install
_Install()
Case $deinstall
_Deinstall()
EndSwitch
WEnd
#endregion ### EVENT ###
;=============
#region ### _opt() ###
Func _opt($Instdir)
$ini = IniRead('Option.ini', 'Install_Path', 'Path', 'C:\Program Files (x86)')
$option = GUICreate('Optionen', 434, 147, -1, -1, $style)
GUICtrlCreateGroup('', 10, 10, 410, 120)
$Instdir = GUICtrlCreateInput($ini, 30, 30, 350, 21,$ES_READONLY)
$path = GUICtrlCreateButton('...', 380, 30, 15, 20)
GUICtrlCreateLabel('Legt den Standard Installations Pfad fest', 30, 56, 198, 15)
$SpezOpt = GUICtrlCreateLabel('Prog-Spez Optionen', 310, 87, -1, 17)
$save = GUICtrlCreateLabel('Speichern', 310, 104, 50, 17)
$back = GUICtrlCreateLabel('Zurück', 368, 104, 38, 15)
$DCut = GUICtrlCreateCheckbox('Desktop Shortcut', 30, 87, 137, 17)
$QLCut = GUICtrlCreateCheckbox('Quick Launch Shortcuts', 30, 104, 137, 17)
If IniRead('Option.ini', 'Shortcuts', 'Desktop Shortcuts', '') = 'Ja' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:3]','Check', '')
ElseIf IniRead('Option.ini', 'Shortcuts', 'Desktop Shortcuts', '') = 'Nein' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:3]','UnCheck', '')
EndIf
If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:4]','Check', '')
ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:4]','UnCheck', '')
EndIf
GUISetState(@SW_SHOW, $option)
;=============
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back
GUISetState(@SW_HIDE, $option)
Return
Case $path
$pathinst = FileSelectFolder('Installations Verzeichniss auswählen', '')
If (Not @error) Then
If (StringRight($pathinst, 1) <> '\') Then
$pathinst = $pathinst & '\'
EndIf
$opt_path = $pathinst
GUICtrlSetData($akpath, 'Install Pfad: ' & @CRLF & $opt_path)
ControlSetText('', '', $Instdir, $opt_path)
EndIf
Case $save
IniWrite('Option.ini', 'Install_Path', 'Path', GUICtrlRead($Instdir))
If GUICtrlRead($DCut) = 1 Then
IniWrite('Option.ini', 'Shortcuts', 'Desktop Shortcuts', 'Ja')
Else
IniWrite('Option.ini', 'Shortcuts', 'Desktop Shortcuts', 'Nein')
endif
If GUICtrlRead($QLCut) = 1 Then
IniWrite('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', 'Ja')
Else
IniWrite('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', 'Nein')
endif
MsgBox(0,'Optionen','Optionen Gespeichert',2)
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
Case $SpezOpt
_SpezOpt()
EndSwitch
WEnd
EndFunc ;==>_opt
#endregion ### _opt() ###
;=============
#region ### _SpezOpt() ###
Func _SpezOpt()
$ini_konto = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Name', '')
$ini_pw = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Password', '')
$SpezOptGUI = GUICreate('SpezOpt',625, 475,-1,-1,$style)
GUICtrlCreateGroup('Programm Speziefische Optionen',8,8,601,153)
GUICtrlCreateGroup('Dropbox',16,24,585,115)
GUICtrlCreateGroup('Info',312,32,281,89)
GUICtrlCreateLabel('Besitzen Sie ein Dropbox-Konto?',24,40,160,17)
GUICtrlCreateLabel('Konto Name',24,64,60,17)
GUICtrlCreateLabel('Konto Password',24,88,78,17)
GUICtrlCreateLabel('Ihre Kontodaten werden in der Option.ini Gespeichert.'&@CRLF&@CRLF&'Nach der Installation von Dropbox, werden Sie Gefragt ob der Eintrag in der Option.ini Gelöscht werden soll',320,48,266,68)
$KsV = GUICtrlCreateLabel('Konto-Daten vorab Erstellen',24,142,137,17)
$Ja = GUICtrlCreateRadio('Ja',184,40,33,17)
$Nein = GUICtrlCreateRadio('Nein',224,40,41,17)
$Konto = GUICtrlCreateInput($ini_konto,104,64,201,21)
$Password = GUICtrlCreateInput($ini_pw,104,88,201,21)
$Avast = GUICtrlCreateGroup('Avast', 8, 168, 601, 73)
GUICtrlCreateLabel('Avast wird mit dem Parameter /verysilent Installiert, dass heisst das es eine Volle Unsichtbare Installation ist.'&@CRLF&'Durch die /verysilent Installation wird Google Chrome mit Installiert', 16, 184, 590, 50)
GUICtrlCreateGroup('WinRAR', 8, 336, 601, 73)
GUICtrlCreateGroup('',488, 410, 121, 50)
$Speichern = GUICtrlCreateLabel('Speichern',496, 430, 52, 17)
$Zur = GUICtrlCreateLabel('Zurück',560, 430, 35, 17)
For $Cii = 0 To UBound($CheckNames) - 1
$Checkbox[$Cii] = GUICtrlCreateCheckbox($CheckNames[$Cii], $Left[$Cii], $Top[$Cii], 49, 17)
If IniRead('Spez-Option.ini', 'WinRAR', $CheckNames[$Cii], 'Nein') = 'Ja' Then
ControlCommand($SpezOptGUI,'',$CheckNames[$Cii],'Check')
Else
ControlCommand($SpezOptGUI,'',$CheckNames[$Cii],'UnCheck')
EndIf
Next
If IniRead('Spez-Option.ini','Dropbox','Konto','') = 'Ja' Then
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:5]','UnCheck','')
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:4]','Check','')
ElseIf IniRead('Spez-Option.ini','Dropbox','Konto','') = 'Nein' Then
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:4]','UnCheck','')
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:5]','Check','')
EndIf
GUISetState(@SW_SHOW)
;=============
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Zur
GUISetState(@SW_HIDE, $SpezOptGUI)
Return
Case $Speichern
If GUICtrlRead($Ja) = 1 Then
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto', 'Ja')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Name', GUICtrlRead($Konto))
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Password', GUICtrlRead($Password))
MsgBox(0,'Optionen','Optionen Gespeichert',2)
Else
If MsgBox(4,'Konto Erstellen','Möchten Sie die Daten für die Erstellung eines Dropbox-Kontos vorab Speichern?') = 6 Then
_Konto_Erst()
Else
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto', 'Nein')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Name', '')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Password', '')
EndIf
EndIf
For $i = 0 To 13
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite('Spez-Option.ini', 'WinRAR', $CheckNames[$i], 'Ja')
Else
IniWrite('Spez-Option.ini','WinRAR', $CheckNames[$i], 'Nein')
EndIf
Next
Sleep(500)
ControlClick('SpezOpt','','[CLASS:Static; INSTANCE:8]')
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
Case $KsV
_Konto_Erst()
EndSwitch
WEnd
EndFunc
#endregion ### _SpezOpt() ###
;=============
#region ### _Konto_Erst() ###
Func _Konto_Erst()
$ini_VN = IniRead('Spez-Option.ini','Konto vorab save','Vorname','')
$ini_NN = IniRead('Spez-Option.ini','Konto vorab save','Nachname','')
$ini_EM = IniRead('Spez-Option.ini','Konto vorab save','E-Mail','')
$ini_PW = IniRead('Spez-Option.ini','Konto vorab save','Kennwort','')
$KvS = GUICreate('Konto vorab Speicherung', 306, 162,-1, -1,$style)
GUICtrlCreateGroup('', 8, 8, 289, 145)
$Vorname = GUICtrlCreateLabel(' Vorname:', 24, 24, 52, 17)
$Nachname = GUICtrlCreateLabel('Nachname:', 16, 48, 59, 17)
$email = GUICtrlCreateLabel('E-Mail:', 40, 72, 36, 17)
$Kennwort = GUICtrlCreateLabel('Kennwort:', 24, 96, 52, 17)
$InputVN = GUICtrlCreateInput($ini_VN, 80, 24, 209, 21)
$InputNN = GUICtrlCreateInput($ini_NN, 80, 48, 209, 21)
$InputEM = GUICtrlCreateInput($ini_EM, 80, 72, 209, 21)
$InputPW = GUICtrlCreateInput($ini_PW, 80, 96, 209, 21)
$Speichern_KvS = GUICtrlCreateLabel('Speichern', 184, 128, 52, 17)
$Zur_KvS = GUICtrlCreateLabel('Zurück', 248, 128, 38, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Zur_KvS
GUISetState(@SW_HIDE, $KvS)
Return
Case $Speichern_KvS()
IniWrite('Spez-Option.ini','Konto vorab save','Vorname',GUICtrlRead($InputVN))
IniWrite('Spez-Option.ini','Konto vorab save','Nachname',GUICtrlRead($InputNN))
IniWrite('Spez-Option.ini','Konto vorab save','E-Mail',GUICtrlRead($InputEM))
IniWrite('Spez-Option.ini','Konto vorab save','Kennwort',GUICtrlRead($InputPW))
MsgBox(0,'Info','Gespeichert',2)
Sleep(500)
ControlClick('Konto vorab Speicherung','','[CLASS:Static; INSTANCE:6]')
Sleep(500)
ControlClick('SpezOpt','','[CLASS:Static; INSTANCE:7]')
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
EndSwitch
WEnd
EndFunc
#endregion ### _Konto_Erst() ###
;=============
#region ### _Install() ###
Func _Install()
For $i = 0 To _GUICtrlListView_GetItemCount($listview) - 1
If _GUICtrlListView_GetItemChecked($listview, $i) Then Call($aFunktions[$i])
Next
If @OSArch = 'X64' Then
For $a = 0 To _GUICtrlListView_GetItemCount($listviewOs) -1
If _GUICtrlListView_GetItemChecked($listviewOs, $a) Then Call($X64Funktions[$a])
Next
ElseIf @OSArch = 'X86' Then
For $b = 0 To _GUICtrlListView_GetItemCount($listviewOs) -1
If _GUICtrlListView_GetItemChecked($listviewOs, $b) Then Call($X86Funktions[$b])
Next
EndIf
_Finish()
EndFunc ;==>_Install
#endregion ### _Install() ###
;=============
#region ### _Deinstall() ###
Func _Deinstall()
MsgBox(0,'Deinstallations Info','Es wird Empfohlen, Programme über die' & @CRLF & '"Systemsteuerung -> Programme und Funktionen"' & @CRLF & 'zu Deinstallieren.' & @CRLF & @CRLF & 'Win7:' & @CRLF & 'Falls Ihre "Anzeige:" auf "Kategorie" Eingestellt ist.' & @CRLF & '"Programme -> Programme und Funktionen"')
EndFunc
#endregion ### _Deinstall() ###
Install Func's
#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
;=============
;=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#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 ###
Wollte mal eure meinung zum Desing und aufbau / Verfahren der Installaion höhren.
Fertig ist sie noch lange nicht
Und wen jmd lust hat kann er mir helfen die Install Func zu erstellen...
Bedenkt aber das im manager die Pfad Angaben und Shortcuts einstellbar sind und diese in einer Ini gespeichert werden UND diese sich auf die Installation auswirken.
***Edit***
Falls jmd das Software Packet von 1GB haben möchte, sage mir bescheid
Oder die Lust und Laune hat mir beim Scripten zu helfen (Denn es ist ja nicht gerade wenig >_<)
Sage auch bescheid, der kommt dan in den "Helfende Hände" bereich, Scripte sind Frei zugänglich, aber nicht immer aktuell, also, auch jeweils die aktuelen Scripte.....
***Helfende Hände***
James1337
Greez Skilkor
Edit*: .au3 dateien & Spoiler Aktualisiert
Edit**: Auto Install.au3 und Spoiler (Install Manager) Aktualisiert
- Neue Option Hinzugefügt sovie 2 Programme "Dropbox" und "Soluto"