[Ex] Install auto de logiciel via interface graphique

[SurPriseS]

Op donc je post même si il est pas tout a fait finit (il manque la fonction pour le lancement de l'application a la fin).
J'ai récupéré le "design" de ToMs (de tête sur se forum ou l'ancien).

Donc le script dans l'état actuel permet d'aller chercher les application zippé sur un serveur (ici FTP), de les dézippé et quand j'aurais finit de lancer les installations (On retrouve les installations des logiciels que j'ai déjà fait sur mon wiki : http://www.k1der.net/~surprise/wikipti/ ... ?id=autoit pas forcément super a jours mais bon...)

Pour le moment j'utilise 7zip pour la décompression et Wget pour le téléchargement ( je compte changer bientôt pour le faire directement avec Autoit).

Voila je crois avoir fait le tour du script

► Afficher le texte

Code : Tout sélectionner

#cs - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
AutoIt Version: 3.2.4.9
Author: ToMs/SurPriseS
Script Function:
Menu package auto.
#ce - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Script Start - Add your code below here
#include <GUIConstants>
#include <Date>
;#NoTrayIcon
AutoItSetOption ( " TrayAutoPause " , 0 )
AutoItSetOption ( " TrayIconDebug " , 1 )
; GUI
GuiCreate ( " Speed Install - Design By ToMs - Code SurPriseS " , 500 , 470 )
GUISetState ( @SW_SHOW )
;picture
GuiCtrlCreatePic ( " logo.jpg " , 355 , 30 , 120 , 40 )
GUICtrlCreatelabel ( _DateTimeFormat ( _NowCalc ( ) , 2 ) , 355 , 80 )
;chkbox
GUICtrlCreateGroup ( " Pack Bureautique " , 10 , 10 , 150 , 220 )
$check1 = GUICtrlCreateCheckbox ( " Firefox " , 20 , 25 , 120 , 20 )
$check2 = GUICtrlCreateCheckbox ( " ThunderBird " , 20 , 45 , 120 , 20 )
$check3 = GUICtrlCreateCheckbox ( " ****** " , 20 , 65 , 120 , 20 )
$check4 = GUICtrlCreateCheckbox ( " ****** " , 20 , 85 , 120 , 20 )
$check5 = GUICtrlCreateCheckbox ( " ****** " , 20 , 105 , 120 , 20 )
$check6 = GUICtrlCreateCheckbox ( " ****** " , 20 , 125 , 120 , 20 )
$check7 = GUICtrlCreateCheckbox ( " ****** " , 20 , 145 , 120 , 20 )
$check8 = GUICtrlCreateCheckbox ( " ****** " , 20 , 165 , 120 , 20 )
$check9 = GUICtrlCreateCheckbox ( " ****** " , 20 , 185 , 120 , 20 )
$check10 = GUICtrlCreateCheckbox ( " ****** " , 20 , 205 , 120 , 20 )
GUICtrlCreateGroup ( " Pack Securite " , 170 , 10 , 150 , 100 )
$check11 = GUICtrlCreateCheckbox ( " Avg " , 180 , 25 , 120 , 20 )
$check12 = GUICtrlCreateCheckbox ( " ****** " , 180 , 45 , 120 , 20 )
$check13 = GUICtrlCreateCheckbox ( " ****** " , 180 , 65 , 120 , 20 )
$check14 = GUICtrlCreateCheckbox ( " ****** " , 180 , 85 , 120 , 20 )
GUICtrlCreateGroup ( " Drivers " , 170 , 130 , 150 , 100 )
$check15 = GUICtrlCreateLabel ( " Nvidia " , 180 , 145 , 120 , 20 )
GuiCtrlSetFont ( $check15 , 9 , 400 , 4 ) ;underline
GuiCtrlSetColor ( $check15 , 0x0000FF )
$check16 = GUICtrlCreateLabel ( " Ati " , 180 , 165 , 120 , 20 )
GuiCtrlSetFont ( $check16 , 9 , 400 , 4 ) ;underline
GuiCtrlSetColor ( $check16 , 0x0000FF )
$check17 = GUICtrlCreateLabel ( " Hitman Pro " , 180 , 185 , 120 , 20 )
GuiCtrlSetFont ( $check17 , 9 , 400 , 4 ) ;underline
GuiCtrlSetColor ( $check17 , 0x0000FF )
$check18 = GUICtrlCreatelabel ( " ****** " , 180 , 205 , 120 , 20 )
GUICtrlCreateGroup ( " Pack Personnalisation " , 330 , 130 , 150 , 100 )
$check19 = GUICtrlCreateCheckbox ( " Pcperso " , 340 , 145 , 120 , 20 )
$check20 = GUICtrlCreateCheckbox ( " ****** " , 340 , 165 , 120 , 20 )
$check21 = GUICtrlCreateCheckbox ( " ****** " , 340 , 185 , 120 , 20 )
$check22 = GUICtrlCreateCheckbox ( " ****** " , 340 , 205 , 120 , 20 )
GUICtrlCreateGroup ( " Pack Basique " , 10 , 235 , 470 , 170 )
$check23 = GUICtrlCreateCheckbox ( " 7zip " , 20 , 250 , 120 , 20 )
$check24 = GUICtrlCreateCheckbox ( " Acrobat Reader 8 " , 20 , 270 , 120 , 20 )
$check25 = GUICtrlCreateCheckbox ( " Java " , 20 , 290 , 120 , 20 )
$check26 = GUICtrlCreateCheckbox ( " Maxi Compte " , 20 , 310 , 120 , 20 )
$check27 = GUICtrlCreateCheckbox ( " Nero " , 20 , 330 , 120 , 20 )
$check28 = GUICtrlCreateCheckbox ( " OpenOffice " , 20 , 350 , 120 , 20 )
$check29 = GUICtrlCreateCheckbox ( " Pdf Créator " , 20 , 370 , 120 , 20 )
$check30 = GUICtrlCreateCheckbox ( " Picasa " , 180 , 250 , 120 , 20 )
$check31 = GUICtrlCreateCheckbox ( " VLC " , 180 , 270 , 120 , 20 )
$check32 = GUICtrlCreateCheckbox ( " Windows Live MSN " , 180 , 290 , 120 , 20 )
$check33 = GUICtrlCreateCheckbox ( " ****** " , 180 , 310 , 120 , 20 )
$check34 = GUICtrlCreateCheckbox ( " ****** " , 180 , 330 , 120 , 20 )
$check35 = GUICtrlCreateCheckbox ( " ****** " , 180 , 350 , 120 , 20 )
$check36 = GUICtrlCreateCheckbox ( " ****** " , 180 , 370 , 120 , 20 )
$check37 = GUICtrlCreateCheckbox ( " ****** " , 340 , 250 , 120 , 20 )
$check38 = GUICtrlCreateCheckbox ( " ****** " , 340 , 270 , 120 , 20 )
$check39 = GUICtrlCreateCheckbox ( " ****** " , 340 , 290 , 120 , 20 )
$check40 = GUICtrlCreateCheckbox ( " ****** " , 340 , 310 , 120 , 20 )
$check41 = GUICtrlCreateCheckbox ( " ****** " , 340 , 330 , 120 , 20 )
$check42 = GUICtrlCreateCheckbox ( " ****** " , 340 , 350 , 120 , 20 )
;Bouton
$Button_1 = GUICtrlCreateButton ( " Install " , 200 , 420 , 100 )
While 1
$msg = GUIGetMsg ( )
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
; - - - - - - - - - - - - - - - - - - - - - Drivers
;nvidia
Case $msg = $check15
_ShellEx ( 'http://www.nvidia.fr/page/drivers.html' )
;ati
Case $msg = $check16
_ShellEx ( 'http://ati.amd.com/support/driver.html' )
;Hitman pro
Case $msg = $check17
_ShellEx ( 'http://hitmanpro1.dyndns.org/strider2/link.aspx?name = download' )
; - - - - - - - - - - - - - - - - - - - - - Bouton install
Case $msg = $button_1
; - - - - - - - - - - - - - - - - - - - - - Pack sécurité
; Avg
If BitAnd ( GuiCtrlRead ( $check11 ) , $GUI_CHECKED ) Then
MsgBox ( 32 , " AVG " , " test " )
EndIf
; - - - - - - - - - - - - - - - - - - - - - Pack personalisation
;Pcperso
If BitAnd ( GuiCtrlRead ( $check19 ) , $GUI_CHECKED ) Then
MsgBox ( 32 , " pcperso " , " test " )
EndIf
; - - - - - - - - - - - - - - - - - - - - - pack basique
;7zip
If BitAnd ( GuiCtrlRead ( $check23 ) , $GUI_CHECKED ) Then
$fichier = " 7zip.zip "
download ( $fichier )
unzip ( $fichier )
EndIf
;acrobat reader 8
If BitAnd ( GuiCtrlRead ( $check24 ) , $GUI_CHECKED ) Then
$fichier = " acrobat_reader.zip "
download ( $fichier )
unzip ( $fichier )
EndIf
; - - - - - - - - - - - - - - - - - - - - - pack bureautique
EndSelect
Wend
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FONCTION :
; - - - - - - - - - - - - - - - - - - - - - - - - - Download :
Func download ( $fichier )
if FileExists ( $fichier ) then FileDelete ( $fichier )
$proto = " ftp "
$ip = " 192.168.0.100 "
$chemin = " /stock1/package_auto_4/ "
$url = $proto & " :// " & $ip & $chemin & $fichier
$cmd = " wget.exe " & $url
$affichage = " Telechargement de " & $fichier
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
runwait ( $cmd , '' , @SW_hide )
$affichage = " Téléchargement terminée "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Téléchargement terminée . "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Téléchargement terminée .. "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Téléchargement terminée ... "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
EndFunc
; - - - - - - - - - - - - - - - - - - - - - - - - - Unzip :
Func unzip ( $fichier )
$cmd2 = " 7za.exe x - y " & $fichier
$affichage = " Décompréssion de " & $fichier
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
runwait ( $cmd2 , '' , @SW_hide )
$affichage = " Décompréssion terminée "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Décompréssion terminée . "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Décompréssion terminée .. "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
sleep ( 500 )
$affichage = " Décompréssion terminée ... "
$check60 = GUICtrlCreateLabel ( $affichage , 200 , 450 )
EndFunc
; - - - - - - - - - - - - - - - - - - - - - - - - - Install :
Func install ( $fichier )
EndFunc
; - - - - - - - - - - - - - - - - - - - - - - - - - _ShellEx :
Func _ShellEx ( $sCmd )
DllCall ( " shell32.dll " , " long " , " ShellExecute " , " hwnd " , 0 , " string " , '' , " string " , $sCmd , " string " , '' , " string " , '' , " long " , @SW_SHOWNORMAL )
EndFunc ; = = >_ShellEx

[SurPriseS]

Bon grâce aux bonnes âmes du forum le script fonctionne enfin parfaitement, je post donc tout les fichiers nécessaires a son fonctionnement (et demain j'upload un zip avec tout se qu'il faut).

Il y a sûrement beaucoup de chose a améliorer (comme regroupé tout le monde dans le .exe) mais si vous avez des idées je suis preneur

aller op une petite screen pour montrer :


Alors le code :

► Afficher le texteCode

Code : Tout sélectionner

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

 AutoIt Version: 3.2.4.9
 Author:         ToMs/SurPriseS

 Script Function:
    Menu package auto.

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

; Script Start


#include <GUIConstants.au3>
#include <Date.au3>
;#NoTrayIcon
AutoItSetOption("TrayAutoPause",0)  
AutoItSetOption("TrayIconDebug",1)
; GUI
GuiCreate("Speed Install - Design By ToMs - Code SurPriseS", 500, 470)
GUISetState (@SW_SHOW)

;picture
GuiCtrlCreatePic("logo.jpg",355,30, 120,40)
GUICtrlCreatelabel (_DateTimeFormat( _NowCalc(),2), 355,80)



;chkbox
$ini_titre1 = IniRead("titre.ini","1","titre","")
GUICtrlCreateGroup($ini_titre1, 10, 10, 150, 220)
$ini_ckeck1 = IniRead("log.ini","1","name","")
$check1 = GUICtrlCreateCheckbox ($ini_ckeck1, 20, 25, 120, 20)
$ini_ckeck2 = IniRead("log.ini","2","name","")
$check2 = GUICtrlCreateCheckbox ($ini_ckeck2, 20, 45, 120, 20)
$ini_ckeck3 = IniRead("log.ini","3","name","")
$check3 = GUICtrlCreateCheckbox ($ini_ckeck3, 20, 65, 120, 20)
$ini_ckeck4 = IniRead("log.ini","4","name","")
$check4 = GUICtrlCreateCheckbox ($ini_ckeck4, 20, 85, 120, 20)
$ini_ckeck5 = IniRead("log.ini","5","name","")
$check5 = GUICtrlCreateCheckbox ($ini_ckeck5, 20, 105, 120, 20)
$ini_ckeck6 = IniRead("log.ini","6","name","")
$check6 = GUICtrlCreateCheckbox ($ini_ckeck6, 20, 125, 120, 20)
$ini_ckeck7 = IniRead("log.ini","7","name","")
$check7 = GUICtrlCreateCheckbox ($ini_ckeck7, 20, 145, 120, 20)
$ini_ckeck8 = IniRead("log.ini","8","name","")
$check8 = GUICtrlCreateCheckbox ($ini_ckeck8, 20, 165, 120, 20)
$ini_ckeck9 = IniRead("log.ini","9","name","")
$check9 = GUICtrlCreateCheckbox ($ini_ckeck9, 20, 185, 120, 20)
$ini_ckeck10 = IniRead("log.ini","10","name","")
$check10 = GUICtrlCreateCheckbox ($ini_ckeck10, 20, 205, 120, 20)


$ini_titre2 = IniRead("titre.ini","2","titre","")
GUICtrlCreateGroup($ini_titre2, 170, 10, 150, 100)
$ini_ckeck11 = IniRead("log.ini","11","name","")
$check11 = GUICtrlCreateCheckbox ($ini_ckeck11, 180, 25, 120, 20)
$ini_ckeck12 = IniRead("log.ini","12","name","")
$check12 = GUICtrlCreateCheckbox ($ini_ckeck12, 180, 45, 120, 20)
$ini_ckeck13 = IniRead("log.ini","13","name","")
$check13 = GUICtrlCreateCheckbox ($ini_ckeck13, 180, 65, 120, 20)
$ini_ckeck14 = IniRead("log.ini","14","name","")
$check14 = GUICtrlCreateCheckbox ($ini_ckeck14, 180, 85, 120, 20)


$ini_titre3 = IniRead("titre.ini","3","titre","")
GUICtrlCreateGroup($ini_titre3, 170, 130, 150, 100)
$ini_ckeck15 = IniRead("log.ini","15","name","")
$check15 = GUICtrlCreateCheckbox ($ini_ckeck15, 180, 145, 120, 20)
$ini_ckeck16 = IniRead("log.ini","16","name","")
$check16 = GUICtrlCreateCheckbox ($ini_ckeck16, 180, 165, 120, 20)
$ini_ckeck17 = IniRead("log.ini","17","name","")
$check17 = GUICtrlCreateCheckbox ($ini_ckeck17, 180, 185, 120, 20)
$ini_ckeck18 = IniRead("log.ini","18","name","")
$check18 = GUICtrlCreateCheckbox  ($ini_ckeck18, 180, 205, 120, 20)


$ini_titre4 = IniRead("titre.ini","4","titre","")
GUICtrlCreateGroup($ini_titre4, 330, 130, 150, 100)
$ini_ckeck19 = IniRead("log.ini","19","name","")
$check19 = GUICtrlCreateCheckbox ($ini_ckeck19, 340, 145, 120, 20)
$ini_ckeck20 = IniRead("log.ini","20","name","")
$check20 = GUICtrlCreateCheckbox ($ini_ckeck20, 340, 165, 120, 20)
$ini_ckeck21 = IniRead("log.ini","21","name","")
$check21 = GUICtrlCreateCheckbox ($ini_ckeck21, 340, 185, 120, 20)
$ini_ckeck22 = IniRead("log.ini","22","name","")
$check22 = GUICtrlCreateCheckbox ($ini_ckeck22, 340, 205, 120, 20)


$ini_titre5 = IniRead("titre.ini","5","titre","")
GUICtrlCreateGroup($ini_titre5, 10, 235, 470, 170)
$ini_ckeck23 = IniRead("log.ini","23","name","")
$check23 = GUICtrlCreateCheckbox ($ini_ckeck23, 20, 250, 120, 20)
$ini_ckeck24 = IniRead("log.ini","24","name","")
$check24 = GUICtrlCreateCheckbox ($ini_ckeck24, 20, 270, 120, 20)
$ini_ckeck25 = IniRead("log.ini","25","name","")
$check25 = GUICtrlCreateCheckbox ($ini_ckeck25, 20, 290, 120, 20)
$ini_ckeck26 = IniRead("log.ini","26","name","")
$check26 = GUICtrlCreateCheckbox ($ini_ckeck26, 20, 310, 120, 20)
$ini_ckeck27 = IniRead("log.ini","27","name","")
$check27 = GUICtrlCreateCheckbox ($ini_ckeck27, 20, 330, 120, 20)
$ini_ckeck28 = IniRead("log.ini","28","name","")
$check28 = GUICtrlCreateCheckbox ($ini_ckeck28, 20, 350, 120, 20)
$ini_ckeck29 = IniRead("log.ini","29","name","")
$check29 = GUICtrlCreateCheckbox ($ini_ckeck29, 20, 370, 120, 20)

$ini_ckeck30 = IniRead("log.ini","30","name","")
$check30 = GUICtrlCreateCheckbox ($ini_ckeck30, 180, 250, 120, 20)
$ini_ckeck31 = IniRead("log.ini","31","name","")
$check31 = GUICtrlCreateCheckbox ($ini_ckeck31, 180, 270, 120, 20)
$ini_ckeck32 = IniRead("log.ini","32","name","")
$check32 = GUICtrlCreateCheckbox ($ini_ckeck32, 180, 290, 120, 20)
$ini_ckeck33 = IniRead("log.ini","33","name","")
$check33 = GUICtrlCreateCheckbox ($ini_ckeck33, 180, 310, 120, 20)
$ini_ckeck34 = IniRead("log.ini","34","name","")
$check34 = GUICtrlCreateCheckbox ($ini_ckeck34, 180, 330, 120, 20)
$ini_ckeck35 = IniRead("log.ini","35","name","")
$check35 = GUICtrlCreateCheckbox ($ini_ckeck35, 180, 350, 120, 20)
$ini_ckeck36 = IniRead("log.ini","36","name","")
$check36 = GUICtrlCreateCheckbox ($ini_ckeck36, 180, 370, 120, 20)

$ini_ckeck37 = IniRead("log.ini","37","name","")
$check37 = GUICtrlCreateCheckbox ($ini_ckeck37, 340, 250, 120, 20)
$ini_ckeck38 = IniRead("log.ini","38","name","")
$check38 = GUICtrlCreateCheckbox ($ini_ckeck38, 340, 270, 120, 20)
$ini_ckeck39 = IniRead("log.ini","39","name","")
$check39 = GUICtrlCreateCheckbox ($ini_ckeck39, 340, 290, 120, 20)
$ini_ckeck40 = IniRead("log.ini","40","name","")
$check40 = GUICtrlCreateCheckbox ($ini_ckeck40, 340, 310, 120, 20)
$ini_ckeck41 = IniRead("log.ini","41","name","")
$check41 = GUICtrlCreateCheckbox ($ini_ckeck41, 340, 330, 120, 20)
$ini_ckeck42 = IniRead("log.ini","42","name","")
$check42 = GUICtrlCreateCheckbox ($ini_ckeck42, 340, 350, 120, 20)

$check60 = GUICtrlCreateLabel("", 200, 450,200,50)
;Bouton

$Button_1 = GUICtrlCreateButton ("Install", 200, 420, 100)


While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
Exit    
       
;--------------------- Bouton install      
Case $msg = $button_1

Dim $Name_file[42]
for $i = 0 to 41
    $Name_file[$i]=IniRead("log.ini",$i+1,"fichier","")
Next
for $i = 1 to 42
        If BitAnd(GuiCtrlRead(Eval("check" & $i)),$GUI_CHECKED) Then
            $fichier = $Name_file[$i-1]
            ;$fichier=GuiCtrlRead(Eval("check" & $i),1)
            ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
           download($fichier)
            ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
            unzip($fichier)
           ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
            install($fichier)
           
           
        EndIf  
Next



EndSelect
Wend



;-------------------------------------------------FONCTION :
;-------------------------Download :
Func download($fichier_param)
local $lpid
if FileExists($fichier_param) then FileDelete($fichier_param)
$proto = IniRead("cfg.ini","dl","protocole","")
$ip = IniRead("cfg.ini","dl","ip","")
$chemin = IniRead("cfg.ini","dl","chemin","")

$url =  $proto & "://" & $ip & $chemin & $fichier_param
$cmd = "wget.exe " & $url
$lpid=run($cmd,'',@SW_hide)
$affichage = "Telechargement de " & $fichier_param
Update_action($affichage,$lpid)
EndFunc



;-------------------------Unzip :
Func unzip($fichier_param)
;    MsgBox(0,"test1",$fichier_param)
Local $lpid
;Return
$cmd2 = "7za.exe x -y " & $fichier_param
$lpid=runwait($cmd2,'',@SW_hide)
$affichage = "Décompréssion"
Update_action($affichage,$lpid)
EndFunc



;-------------------------Install :
Func install($fichier_param)
Local $lpid
; MsgBox(0,"test1",$fichier_param)
$fichier_noext = StringSplit($fichier_param,".")
; MsgBox(0,"test2",$fichier_noext[1])
$dossier = @ScriptDir & "\" & $fichier_noext[1]
;MsgBox(0,"test3",$dossier)
FileChangeDir($dossier)
$search = FileFindFirstFile("auto*.exe")
$file = FileFindNextFile($search)

if $file = "" Then
    $search = FileFindFirstFile("auto*.bat")
    $file = FileFindNextFile($search)
endif

;MsgBox(0,"test install",$file)
If $file="" Then Return
$lpid=Run($file)
$affichage = "Installation"
Update_action($affichage,$lpid)
$dossier = @ScriptDir
FileChangeDir($dossier)
EndFunc
;-------------------------update action :
Func Update_action($msg_param,$pid_param)
    Dim $progress[4]=["",".","..","..."]
    Local $local_ind=0
    GUICtrlSetData($check60,"")
    While ProcessExists($pid_param)
        GUICtrlSetData($check60,$msg_param&" en cours "&$progress[Mod($local_ind,4)])
        $local_ind+=1
        sleep(500)
    WEnd
    GUICtrlSetData($check60,$msg_param&" terminé(e)")
EndFunc

;-------------------------_ShellEx :
Func _ShellEx($sCmd)
  DllCall("shell32.dll", "long", "ShellExecute", "hwnd", 0, "string", '', "string", $sCmd, "string", '', "string", '', "long", @SW_SHOWNORMAL)
EndFunc  ;==>_ShellEx
 

► Afficher le texteLes fichiers INI

le fichier ini pour la configuration : cfg.ini

Code : Tout sélectionner

[dl]
protocole=ftp
ip=192.168.0.100
chemin=/stock1/package_auto_5/

le fichier ini pour la gestion des "titres" : titre.ini

Code : Tout sélectionner

[1]
titre=Pack Bureautique
[2]
titre=Pack Sécuritée
[3]
titre=Liens
[4]
titre=Pack Personnalisation
[5]
titre=Pack Basique

le fichier ini pour la configuration des logiciels : log.ini

Code : Tout sélectionner

[1]
name=7zip
fichier=7zip.zip
[2]
name=acrobat reader
fichier=acrobat_reader.zip
[3]
name=avg
fichier=avg.zip
[4]
name=Java
fichier=Java.zip
[5]
name=maxicompte
fichier=maxicompte.zip
[6]
name=msn8
fichier=msn8.zip
[7]
name=
fichier=
[8]
name=open office
fichier=open_office.zip
[9]
name=pcperso
fichier=pcperso.zip
[10]
name=PDFcreator
fichier=PDFcreator.zip
[11]
name=picasa
fichier=picasa.zip
[12]
name=vlc
fichier=vlc.zip
[13]
name=
fichier=
[14]
name=**********
fichier=
[15]
name=**********
fichier=
[16]
name=**********
fichier=
[17]
name=**********
fichier=
[18]
name=**********
fichier=
[19]
name=**********
fichier=
[20]
name=**********
fichier=
[21]
name=**********
fichier=
[22]
name=**********
fichier=
[23]
name=**********
fichier=
[24]
name=**********
fichier=
[25]
name=**********
fichier=
[26]
name=**********
fichier=
[27]
name=**********
fichier=
[28]
name=**********
fichier=
[29]
name=**********
fichier=
[30]
name=**********
fichier=
[31]
name=**********
fichier=
[32]
name=**********
fichier=
[33]
name=**********
fichier=
[34]
name=**********
fichier=
[35]
name=**********
fichier=
[36]
name=**********
fichier=
[37]
name=**********
fichier=
[38]
name=**********
fichier=
[39]
name=**********
fichier=
[40]
name=**********
fichier=
[41]
name=**********
fichier=
[42]
name=**********
fichier=

[SurPriseS]

comme promis le lien pour DL le tout
Donc logiciels (open office/avg/picasa/...) + le script + les sources + les ini

http://www.k1der.net/~surprise/fichiers/boot%205.zip

Voila

Moi je procède de la manière suivante au taff :

un dossier contenant le script + les fichiers nécessaire (que j'appelle boot) et un autre dossier contenant tout les zip (Logiciels) et c'est sur se dossier que pointe le ini dans le script

voilouuuuuuuuuu

[aipc]

Je ne comprend pas tres bien ton :

le fichier ini pour la configuration : cfg.ini

Code
[dl]
protocole=ftp
ip=192.168.0.100
chemin=/stock1/package_auto_5/

Les logiciels sont sur un FTP?

[SurPriseS]

Dans mon cas oui, mais, sa doit fonctionner avec un lien http ou samba...

Après, y'a pas beaucoup de modif a faire pour qu'il fonctionne directement sur le disque dur !

[aipc]

Je l'ai un peu modifier pour qu'il télécharge tout dans le même dossier, puis qu'il supprime ce dossier a la fin de toute les installation.

Si tu le veux demande le moi

[jorioux]

Bonjour à tous, j'ai amélioré grandement ce script et il est maintenant prêt:

Pour télécharger le script au complet avec les autres fichiers, c'est ici: http://www.mediafire.com/?00nqyr0zy4m

Voici la liste des améliorations:

- Vérification de la connectivité avec le serveur avant le téléchargement
- Affiche les applications disponibles seulement
- Ajout d'un label qui dit à quel étape l'installation est rendu
- Ajout d'un Tray Info pour dire à quel étape l'installation est rendu
- Ajout d'un bouton Quitter
- Stock les fichiers d'installations dans des dossiers différents pour chaque programme
- Supprime le .zip après la décompression
- Raccourcissement du code
- Plusieurs autres ajouts
- CORRECTION DE NOMBREUX BUG !!!

Pour des suggestions ou commentaires, riouxjo @ gmail dot com

► Afficher le texte

; Script amélioré par Jonathan Rioux
;
; Suggestions, commentaires: riouxjo @ gmail dot com
;

#include <GUIConstants.au3>
#include <Date.au3>

;#NoTrayIcon
AutoItSetOption("TrayAutoPause",0)
AutoItSetOption("TrayIconDebug",1)
; GUI
GuiCreate("Installation Automatique - Jonathan", 500, 470)
GUISetState (@SW_SHOW)

If IsAdmin()==0 Then MsgBox(0, "", "Vous n'êtes pas administrateur du poste. Il est conseillé d'être administrateur pour utiliser ce programme.")

;picture
GuiCtrlCreatePic("logo.gif",355,30, 90,15)
GUICtrlCreatelabel (_DateTimeFormat( _NowCalc(),2), 355,80)

Local $ini_ckeck[42]
Local $check[43]

;chkbox
$ini_titre1 = IniRead("titre.ini","1","titre","")
GUICtrlCreateGroup($ini_titre1, 10, 10, 150, 220)
Local $position = 5
For $i = 1 To 10
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 20, $position, 120, 20)
EndIf
Next

$ini_titre2 = IniRead("titre.ini","2","titre","")
GUICtrlCreateGroup($ini_titre2, 170, 10, 150, 100)
$position = 5
For $i = 11 to 14
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 180, $position, 120, 20)
EndIf
Next

$ini_titre3 = IniRead("titre.ini","3","titre","")
GUICtrlCreateGroup($ini_titre3, 170, 130, 150, 100)
$position = 125
For $i = 15 to 18
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 180, $position, 120, 20)
EndIf
Next

$ini_titre4 = IniRead("titre.ini","4","titre","")
GUICtrlCreateGroup($ini_titre4, 330, 130, 150, 100)
$position = 125
For $i = 19 to 22
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 340, $position, 120, 20)
EndIf
Next

$ini_titre5 = IniRead("titre.ini","5","titre","")
GUICtrlCreateGroup($ini_titre5, 10, 235, 470, 170)
$position = 230
For $i = 23 To 29
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 20, $position, 120, 20)
EndIf
Next

$position = 230
For $i = 30 To 36
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 180, $position, 120, 20)
EndIf
Next

$position = 230
For $i = 37 To 42
If IniRead("log.ini",$i,"name","") NOT = "" Then
$position = $position + 20
$ini_ckeck[$i] = IniRead("log.ini",$i,"name","")
$check[$i] = GUICtrlCreateCheckbox ($ini_ckeck[$i], 340, $position, 120, 20)
EndIf
Next

$check60 = GUICtrlCreateLabel("", 60,445,370,20)
GUICtrlSetBkColor($check60,0xff0000)
GUICtrlSetColor ($check60,0xffffff)

$install = GUICtrlCreateButton ("Installer", 140, 413, 100)
$exit = GUICtrlCreateButton ("Quitter", 250, 413, 100)


While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
Exit

Case $msg = $exit
GUIDelete()
Exit

;--------------------- Bouton install
Case $msg = $install

$affichage = "Vérification de la connectivité avec le serveur..."
GUICtrlSetData($check60,$affichage)
$ip = IniRead("cfg.ini","dl","ip","")
$ping = Ping($ip,2000)
If $ping > 0 Then
Dim $Name_file[43]
For $i = 0 to 41
$Name_file[$i]=IniRead("log.ini",$i+1,"fichier","")
Next
For $i = 1 to 42
If GUICtrlRead($check[$i]) = $GUI_CHECKED Then
$fichier = $Name_file[$i-1]
;$fichier=GuiCtrlRead(Eval("check" & $i),1)
ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
download($fichier)
ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
unzip($fichier)
ConsoleWrite("iniread fichier "&$i&" "&$fichier&@CRLF)
install($fichier)


EndIf
Next
Else
$affichage = "Impossible de joindre le serveur."
GUICtrlSetData($check60,$affichage)
MsgBox(0,"Erreur","Impossible de joindre le serveur.")
EndIf
EndSelect
Wend


;-------------------------------------------------FONCTION :
;-------------------------Download :
Func download($fichier_param)
local $lpid
if FileExists("Downloads\" & $fichier_param) then FileDelete("Downloads\" & $fichier_param)
TrayTip("Installation automatique","Téléchargement de " & $fichier & " en cours...", 5, 1)
$proto = IniRead("cfg.ini","dl","protocole","")
$ip = IniRead("cfg.ini","dl","ip","")
$chemin = IniRead("cfg.ini","dl","chemin","")

$url = $proto & "://" & $ip & $chemin & $fichier_param
$cmd = "wget.exe --directory-prefix=Downloads " & $url
$lpid=run($cmd,'',@SW_hide)
$affichage = "Telechargement de " & $fichier_param
Update_action($affichage,$lpid)
EndFunc



;-------------------------Unzip :
Func unzip($fichier_param)
; MsgBox(0,"test1",$fichier_param)
Local $lpid
$fichier_noext = StringSplit($fichier_param,".")
;Return
$cmd2 = "7za.exe x -y Downloads\" & $fichier_param & " -oDownloads\" & $fichier_noext[1]
TrayTip("Installation automatique","Décompression de " & $fichier & " en cours...", 5, 1)
$lpid=runwait($cmd2,'',@SW_hide)
$affichage = "Décompression"
Update_action($affichage,$lpid)
if FileExists("Downloads\" & $fichier_param) then FileDelete("Downloads\" & $fichier_param)
EndFunc



;-------------------------Install :
Func install($fichier_param)
Local $lpid
; MsgBox(0,"test1",$fichier_param)
$fichier_noext = StringSplit($fichier_param,".")
; MsgBox(0,"test2",$fichier_noext[1])
$dossier = @ScriptDir & "\Downloads\" & $fichier_noext[1]
;MsgBox(0,"test3",$dossier)
FileChangeDir($dossier)
$search = FileFindFirstFile("auto*.exe")
$file = FileFindNextFile($search)

if $file = "" Then
$search = FileFindFirstFile("auto*.exe")
$file = FileFindNextFile($search)
endif

;MsgBox(0,"test install",$file)
If $file="" Then Return
TrayTip("Installation automatique","Installation de " & $fichier & " en cours...", 5, 1)
$lpid=Run($file)
$affichage = "Installation"
Update_action($affichage,$lpid)
$dossier = @ScriptDir
FileChangeDir($dossier)
EndFunc
;-------------------------update action :
Func Update_action($msg_param,$pid_param)
Dim $progress[4]=["",".","..","..."]
Local $local_ind=0
GUICtrlSetData($check60,"")
While ProcessExists($pid_param)
GUICtrlSetData($check60,$msg_param&" en cours "&$progress[Mod($local_ind,4)])
$local_ind+=1
sleep(500)
WEnd
GUICtrlSetData($check60,$msg_param&" terminé(e)")
TrayTip("Installation automatique","Installation(s) terminée(s)", 10, 1)
EndFunc

;-------------------------_ShellEx :
Func _ShellEx($sCmd)
DllCall("shell32.dll", "long", "ShellExecute", "hwnd", 0, "string", '', "string", $sCmd, "string", '', "string", '', "long", @SW_SHOWNORMAL)
EndFunc ;==>_ShellEx

[order]

Bonjour,

Moi je voudrais me faire un logiciel du même genre que vous mais qui ailles chercher les fichiers d'installation sur un disque dur externe comment je devrait faire ?

[PandiPanda]

Bonjour,
- Soit vous apprennez le language Autoit via le site du zero (ici) et/ou different tutoriel disponible sur ce forum ou autre part.
- Soit vous demandez de l'aide dans la rubrique générale (ici)
- Soit vous demandez un script tout fait, dans ce cas vous devez demandez dans Demande de création de script (ici)

[SurPriseS]

Bonjour !
Un bail que j'étais pas passé ici

Donc j'ai rajouté quelques fonctions, fait 2-3 modif et quelques bug corrigés



- Changement de l'affichage de la date par celle de l'OS
- Ajout d'une fonction selon le système (64/32bit) > Juste une désactivation du controle
- Quelques bug corrigés


x64 = 0 > OS 32 et 64
x64 = 1 > OS 64
x64 = 2 > OS 32

► Afficher le texte

[7]
name=VLC 2.1.3
fichier=vlc.zip
x64=0
[8]
name=7Zip
fichier=7zip.zip
x64=2
[9]
name=7Zip X64
fichier=7zip_x64.zip
x64=1

Pour le reste le fonctionnement reste le même.

Le logiciel avec ces sources et tout ce qu'il faut :

http://www.k1der.net/~surprise/fichiers ... o/boot.zip

2-3 scripts pour l'installation de logiciels :

http://www.k1der.net/~surprise/fichiers ... to/log.zip


Bonne journée !