Auto Install [In Arbeit] {on Ice}

  • Moin moin,
    Wie so machne vll schon mitbekommen haben arbeite ich an einer "Multi" auto install
    Ich habe bis jetz schoneinmal dass

    Install Manager
    [autoit]


    #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>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #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)

    [/autoit] [autoit][/autoit] [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    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() ###

    [/autoit]
    Install Func's
    [autoit]


    #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()

    [/autoit] [autoit][/autoit] [autoit]

    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()

    [/autoit] [autoit][/autoit] [autoit]

    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][/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

    [/autoit] [autoit][/autoit] [autoit]

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

    [/autoit] [autoit][/autoit] [autoit]

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

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Wollte mal eure meinung zum Desing und aufbau / Verfahren der Installaion höhren.
    Fertig ist sie noch lange nicht :D
    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 :D
    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"

  • Nach (Angezeigten 516 Tagen) habe ich ÄNDLICH wieder ZEIT.
    Naja, soviel ist es auchnicht, aber zumindest, habe ich wieder Internet X(

    Ich habe diese Projekt nie Fertig bekommen..Leider :(
    Jetz sitz ich wieder daran, mann war das ne arbeit all die .exe's wieder zu ziehen

    Ach ich fühl mich Ihrwie richtig Mies das ich dass hier so liegengelassen habe :( :(
    Wie gesagt, ich Arbeite wieder daran, hab aber aufgrund von Beruf und Co keine 24/7 Zeit.

    Ich möchte mich hier an dieser Stelle noch ausdrücklich bei den Leuten die mich wegen diesem Thread angeschrieben haben und NIE eine Antwort erhielten, Entschuldigen.
    Entschuldigung.

    Greez

  • Ja hab ich gesehen :D Is das selbe worauf mich BugFix hinwies und welches ich knapp ne Stunde vorher auf [gelöst] gesezt habe :D
    Nichts für ungut :D Dennoch, Danke :)


    Edit: James1337 du Speedy gonzales DU :D

  • Ich wollte mir gerade mal dein Script anschauen, doch mir fehlt leider die "Info.au3" :huh: Es wäre nett wenn du diese auch anhängen könntest... Nun zur eigentlichen Grundfunktion des Scripts: Verstehe ich das richtig, dass die Idee dahinter ist für viele verschiedene Installationen eine Autoit-Funktionen zu erstellen, die die selbige dann automatisch installiert? Wenn dem so ist, solltest du vielleicht noch einmal über darüber nachdenken, ob ein solches Vorgehen wirklich sinnvoll ist. Denn jedes mal, wenn sich an einer Installation etwas ändert, müsste eine neue Version der Funktion erstellt werden... Das wäre, bei einer größeren Anzahl von Funktionen, allerdings nur durch eine riesige Community an fähigen Autoit-Scriptern wirklich realisierbar?!
    Wäre es dann nicht einfacher ein Programm zu entwickeln, welches es 'Nicht-Programmierern' ermöglicht über 'Knöpfe und Felder' eine Automatische-Installationen zu erstellen und diese dann in Form von 'Paketen' zu exportieren? Diese Pakete könnten dann zum Beispiel auch mit mehreren Anderen in einer Exe-Datei zusammen als 'eine' ausführbare Installation zusammen gepackt werden usw usw usw... :) Das wäre mal ein wirklich sinnvolles Programm, aber ich schätze mal das gibts schon... ^^

    LG
    Christoph :)

  • Die Info.au3 ist momentan noch leer, also kannst du diese Zeile einfach löschen.

    Zu deiner Idee: Das ist gut, das werde ich irgendwann auf jeden Fall mal versuchen.
    Aber dennoch sollte sich bei den meisten Programmen nicht so viel an der Installation ändern, wenn eine neue Version erscheint, bei vielen nur die Versionsangabe.

    MfG, James

  • Zitat von Christoph54

    Ich wollte mir gerade mal dein Script anschauen, doch mir fehlt leider die "Info.au3" :huh: Es wäre nett wenn du diese auch anhängen könntest...


    Diese .au3 ist zurzeit noch Leer und ich hab vergessen den #include auzukommentieren.

    Zitat von Christoph54

    Wenn dem so ist, solltest du vielleicht noch einmal über darüber nachdenken, ob ein solches Vorgehen wirklich sinnvoll ist. Denn jedes mal, wenn sich an einer Installation etwas ändert, müsste eine neue Version der Funktion erstellt werden...


    Dass siehst du Richtig, doch sogut wie jedes program beinhaltet eine "Update" funktion.
    Manko hier, nach dem Installieren muss erstmal geupdated werden.
    Ich Persönlich gehe dieses Manko ein.

    Was die Packed möglichkeit angeht, ja schon ne gute idde und sicherlich gibts sowas, glaub ich. Aber für mich nicht umsetzbar, wenn ich ehrlich bin

    Greez

  • So, da ich Nächste Woche in die Ferien gehe, Schweiz weite Tour mit Zelten und so, Kann ich demensprechend kaum weiter Scripten.
    Abwesenheit von 03.09.2012 bis 09.09.2012

    Diesbezüglich erwähne ich einmal meinen Hinterman, der für jegliche Fragen rund um den Thread sowie Script und Co zur Verfügung steht.
    James1337
    Er hat sämmtliche Dropbox Downloadlinks:
    -Auto install.au3
    -Info.au3
    -Installation.au3
    -test.au3
    -Auto Install.zip (Beinhaltet ALLES!!!! samt 1Gb Install .exe Sammlung)

    Überfordert mir James1337 ja nicht zu sehr, denn auch er hat ein Leben und ist nicht allwissen :D

    In diesem sinne Wünsche ich euch noch eine Schöne woche und bis übernächste Woche :)

    Oh, fast hätt ich es vergässen
    Planung:
    Was deffinitiv noch hizu kommt (Wann weiss ich nicht, ich denke dann wen ich weiss wie) Ist ein "MouseOver Tooltip" über jedem ListViewItem.
    Ich habe mir mal dieses Thread durchgelessen....Leider werde ich noch nicht ganz schlau daraus.
    Falls Jemand eine Bessere Idee oder andere Lösung dazu hat, bei James1337 Melden :D
    Falls dies hier jmd sehen sollte nachdem ich aus den Ferien zurück bin so auch gerne per PN an mich.

    Greez
    Skilkor

    (Kleine zusatz info)
    Ich werde sicherlich 2-3mal täglich via Smartphone Hier auf dem Portal Online sein.
    Doch mit nem Smartphone lässt sich Schlächt Programmieren :D

    Einmal editiert, zuletzt von Skilkor (2. September 2012 um 18:52)

  • hi, ich hab sowas ähnliches im ansatz, bin aber noch blutiger anfänger. also so weit wie ichs hab läuft es fast. nur der flashplayer will nicht und die .msi bekomm ich auch nicht zum laufen. ;(
    vieleicht könntest mal n auge drauf werfen???

    Spoiler anzeigen

    autoinstall

    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.12.0
    Author: rsb2104

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Routine zur Installation ausgewählter Programme.
    Programme nachfolgend

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{F7}","Ende")
    ;f7 stop running
    Func Ende ()
    While 1

    [/autoit] [autoit][/autoit] [autoit]

    Exit
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    While 1

    [/autoit] [autoit][/autoit] [autoit]

    ;Disable UAC
    #RequireAdmin
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","ConsentPromptBehaviorAdmin","REG_DWORD",0)

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(2000)
    ; nicht zu installierende Programme markieren und mit dem minus im nummernblock auskommentieren

    [/autoit] [autoit][/autoit] [autoit]

    ;----------------------Adobe----------------------------------------------
    ;Flashplayer
    ;Run ("flashplayer.au3")

    [/autoit] [autoit][/autoit] [autoit]

    ;AdobeReader
    Run ("adobe_reader.exe")
    Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ;---------------------FreePDF---------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ;Ghostscript32
    ;Run ("ghostscript32.exe")

    [/autoit] [autoit][/autoit] [autoit]

    ;Ghostscript64
    Run ("ghostscript64.exe")
    Sleep(60000)

    [/autoit] [autoit][/autoit] [autoit]

    ;FreePDF
    Run ("freepdf.exe")
    Sleep(60000)

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------------Security---------------------------------------------
    ;Avira
    Run ("avira.exe")
    Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ;Avast

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------------Browser----------------------------------------------
    ;FireFox
    Run ("firefox.exe")
    Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ;Chrome
    Run ("chrome.exe")
    Sleep(60000)

    [/autoit] [autoit][/autoit] [autoit]

    ;------------------Remote-------------------------------------------------
    ;Teamviewer
    Run ("teamviewer10.exe")
    Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ;AnyDesk
    Run ("anydesk.exe")
    Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ;-------------------Office------------------------------------------------
    ;LibreOffice
    ;~ Run ("libre.exe")
    ;~ Sleep(120000)

    [/autoit] [autoit][/autoit] [autoit]

    ; Enable UAC
    If @OSVersion = "WIN_7" Then
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","ConsentPromptBehaviorAdmin","REG_DWORD",5)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ;Run ("uninstall_autoit.exe")
    WEnd

    [/autoit]

    und das script für den flashplayer

    [autoit]

    ;FireFox-------------------------------------------------------------------------------------------------------------------------
    Run ("install_flashplayer16x32_mssd_aaa_aih.exe")
    WinWaitActive ("Adobe Flash Player-Installationsprogramm")
    Sleep(7000)
    ControlClick ("Adobe Flash Player-Installationsprogramm" ,"", "[CLASS:Internet Explorer_Server; INSTANCE:1]","left","1", "655,215")
    Sleep(40000)
    ;WinWait ("Adobe Flash Player-Installationsprogramm")
    ControlClick ("Adobe Flash Player-Installationsprogramm" ,"", "[CLASS:Internet Explorer_Server; INSTANCE:1]","left","1", "625,215")
    Sleep(5000)

    [/autoit]

    die .msi

    [autoit]

    ShellExecute("C:\Users\Administrator\Desktop\Install\Programme\LibreOffice_4.4.0_Win_x86.msi")
    Sleep(2000)
    ShellExecuteWait ("LibreOffice_4.4.0_Win_x86.msi")
    WinWaitActive ("LibreOffice 4.4.0.3 - Installationsassistent")
    ControlClick ("LibreOffice 4.4.0.3 - Installationsassistent", "&Weiter >" , "Button1")
    Sleep(300)
    ControlClick ("LibreOffice 4.4.0.3 - Installationsassistent" , "&Weiter >" , "Button5")
    Sleep(300)
    ControlClick ("LibreOffice 4.4.0.3 - Installationsassistent", "&Installieren" , "Button1")
    Sleep(180000)
    ControlClick ("LibreOffice 4.4.0.3 - Installationsassistent", "&Installieren" , "Button1")

    [/autoit]

    3 Mal editiert, zuletzt von rsb2104 (11. Februar 2015 um 12:34)