Difficulté avec les onglets

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Avatar du membre
Antoineeuro
Niveau 1
Niveau 1
Messages : 5
Enregistré le : ven. 30 oct. 2015 14:37
Localisation : Blagnac
Status : Hors ligne

Difficulté avec les onglets

#1

Message par Antoineeuro »

Bonjour à tous et à toutes,

Novice en prog/script, j'essaye de créer une "application" pour le boulot (Demande du patron).

Cette "application" devra permettre aux utilisateurs de mettre à jour, installer ou désinstaller seul des logiciels définit par la DSI (mon patron et moi même).

Ça doit ressembler à une fenêtre avec deux onglets (Installation/Désinstallation) sur lequel il y a des icônes et des labels "cliquables". Les icônes et les labels vont par couple, lorsque l'on clique sur l'un deux, ça appelle une fonction (qui appelle un bat, qui fait l'installation du prog :oops: ).

Pour l'instant je n'ai fait que la partie "installation".
la partie (l'onglet) désinstallation viendra plus tard.

J'ai hésité un moment à mettre mon code sur le forum tellement il est moche (Par contre la partie installation fonctionne) .
Code AutoIT (c'est très long... et en code "évenementiel" :roll: ) :

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\..\InstallSolo\Icones\EE.ico
#AutoIt3Wrapper_Res_Comment=Installation sans assistance de la configuration logicielle standard de ma boite :D par les utilisateurs.
#AutoIt3Wrapper_Res_Description=Installation sans assistance de la configuration logicielle standard de ma boite :D par les utilisateurs.
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Made By|Mon nom à moi :D
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

 AutoIt Version: 3.3.14.2
 Author:         Mon nom à moi :D

 Script Function:
	Installation de la configuration logicielle Standard de ma boite :D par les utilisateurs

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

#pragma compile(Icon, C:\Program Files (x86)\AutoIt3\Icons\au3.ico)

Dim $sRepertoireInstallSolo = "C:\InstallSolo"
Dim $sRepertoireIcones = "C:\InstallSolo\Icones"
Dim $sRepertoireScripts = "C:\InstallSolo\Scripts"
Dim $sRepertoireTemp = "C:\InstallSolo\Temp"


DirCreate ($sRepertoireInstallSolo) ; Création du répertoire InstallSolo sur C:\
DirCreate ($sRepertoireIcones) ; Création du répertoire InstallSolo sur C:\InstallSolo
DirCreate ($sRepertoireScripts) ; Création du répertoire InstallSolo sur C:\InstallSolo
DirCreate ($sRepertoireTemp) ; Création du répertoire InstallSolo sur C:\InstallSolo

FileInstall ("C:\InstallSolo\Icones\7zip.ico", "C:\InstallSolo\Icones\7zip.ico", 0)
FileInstall ("C:\InstallSolo\Icones\AdobeReader.ico", "C:\InstallSolo\Icones\AdobeReader.ico", 0)
FileInstall ("C:\InstallSolo\Icones\Chrome.ico", "C:\InstallSolo\Icones\Chrome.ico", 0)
FileInstall ("C:\InstallSolo\Icones\EE.ico", "C:\InstallSolo\Icones\EE.ico", 0)
FileInstall ("C:\InstallSolo\Icones\FileZilla.ico", "C:\InstallSolo\Icones\FileZilla.ico", 0)
FileInstall ("C:\InstallSolo\Icones\Firefox.ico", "C:\InstallSolo\Icones\Firefox.ico", 0)
FileInstall ("C:\InstallSolo\Icones\FlashPlayer.ico", "C:\InstallSolo\Icones\FlashPlayer.ico", 0)
FileInstall ("C:\InstallSolo\Icones\InternetExplorer.ico", "C:\InstallSolo\Icones\InternetExplorer.ico", 0)
FileInstall ("C:\InstallSolo\Icones\java.ico", "C:\InstallSolo\Icones\java.ico", 0)
FileInstall ("C:\InstallSolo\Icones\MS_VC++2005.ico", "C:\InstallSolo\Icones\MS_VC++2005.ico", 0)
FileInstall ("C:\InstallSolo\Icones\MS_VC++2012.ico", "C:\InstallSolo\Icones\MS_VC++2012.ico", 0)
FileInstall ("C:\InstallSolo\Icones\net_framework.ico", "C:\InstallSolo\Icones\net_framework.ico", 0)
FileInstall ("C:\InstallSolo\Icones\pdf-creator.ico", "C:\InstallSolo\Icones\pdf-creator.ico", 0)
FileInstall ("C:\InstallSolo\Icones\PDFSam.ico", "C:\InstallSolo\Icones\PDFSam.ico", 0)
FileInstall ("C:\InstallSolo\Icones\VLC.ico", "C:\InstallSolo\Icones\VLC.ico", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_7Zip.bat", "C:\InstallSolo\Scripts\Install_7Zip.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_AdobeReader.bat", "C:\InstallSolo\Scripts\Install_AdobeReader.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Chrome.bat", "C:\InstallSolo\Scripts\Install_Chrome.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Filezilla.bat", "C:\InstallSolo\Scripts\Install_Filezilla.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Firefox.bat", "C:\InstallSolo\Scripts\Install_Firefox.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Flash_ActiveX.bat", "C:\InstallSolo\Scripts\Install_Flash_ActiveX.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Flash_PlugIn.bat", "C:\InstallSolo\Scripts\Install_Flash_PlugIn.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_IE11.bat", "C:\InstallSolo\Scripts\Install_IE11.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Javax64.bat", "C:\InstallSolo\Scripts\Install_Javax64.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_Javax86.bat", "C:\InstallSolo\Scripts\Install_Javax86.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2005.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2005.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2008.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2008.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2010.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2010.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2012.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2012.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2013.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2013.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_MSVisualC++2015.bat", "C:\InstallSolo\Scripts\Install_MSVisualC++2015.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_NetFrameWork4.0.bat", "C:\InstallSolo\Scripts\Install_NetFrameWork4.0.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_NetFrameWork4.5.2.bat", "C:\InstallSolo\Scripts\Install_NetFrameWork4.5.2.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_NetFrameWork4.6.1.bat", "C:\InstallSolo\Scripts\Install_NetFrameWork4.6.1.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_NetFrameWork4.6.bat", "C:\InstallSolo\Scripts\Install_NetFrameWork4.6.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_PDFCreator.bat", "C:\InstallSolo\Scripts\Install_PDFCreator.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_PDFSam.bat", "C:\InstallSolo\Scripts\Install_PDFSam.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install_VLC.bat", "C:\InstallSolo\Scripts\Install_VLC.bat", 0)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TabConstants.au3>

Dim $sUserName = "ID Admin"
Dim $sPassword = "Mot de passe admin"
Dim $sDomaine = @ComputerName

#Region ### START Koda GUI section ### Form=GUI_Install_Solo.kxf
$GUI_1 = GUICreate("IHM EE Prod", 527, 673, 201, 124) ; Création de la GUI 1
GUISetIcon ("C:\InstallSolo\Icones\EE.ico", -1)

$Tab1 = GUICtrlCreateTab(0, 0, 619, 438) ; Création de l'onglet "Installation"
$TabSheet1 = GUICtrlCreateTabItem("Installation")
GUICtrlSetOnEvent(-1, "MenuItem1Click") ; Attribution de la fonction MenuItemClick pour l'événement clic sur Installation

$Tab2 = GUICtrlCreateTab(0, 0, 619, 438) ; Création de l'onglet "Désinstallation"
$TabSheet2 = GUICtrlCreateTabItem("Désinstallation")
GUICtrlSetOnEvent(-1, "MenuItem2Click"); Attribution de la fonction MenuItemClick pour l'événement clic sur Installation

GUISetFont(12, 800, 0, "MS Sans Serif") ; Attribution du style de la fenêtre - taille de police:12 - style:MS Sans Serif
GUISetBkColor(0x6D6D6D) ; couleur de l'arrière plan (gris)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") ; Attribution de la fonction Form1Close pour l'événement $GUI_EVENT_CLOSE
GUISetOnEvent($GUI_EVENT_MINIMIZE, "GUI_1Minimize") ; Attribution de la fonction GUI_1Minimize pour l'événement $GUI_EVENT_MINIMIZE
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "GUI_1Maximize") ; Attribution de la fonction GUI_1Maximize pour l'événement $GUI_EVENT_MAXIMIZE
GUISetOnEvent($GUI_EVENT_RESTORE, "GUI_1Restore") ; Attribution de la fonction GUI_1Restore pour l'événement $GUI_EVENT_RESTORE

; #### Icone et Label 7-Zip ####
$ZipICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\7zip.ico", -1, 44, 85, 32, 32) ; Création de l'icone 7-Zip
GUICtrlSetOnEvent(-1, "ZipICOClick") ; Attribution de la fonction ZipICOClick pour l'événement clic sur L'icone 7-zip
$ZipLBL = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
GUICtrlSetColor(-1, 0x000000) ; Couleur du label 7-Zip (noir)
GUICtrlSetOnEvent(-1, "ZipICOClick"); Attribution de la fonction ZipLBLClick pour l'événement clic sur Le label 7-Zip

; #### Icone et label AdobeReader ####
$AdobeReaderICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\AdobeReader.ico", -1, 44, 120, 32, 32); Création de l'icone Adobe Reader
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderICOClick pour l'événement clic sur L'icone Adobe Reader
$AdobeReaderLBL = GUICtrlCreateLabel("Adobe Reader DC",80, 125, 150, 24); Création du label Adobe Reader
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Adobe Reader (noir)
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderLBLClick pour l'événement clic sur Le label Adobe Reader

;#### Icone et label Chrome ####
$ChromeICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\Chrome.ico", -1, 44, 155, 32, 32); Création de l'icone Chrome
GUICtrlSetOnEvent(-1, "ChromeICOClick") ; Attribution de la fonction ChromeICOClick pour l'événement clic sur L'icone Chrome
$ChromeLBL = GUICtrlCreateLabel("Chrome", 80, 160, 66, 24) ; Création du label Chrome
GUICtrlSetColor(-1, 0x000000); Couleur du label Chrome (noir)
GUICtrlSetOnEvent(-1, "ChromeICOClick"); Attribution de la fonction ChromeLBLClick pour l'événement clic sur Le label Chrome

;#### Icone et label Filezilla ####
$FilezillaICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FileZilla.ico", -1, 44, 190, 32, 32) ; Création de l'icone Filezilla
GUICtrlSetOnEvent(-1, "FilezillaICOClick"); Attribution de la fonction FilezillaICOClick pour l'événement clic sur L'icone Filezilla
$FilezillaLBL = GUICtrlCreateLabel("Filezilla", 80, 195, 64, 24); Création du label Filezilla
GUICtrlSetColor(-1, 0x000000); Couleur du label Filezilla (noir)
GUICtrlSetOnEvent(-1, "FilezillaICOClick"); Attribution de la fonction FilezillaLBLClick pour l'événement clic sur L'icone Filezilla

;#### Icone et label Firefox ####
$FirefoxICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\Firefox.ico", -1, 44, 225, 32, 32) ; Création de l'icone Firefox
GUICtrlSetOnEvent(-1, "FirefoxICOClick"); Attribution de la fonction FirefoxICOClick pour l'événement clic sur L'icone Firefox
$FirefoxLBL = GUICtrlCreateLabel("Firefox", 80, 230, 59, 24) ; Création du label Firefox
GUICtrlSetColor(-1, 0x000000); Couleur du label Firefox (noir)
GUICtrlSetOnEvent(-1, "FirefoxICOClick"); Attribution de la fonction FirefoxLBLClick pour l'événement clic sur L'icone Firefox

;#### Groupe Flash Player ####
$FlashPlayer = GUICtrlCreateGroup("Flash Player", 44, 260, 225, 97) ; Création du group Flash Player
GUICtrlSetColor(-1, 0x000000)
;#### Icone Flash Player PlugIn ####
$FlashPluginICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FlashPlayer.ico", -1, 51, 320, 32, 32) ; Création de l'icone Flash Player PlugIn
GUICtrlSetOnEvent(-1, "FlashPlayerPlugInICOClick")
;#### Icone et label Flash Player Active X ####
$FlashActiveXICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FlashPlayer.ico", -1, 51, 285, 32, 32) ; Création de l'icone Flash Player ActiveX
GUICtrlSetOnEvent(-1, "FlashPlayerActiveXICOClick")
$FlashActiveXLBL = GUICtrlCreateLabel("Active X", 85, 290, 70, 23) ; Création du label Flash Player ActiveX
GUICtrlSetOnEvent(-1, "FlashActiveXICOClick")
;#### label Flash Player PlugIn ####
$PlugInLBL = GUICtrlCreateLabel("PlugIn", 85, 325, 55, 24) ; Création du label Flash Player PlugIn
GUICtrlSetOnEvent(-1, "FlashPlayerPlugInICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Icone et label Internet Explorer 11 ####
$IE11ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\InternetExplorer.ico", -1, 44, 360, 32, 32)
GUICtrlSetOnEvent(-1, "IE11ICOClick")
$IE11LBL = GUICtrlCreateLabel("Internet Explorer", 80, 365, 139, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "IE11ICOClick")

;#### Groupe java ####
$Java = GUICtrlCreateGroup("Java", 44, 395, 225, 97)
GUICtrlSetColor(-1, 0x000000)
;#### Icone java x86 ####
$Javax86ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\java.ico", -1, 51, 455, 32, 32)
GUICtrlSetOnEvent(-1, "Javax86ICOClick")
;#### Icone et label java x64 ####
$Javax64ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\java.ico", -1, 51, 420, 32, 32)
GUICtrlSetOnEvent(-1, "Javax64ICOClick")
$Javax64LBL = GUICtrlCreateLabel("64 Bits", 85, 425, 60, 24)
GUICtrlSetOnEvent(-1, "Javax64ICOClick")
;#### label java x86 ####
$Javax86LBL = GUICtrlCreateLabel("32 Bits", 85, 460, 60, 24)
GUICtrlSetOnEvent(-1, "Javax86ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Groupe Microsoft Visual C ++ ####
$MicrosoftVisualC = GUICtrlCreateGroup("Microsoft Visual C++", 44, 495, 225, 137)
GUICtrlSetColor(-1, 0x000000)
$MSC2008ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 555, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2008ICOClick")
$MSC2005ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 520, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2005ICOClick")
$MSC2005LBL = GUICtrlCreateLabel("2005", 85, 525, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2005ICOClick")
$MSC2008LBL = GUICtrlCreateLabel("2008", 85, 560, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2008ICOLClick")
$MSC2010ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 590, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2010ICOClick")
$MSC2010LBL = GUICtrlCreateLabel("2010", 85, 595, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2010ICOClick")
$MSC2012ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 520, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2012ICOClick")
$MSC2013ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 555, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2013ICOClick")
$MSC2015ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 590, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2015ICOClick")
$MSC2012LBL = GUICtrlCreateLabel("2012", 186, 525, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2012ICOClick")
$MSC2013LBL = GUICtrlCreateLabel("2013", 186, 560, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2013ICOClick")
$MSC2015LBL = GUICtrlCreateLabel("2015", 186, 595, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2015ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Groupe Net Framework ####
$NetFramework = GUICtrlCreateGroup("Net Framework", 290, 85, 225, 97)
GUICtrlSetColor(-1, 0x000000)
$Net452ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 297, 145, 32, 32)
GUICtrlSetOnEvent(-1, "Net452ICOClick")
$Net40ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 297, 110, 32, 32)
GUICtrlSetOnEvent(-1, "Net40ICOClick")
$Net40LBL = GUICtrlCreateLabel("4.0", 331, 115, 29, 24)
GUICtrlSetOnEvent(-1, "Net40ICOClick")
$Net452LBL = GUICtrlCreateLabel("4.5.2", 331, 150, 44, 24)
GUICtrlSetOnEvent(-1, "Net452ICOClick")
$Net46ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 397, 110, 32, 32)
GUICtrlSetOnEvent(-1, "Net46ICOClick")
$Net461ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 397, 145, 32, 32)
GUICtrlSetOnEvent(-1, "Net461ICOClick")
$Net46LBL = GUICtrlCreateLabel("4.6", 432, 115, 29, 24)
GUICtrlSetOnEvent(-1, "Net46ICOClick")
$Net461LBL = GUICtrlCreateLabel("4.6.1", 432, 150, 44, 24)
GUICtrlSetOnEvent(-1, "Net461ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Icone et lablel PDF Creator ####
$PDFCreator = GUICtrlCreateIcon("C:\InstallSolo\Icones\pdf-creator.ico", -1, 290, 185, 32, 32)
GUICtrlSetOnEvent(-1, "PDFCreatorICOClick")
$PDFCreatorLBL = GUICtrlCreateLabel("PDF Creator", 326, 190, 104, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "PDFCreatorICOClick")

;#### Icone et lablel PDF Split and Merge ####
$PDFSamICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\PDFSam.ico", -1, 290, 220, 32, 32)
GUICtrlSetOnEvent(-1, "PDFSamICOClick")
$PDFSamLBL = GUICtrlCreateLabel("PDF Split and Merge", 326, 225, 170, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "PDFSamICOClick")

;#### Icone et lablel VLC ####
$VLCICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\VLC.ico", -1, 290, 255, 32, 32)
GUICtrlSetOnEvent(-1, "VLCICOClick")
$VLCLBL = GUICtrlCreateLabel("VLC", 326, 260, 38, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "VLCICOClick")

; GUISetState(@SW_SHOW, $GUI_1)
#EndRegion ### END Koda GUI section ###
; ########## Fin de la création de la GUI 1 ##########

; ########## Début de la création de la GUI 2 ##########
#Region ### START Koda GUI section ### Form=GUI_Install_Solo.kxf
$GUI_2 = GUICreate("IHM EE Prod", 527, 673, 201, 124) ; Création de la GUI 1
GUISetIcon ("C:\InstallSolo\Icones\EE.ico", -1)

$Tab1 = GUICtrlCreateTab(0, 0, 619, 438) ; Création de l'onglet "Installation"
$TabSheet1 = GUICtrlCreateTabItem("Installation")
GUICtrlSetOnEvent(-1, "MenuItem1Click") ; Attribution de la fonction MenuItemClick pour l'événement clic sur Installation

$Tab2 = GUICtrlCreateTab(0, 0, 619, 438) ; Création de l'onglet "Désinstallation"
$TabSheet2 = GUICtrlCreateTabItem("Désinstallation")
GUICtrlSetOnEvent(-1, "MenuItem2Click"); Attribution de la fonction MenuItemClick pour l'événement clic sur Installation

GUISetFont(12, 800, 0, "MS Sans Serif") ; Attribution du style de la fenêtre - taille de police:12 - style:MS Sans Serif
GUISetBkColor(0x6D6D6D) ; couleur de l'arrière plan (gris)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") ; Attribution de la fonction Form1Close pour l'événement $GUI_EVENT_CLOSE
GUISetOnEvent($GUI_EVENT_MINIMIZE, "GUI_1Minimize") ; Attribution de la fonction GUI_1Minimize pour l'événement $GUI_EVENT_MINIMIZE
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "GUI_1Maximize") ; Attribution de la fonction GUI_1Maximize pour l'événement $GUI_EVENT_MAXIMIZE
GUISetOnEvent($GUI_EVENT_RESTORE, "GUI_1Restore") ; Attribution de la fonction GUI_1Restore pour l'événement $GUI_EVENT_RESTORE

$UninstallLBL = GUICtrlCreateLabel("Désinstallation", 80, 20, 150, 24) ; Création du label Désintallation
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Désintallation (noir)

; #### Icone et Label 7-Zip ####
$ZipICO2 = GUICtrlCreateIcon("C:\InstallSolo\Icones\7zip.ico", -1, 44, 85, 32, 32) ; Création de l'icone 7-Zip
GUICtrlSetOnEvent(-1, "ZipICOClickUninstall") ; Attribution de la fonction ZipICOClick pour l'événement clic sur L'icone 7-zip
$ZipLBL2 = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
GUICtrlSetColor(-1, 0x000000) ; Couleur du label 7-Zip (noir)
GUICtrlSetOnEvent(-1, "ZipICOClickUninstall"); Attribution de la fonction ZipLBLClick pour l'événement clic sur Le label 7-Zip

; #### Icone et label AdobeReader ####
$AdobeReaderICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\AdobeReader.ico", -1, 44, 120, 32, 32); Création de l'icone Adobe Reader
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderICOClick pour l'événement clic sur L'icone Adobe Reader
$AdobeReaderLBL = GUICtrlCreateLabel("Adobe Reader DC",80, 125, 150, 24); Création du label Adobe Reader
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Adobe Reader (noir)
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderLBLClick pour l'événement clic sur Le label Adobe Reader

;#### Icone et label Chrome ####
$ChromeICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\Chrome.ico", -1, 44, 155, 32, 32); Création de l'icone Chrome
GUICtrlSetOnEvent(-1, "ChromeICOClick") ; Attribution de la fonction ChromeICOClick pour l'événement clic sur L'icone Chrome
$ChromeLBL = GUICtrlCreateLabel("Chrome", 80, 160, 66, 24) ; Création du label Chrome
GUICtrlSetColor(-1, 0x000000); Couleur du label Chrome (noir)
GUICtrlSetOnEvent(-1, "ChromeICOClick"); Attribution de la fonction ChromeLBLClick pour l'événement clic sur Le label Chrome

;#### Icone et label Filezilla ####
$FilezillaICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FileZilla.ico", -1, 44, 190, 32, 32) ; Création de l'icone Filezilla
GUICtrlSetOnEvent(-1, "FilezillaICOClick"); Attribution de la fonction FilezillaICOClick pour l'événement clic sur L'icone Filezilla
$FilezillaLBL = GUICtrlCreateLabel("Filezilla", 80, 195, 64, 24); Création du label Filezilla
GUICtrlSetColor(-1, 0x000000); Couleur du label Filezilla (noir)
GUICtrlSetOnEvent(-1, "FilezillaICOClick"); Attribution de la fonction FilezillaLBLClick pour l'événement clic sur L'icone Filezilla

;#### Icone et label Firefox ####
$FirefoxICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\Firefox.ico", -1, 44, 225, 32, 32) ; Création de l'icone Firefox
GUICtrlSetOnEvent(-1, "FirefoxICOClick"); Attribution de la fonction FirefoxICOClick pour l'événement clic sur L'icone Firefox
$FirefoxLBL = GUICtrlCreateLabel("Firefox", 80, 230, 59, 24) ; Création du label Firefox
GUICtrlSetColor(-1, 0x000000); Couleur du label Firefox (noir)
GUICtrlSetOnEvent(-1, "FirefoxICOClick"); Attribution de la fonction FirefoxLBLClick pour l'événement clic sur L'icone Firefox

;#### Groupe Flash Player ####
$FlashPlayer = GUICtrlCreateGroup("Flash Player", 44, 260, 225, 97) ; Création du group Flash Player
GUICtrlSetColor(-1, 0x000000)
;#### Icone Flash Player PlugIn ####
$FlashPluginICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FlashPlayer.ico", -1, 51, 320, 32, 32) ; Création de l'icone Flash Player PlugIn
GUICtrlSetOnEvent(-1, "FlashPlayerPlugInICOClick")
;#### Icone et label Flash Player Active X ####
$FlashActiveXICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\FlashPlayer.ico", -1, 51, 285, 32, 32) ; Création de l'icone Flash Player ActiveX
GUICtrlSetOnEvent(-1, "FlashPlayerActiveXICOClick")
$FlashActiveXLBL = GUICtrlCreateLabel("Active X", 85, 290, 70, 23) ; Création du label Flash Player ActiveX
GUICtrlSetOnEvent(-1, "FlashActiveXICOClick")
;#### label Flash Player PlugIn ####
$PlugInLBL = GUICtrlCreateLabel("PlugIn", 85, 325, 55, 24) ; Création du label Flash Player PlugIn
GUICtrlSetOnEvent(-1, "FlashPlayerPlugInICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Icone et label Internet Explorer 11 ####
$IE11ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\InternetExplorer.ico", -1, 44, 360, 32, 32)
GUICtrlSetOnEvent(-1, "IE11ICOClick")
$IE11LBL = GUICtrlCreateLabel("Internet Explorer", 80, 365, 139, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "IE11ICOClick")

;#### Groupe java ####
$Java = GUICtrlCreateGroup("Java", 44, 395, 225, 97)
GUICtrlSetColor(-1, 0x000000)
;#### Icone java x86 ####
$Javax86ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\java.ico", -1, 51, 455, 32, 32)
GUICtrlSetOnEvent(-1, "Javax86ICOClick")
;#### Icone et label java x64 ####
$Javax64ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\java.ico", -1, 51, 420, 32, 32)
GUICtrlSetOnEvent(-1, "Javax64ICOClick")
$Javax64LBL = GUICtrlCreateLabel("64 Bits", 85, 425, 60, 24)
GUICtrlSetOnEvent(-1, "Javax64ICOClick")
;#### label java x86 ####
$Javax86LBL = GUICtrlCreateLabel("32 Bits", 85, 460, 60, 24)
GUICtrlSetOnEvent(-1, "Javax86ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Groupe Microsoft Visual C ++ ####
$MicrosoftVisualC = GUICtrlCreateGroup("Microsoft Visual C++", 44, 495, 225, 137)
GUICtrlSetColor(-1, 0x000000)
$MSC2008ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 555, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2008ICOClick")
$MSC2005ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 520, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2005ICOClick")
$MSC2005LBL = GUICtrlCreateLabel("2005", 85, 525, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2005ICOClick")
$MSC2008LBL = GUICtrlCreateLabel("2008", 85, 560, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2008ICOLClick")
$MSC2010ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2005.ico", -1, 51, 590, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2010ICOClick")
$MSC2010LBL = GUICtrlCreateLabel("2010", 85, 595, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2010ICOClick")
$MSC2012ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 520, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2012ICOClick")
$MSC2013ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 555, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2013ICOClick")
$MSC2015ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\MS_VC++2012.ico", -1, 151, 590, 32, 32)
GUICtrlSetOnEvent(-1, "MSC2015ICOClick")
$MSC2012LBL = GUICtrlCreateLabel("2012", 186, 525, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2012ICOClick")
$MSC2013LBL = GUICtrlCreateLabel("2013", 186, 560, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2013ICOClick")
$MSC2015LBL = GUICtrlCreateLabel("2015", 186, 595, 44, 24)
GUICtrlSetOnEvent(-1, "MSC2015ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Groupe Net Framework ####
$NetFramework = GUICtrlCreateGroup("Net Framework", 290, 85, 225, 97)
GUICtrlSetColor(-1, 0x000000)
$Net452ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 297, 145, 32, 32)
GUICtrlSetOnEvent(-1, "Net452ICOClick")
$Net40ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 297, 110, 32, 32)
GUICtrlSetOnEvent(-1, "Net40ICOClick")
$Net40LBL = GUICtrlCreateLabel("4.0", 331, 115, 29, 24)
GUICtrlSetOnEvent(-1, "Net40ICOClick")
$Net452LBL = GUICtrlCreateLabel("4.5.2", 331, 150, 44, 24)
GUICtrlSetOnEvent(-1, "Net452ICOClick")
$Net46ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 397, 110, 32, 32)
GUICtrlSetOnEvent(-1, "Net46ICOClick")
$Net461ICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\net_framework.ico", -1, 397, 145, 32, 32)
GUICtrlSetOnEvent(-1, "Net461ICOClick")
$Net46LBL = GUICtrlCreateLabel("4.6", 432, 115, 29, 24)
GUICtrlSetOnEvent(-1, "Net46ICOClick")
$Net461LBL = GUICtrlCreateLabel("4.6.1", 432, 150, 44, 24)
GUICtrlSetOnEvent(-1, "Net461ICOClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;#### Icone et lablel PDF Creator ####
$PDFCreator = GUICtrlCreateIcon("C:\InstallSolo\Icones\pdf-creator.ico", -1, 290, 185, 32, 32)
GUICtrlSetOnEvent(-1, "PDFCreatorICOClick")
$PDFCreatorLBL = GUICtrlCreateLabel("PDF Creator", 326, 190, 104, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "PDFCreatorICOClick")

;#### Icone et lablel PDF Split and Merge ####
$PDFSamICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\PDFSam.ico", -1, 290, 220, 32, 32)
GUICtrlSetOnEvent(-1, "PDFSamICOClick")
$PDFSamLBL = GUICtrlCreateLabel("PDF Split and Merge", 326, 225, 170, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "PDFSamICOClick")

;#### Icone et lablel VLC ####
$VLCICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\VLC.ico", -1, 290, 255, 32, 32)
GUICtrlSetOnEvent(-1, "VLCICOClick")
$VLCLBL = GUICtrlCreateLabel("VLC", 326, 260, 38, 24)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "VLCICOClick")

#EndRegion ### END Koda GUI section ###
; ########## Fin de la création de la GUI 2 ##########

GUISetState(@SW_SHOW, $GUI_1) ; On affiche la GUI_1 (la GUI_2 reste masquée)

While 1
	$nMsg = GUIGetMsg() ; Récupération des messages GUI
    Switch $nMsg ; Début du sélecteur de cas

        Case $Tab1 ; Si clic sur le menu Installation
            GUISetState(@SW_SHOW, $GUI_1) ; On affiche la GUI 1
			GUISetState(@SW_HIDE, $GUI_2) ; On masque la GUI 2

        Case $Tab2 ; Si clic sur le menu Désintallation
            GUISetState(@SW_HIDE, $GUI_1) ; On masque la GUI 1
            GUISetState(@SW_SHOW, $GUI_2) ; On affiche la GUI 2
	EndSwitch ; Fin du sélecteur de cas
	Sleep(100)
WEnd

Func Form1Close()
	Exit
EndFunc
Func GUI_1Maximize()
	WinSetState("TEST GUI","", @SW_MAXIMIZE)
EndFunc
Func GUI_1Minimize()
	WinSetState("TEST GUI","", @SW_MINIMIZE)
EndFunc
Func GUI_1Restore()
	WinSetState("TEST GUI","", @SW_RESTORE)
EndFunc

Func MenuItem1Click()
	GUISetState(@SW_SHOW, $GUI_1) ; On affiche la GUI 1
	GUISetState(@SW_HIDE, $GUI_2) ; On masque la GUI 2
EndFunc
Func MenuItem2Click()

	GUISetState(@SW_HIDE, $GUI_1) ; On masque la GUI 1
	GUISetState(@SW_SHOW, $GUI_2) ; On affiche la GUI 2
EndFunc

Func AdobeReaderICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Adobe Reader", "Etes vous sûr de vouloir installer Adobe Reader ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Adobe Reader", "Installation de Adobe Reader abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_AdobeReader.bat")
		Traytip ("Installation Adobe Reader", "Installation de Adobe Reader terminé", 3000)
	Else
		Exit
	EndIf
   EndFunc

Func ChromeICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Chrome", "Etes vous sûr de vouloir installer Chrome ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Chrome", "Installation de Chrome abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Chrome.bat")
		Traytip ("Installation Chrome", "Installation de Chrome terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func FilezillaICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Filezilla", "Etes vous sûr de vouloir installer Filezilla ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Filezilla", "Installation de Filezilla abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Filezilla.bat")
		Traytip ("Installation Filezilla", "Installation de Filezilla terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func FirefoxICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Firefox", "Etes vous sûr de vouloir installer Firefox ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Firefox", "Installation de Firefox abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Firefox.bat")
		Traytip ("Installation Firefox", "Installation de Firefox terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func FlashPlayerActiveXICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Flash Player ActiveX", "Etes vous sûr de vouloir installer Flash Player ActiveX ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Flash Player ActiveX", "Installation de Flash Player ActiveX abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Flash_ActiveX.bat")
		Traytip ("Installation Flash Player ActiveX", "Installation de Flash Player ActiveX terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func FlashPlayerPlugInICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Flash Player PlugIn", "Etes vous sûr de vouloir installer Flash Player PlugIn ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Flash Player PlugIn", "Installation de Flash Player PlugIn abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Flash_PlugIn.bat")
		Traytip ("Installation Flash Player PlugIn", "Installation de Flash Player PlugIn terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func IE11ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Internet Explorer 11", "Etes vous sûr de vouloir installer Internet Explorer 11 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Internet Explorer 11", "Installation de Internet Explorer 11 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_IE11.bat")
		Traytip ("Installation Internet Explorer 11", "Installation de Internet Explorer 11 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Javax64ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Java 64 Bits", "Etes vous sûr de vouloir installer Java 64 Bits ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Java 64 Bits", "Installation de Java 64 Bits abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Javax64.bat")
		Traytip ("Installation Java 64 Bits", "Installation de Java 64 Bits terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Javax86ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Java 32 Bits", "Etes vous sûr de vouloir installer Java 32 Bits ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Java 32 Bits", "Installation de Java 32 Bits abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_Javax86.bat")
		Traytip ("Installation Java 32 Bits", "Installation de Java 32 Bits terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2005ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2005", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2005 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2005", "Installation de Microsoft Visual C++ 2005 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2005.bat")
		Traytip ("Installation Microsoft Visual C++ 2005", "Installation de Microsoft Visual C++ 2005 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2008ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2008", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2008 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2008", "Installation de Microsoft Visual C++ 2008 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2008.bat")
		Traytip ("Installation Microsoft Visual C++ 2008", "Installation de Microsoft Visual C++ 2008 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2010ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2010", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2010 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2010", "Installation de Microsoft Visual C++ 2010 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2010.bat")
		Traytip ("Installation Microsoft Visual C++ 2010", "Installation de Microsoft Visual C++ 2010 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2012ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2012", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2012 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2012", "Installation de Microsoft Visual C++ 2012 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2012.bat")
		Traytip ("Installation Microsoft Visual C++ 2012", "Installation de Microsoft Visual C++ 2012 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2013ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2013", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2013 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2013", "Installation de Microsoft Visual C++ 2013 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2013.bat")
		Traytip ("Installation Microsoft Visual C++ 2013", "Installation de Microsoft Visual C++ 2013 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func MSC2015ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Microsoft Visual C++ 2015", "Etes vous sûr de vouloir installer Microsoft Visual C++ 2015 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Microsoft Visual C++ 2015", "Installation de Microsoft Visual C++ 2015 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_MSVisualC++2015.bat")
		Traytip ("Installation Microsoft Visual C++ 2015", "Installation de Microsoft Visual C++ 2015 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Net40ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Framework 4.0", "Etes vous sûr de vouloir installer Framework 4.0 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Framework 4.0", "Installation de Framework 4.0 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_NetFrameWork4.0.bat")
		Traytip ("Installation Framework 4.0", "Installation de Framework 4.0 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Net452ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Framework 4.5.2", "Etes vous sûr de vouloir installer Framework 4.5.2 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Framework 4.5.2", "Installation de Framework 4.5.2 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_NetFrameWork4.5.2.bat")
		Traytip ("Installation Framework 4.5.2", "Installation de Framework 4.5.2 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Net461ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Framework 4.6.1", "Etes vous sûr de vouloir installer Framework 4.6.1 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Framework 4.6.1", "Installation de Framework 4.6.1 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_NetFrameWork4.6.1.bat")
		Traytip ("Installation Framework 4.6.1", "Installation de Framework 4.6.1 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func Net46ICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Framework 4.6", "Etes vous sûr de vouloir installer Framework 4.6 ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Framework 4.6", "Installation de Framework 4.6 abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_NetFrameWork4.6.bat")
		Traytip ("Installation Framework 4.6", "Installation de Framework 4.6 terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func PDFCreatorICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation PDF Creator", "Etes vous sûr de vouloir installer PDF Creator ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation PDF Creator", "Installation de PDF Creator abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_PDFCreator.bat")
		Traytip ("Installation PDF Creator", "Installation de PDF Creator terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func PDFSamICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation PDF Split and Merge", "Etes vous sûr de vouloir installer PDF Split and Merge ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation PDF Split and Merge", "Installation de PDF Split and Merge abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_PDFSam.bat")
		Traytip ("Installation PDF Split and Merge", "Installation de PDF Split and Merge terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func VLCICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation VLC", "Etes vous sûr de vouloir installer VLC ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation VLC", "Installation de VLC abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_VLC.bat")
		Traytip ("Installation VLC", "Installation de VLC terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func ZipICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation 7-Zip", "Etes vous sûr de vouloir installer 7-Zip ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation 7-Zip", "Installation de 7-Zip abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_7Zip.bat")
		TrayTip ("Installation 7-Zip", "Installation de 7-Zip terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func ZipICOClickUninstall()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Désinstallation 7-Zip", "Etes vous sûr de vouloir Déinstaller 7-Zip ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Désinstallation 7-Zip", "Désinstallation de 7-Zip abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Uninstall_7Zip.bat")
		TrayTip ("Désinstallation 7-Zip", "Désinstallation de 7-Zip terminé", 3000)
	Else
		Exit
	EndIf
EndFunc
Code Batch (qui fait l'installation)

Code : Tout sélectionner

@echo off

:::ULTIMATE COPY PROGRESSBAR
:::By SachaDee (2014)
:::DEFINITION DE LA SOURCE DE COPY
:::EN METTANT *.* IL COPIE EGALEMENT LES SOUS-DOSSIERS

:::DEFINITION DE LA DESTINATION

set $destination=C:\InstallSolo\Temp
Set $Source=\\Nom serveur\Partage\installation logiciel\4-7-Zip\7z1514-x64.exe

if exist progress.vbs del progress.vbs
(echo Const ProgressBar = ^&H0^&
 echo strTargetFolder = "%$destination%"
echo strSourceFolder = "%$Source%"
echo WScript.Sleep 2000
echo Set objShell = CreateObject^(^"Shell.Application^"^)
 echo Set objFolder = objShell.NameSpace^(strTargetFolder^)
echo objFolder.CopyHere strSourceFolder, ProgressBar) >>Progress.vbs

ECHO ************************************************* 
ECHO * TELECHARGEMENT EN COURS VEUILLEZ PATIENTER... * 
ECHO *************************************************
:::ECHO.By SachaDee (2013)
call progress.vbs
ECHO **************************
ECHO * TELECHARGEMENT TERMINE *
ECHO **************************

echo *****************************
echo * INSTALLATION DE 7-Zip x64 *
echo *****************************

cd "C:\InstallSolo\Temp"
start /wait 7z1514-x64.exe /S
del "7z1514-x64.exe"
Mon pb c'est que lorsque je lance le script il n'y a rien dans l'onglet Installation.
je voudrait qu'il y ai les mêmes icônes et labels sur les deux onglets.

Quelqu'un a des idées?

Je conçois que mon code est plein d'imperfections et qu'il est long, mais si des âmes charitables pouvaient pointer mes erreurs (doublons, inutilités...) pour que je puisse nettoyer le code. j'ai un peu peur de supprimer un bout de code utile et laisser un bout inutile par ignorance.
Et ce n'est pas faute d'avoir parcouru les forums.

Merci bcp
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Difficulté avec les onglets

#2

Message par mikell »

Je reconnais ne pas avoir lu tout le code (c'est vrai qu'il est long...) mais avant toute chose je recommanderais une relecture plus attentive de la rubrique "GUI Control creation/GUICtrlCreateTabItem" du fichier d'aide, paragraphe "remarks" :mrgreen:
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Avatar du membre
Antoineeuro
Niveau 1
Niveau 1
Messages : 5
Enregistré le : ven. 30 oct. 2015 14:37
Localisation : Blagnac
Status : Hors ligne

Re: Difficulté avec les onglets

#3

Message par Antoineeuro »

Re tt le monde,

J'ai avancé et reculé en même temps.... :mrgreen:

En fait par rapport à mon premier problème tout c'est inversé... :oops:

Maintenant mes onglets fonctionnent, merci mickel :wink:

Mais du coup lorsque je clique sur mes icônes et les labels associés rien ne se passe....
J'ai fouillé dans l'aide, .... mais google trad bof bof :mrgreen:

Je met le code que j'ai modifié (j'ai raccourci pour une meilleure visibilité - une fois résolu je remettrais le code complet)

Code : Tout sélectionner

; ########## Début de la création de la GUI 1 ##########
#Region ### START Koda GUI section ### Form=GUI_Install_Solo.kxf
$GUI_1 = GUICreate("IHM EE Prod", 527, 673, 201, 124) ; Création de la GUI 1
GUISetIcon ("C:\InstallSolo\Icones\EE.ico", -1)

;#########-------- Création du conteneur Tab -------###########"
$Tab1 = GUICtrlCreateTab(0, 0, 527, 673) ; Création du conteneur Tab

;#########-------- Onglet N°1 -------###########"
$TabSheet1 = GUICtrlCreateTabItem("Installation") ; Création de l'onglet "Installation"

$UninstallLBL = GUICtrlCreateLabel("Installation", 200, 40, 150, 24) ; Création du label Intallation
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Intallation (noir)
GUICtrlSetFont(-1, 15, 800) ; Met le label en gras

GUICtrlCreateButton("OK", 20, 50, 50, 20)
GUICtrlSetOnEvent(-1, "ZipICOClick")

; #### Icone et Label 7-Zip ####
$ZipICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\7zip.ico", -1, 44, 85, 32, 32) ; Création de l'icone 7-Zip
GUICtrlSetOnEvent(-1, "ZipICOClick") ; Attribution de la fonction ZipICOClick pour l'événement clic sur L'icone 7-zip
$ZipLBL = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
GUICtrlSetColor(-1, 0x000000) ; Couleur du label 7-Zip (noir)
GUICtrlSetOnEvent(-1, "ZipICOClick"); Attribution de la fonction ZipICOClick pour l'événement clic sur Le label 7-Zip

; #### Icone et label AdobeReader ####
$AdobeReaderICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\AdobeReader.ico", -1, 44, 120, 32, 32); Création de l'icone Adobe Reader
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderICOClick pour l'événement clic sur L'icone Adobe Reader
$AdobeReaderLBL = GUICtrlCreateLabel("Adobe Reader DC",80, 125, 150, 24); Création du label Adobe Reader
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Adobe Reader (noir)
GUICtrlSetOnEvent(-1, "AdobeReaderICOClick") ; Attribution de la fonction AdobeReaderICoClick pour l'événement clic sur Le label Adobe Reader


;###########------ Onglet N°2 ---------###########

$TabSheet2 = GUICtrlCreateTabItem("Désinstallation") ; Création de l'onglet "Désinstallation"

$UninstallLBL = GUICtrlCreateLabel("Désinstallation", 200, 40, 150, 24) ; Création du label Désintallation
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Désintallation (noir)
GUICtrlSetFont(-1, 15, 800) ; Met le label en gras

; #### Icone et Label 7-Zip ####
$ZipICO = GUICtrlCreateIcon("C:\InstallSolo\Icones\7zip.ico", -1, 44, 85, 32, 32) ; Création de l'icone 7-Zip
GUICtrlSetOnEvent(-1, "ZipICOClickUninstall") ; Attribution de la fonction ZipICOClick pour l'événement clic sur L'icone 7-zip
$ZipLBL = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
GUICtrlSetColor(-1, 0x000000) ; Couleur du label 7-Zip (noir)
GUICtrlSetOnEvent(-1, "ZipICOClickUninstall"); Attribution de la fonction ZipICOClick pour l'événement clic sur Le label 7-Zip



GUICtrlCreateTabItem(""); Fin de la definition de tabitem

#EndRegion ### END Koda GUI section ###
; ########## Fin de la création de la GUI 1 ##########


; GUISetState(@SW_SHOW, $GUI_1) ; On affiche la GUI_1 (la GUI_2 reste masquée) --> ça sert ?

While 1
		Sleep(10)
		$idMsg = GUIGetMsg()

        If $idMsg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd


Func AdobeReaderICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation Adobe Reader", "Etes vous sûr de vouloir installer Adobe Reader ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation Adobe Reader", "Installation de Adobe Reader abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_AdobeReader.bat")
		Traytip ("Installation Adobe Reader", "Installation de Adobe Reader terminé", 3000)
	Else
		Exit
	EndIf
   EndFunc

Func ZipICOClick()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Installation 7-Zip", "Etes vous sûr de vouloir installer 7-Zip ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Installation 7-Zip", "Installation de 7-Zip abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Install_7Zip.bat")
		TrayTip ("Installation 7-Zip", "Installation de 7-Zip terminé", 3000)
	Else
		Exit
	EndIf
EndFunc

Func ZipICOClickUninstall()
	Local $iAnswer = MsgBox(4 + 4096 + 64, "Désinstallation 7-Zip", "Etes vous sûr de vouloir Déinstaller 7-Zip ?")
	If $iAnswer = 7 Then
		MsgBox(4096, "Désinstallation 7-Zip", "Désinstallation de 7-Zip abandonnée")
	ElseIf Not IsAdmin() Then
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, "C:\InstallSolo\Scripts\Uninstall_7Zip.bat")
		TrayTip ("Désinstallation 7-Zip", "Désinstallation de 7-Zip terminé", 3000)
	Else
		Exit
	EndIf
EndFunc
Des petites idées?

Thx
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Difficulté avec les onglets

#4

Message par mikell »

Le script fonctionne, pour peu qu'on y rajoute Opt("GuiOnEventMode", 1) (mode événementiel choisi) en haut - et qu'on décommente le GuiSetState pour que la gui puisse s'afficher :mrgreen:
Dans ce cas il faut aussi utiliser GUISetOnEvent($GUI_EVENT_CLOSE, "fonction_pour_fermer") parce que le GuiGetMsg() ne marche plus
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: Difficulté avec les onglets

#5

Message par walkson »

Bonjour,
En complément de Mikell avec un essai de concentration des variables

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $install, $desintall,$message
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 329, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
Global $tab = GUICtrlCreateTab(25, 16, 279, 409)
GUICtrlSetOnEvent($tab, "tabChange")
$install = GUICtrlCreateTabItem("install")
icon($install) ;on installe les icons sur le Tabitem 0
$desintall = GUICtrlCreateTabItem("desintall")
icon($desintall) ;on installe les icons sur le Tabitem 1
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

tabChange()

While 1
 Sleep(100)
WEnd
Func icon($val)
$fleche = "C:\Program Files\AutoIt3\Examples\Helpfile\Extras\Arrow.ico"
$ballon = "C:\Program Files\AutoIt3\Examples\Helpfile\Extras\Soccer.ico"
$script = "C:\Program Files\AutoIt3\Examples\Helpfile\Extras\Script.ico"
If $val = $install	Then ;3 évènements
Global $Icon1 = GUICtrlCreateIcon($fleche, -1, 48, 56, 96, 96)
Global $Icon2 = GUICtrlCreateIcon($ballon, -1, 48, 168, 104, 88)
Global $Icon3 = GUICtrlCreateIcon($script, -1, 40, 272, 104, 88)
GUICtrlSetOnEvent($Icon1, "Icon1Click")
GUICtrlSetOnEvent($Icon2, "Icon2Click")
GUICtrlSetOnEvent($Icon3, "Icon3Click")
EndIf
If $val = $desintall Then ;1 évènement
Global $Icon1D = GUICtrlCreateIcon($fleche, -1, 48, 56, 96, 96)
Global $Icon2D = GUICtrlCreateIcon($ballon, -1, 48, 168, 104, 88)
Global $Icon3D = GUICtrlCreateIcon($script, -1, 40, 272, 104, 88)
GUICtrlSetOnEvent($Icon1D, "DIcon1Click")
GUICtrlSetOnEvent($Icon2D, "DIcon1Click")
GUICtrlSetOnEvent($Icon3D, "DIcon1Click")
EndIf
EndFunc

Func Form1Close()
Exit
EndFunc
Func DIcon1Click()
	$aCtrlRecvMsg = GUIGetCursorInfo($Form1);$aArray[4] = ID of the control that the mouse cursor is hovering over (or 0 if none)
Switch $aCtrlRecvMsg[4]
	Case $Icon1D
		MsgBox(0,$message,"flèche")
	Case $Icon2D
		MsgBox(0,$message,"ballon")
	Case $Icon3D
		MsgBox(0,$message,"script")

EndSwitch

EndFunc
Func Icon1Click()
MsgBox(0,$message,"Clic flèche")
EndFunc
Func Icon2Click()
MsgBox(0,$message,"Clic ballon")
EndFunc
Func Icon3Click()
MsgBox(0,$message,"Clic script")
EndFunc
Func tabChange()
	$lire = GUICtrlRead($tab)
	If $lire = 0 Then $message = "install"
	If $lire = 1 Then $message = "désinstall"
MsgBox(0,"selection Tab",$message,1)
EndFunc

Et pour l'installation ou la désinstallation des programmes, quelque chose comme çà

Code : Tout sélectionner

$monmessage = "Installation Adobe Reader"
$monchemin = "C:\InstallSolo\Scripts\Install_AdobeReader.bat"
_Installation($monmessage,$monchemin)
$monmessage = "Installation Chrome"
$monchemin = "C:\InstallSolo\Scripts\Install_Chrome.bat"
_Installation($monmessage,$monchemin)


Func _Installation($message,$theway)
   Local $iAnswer = MsgBox(4 + 4096 + 64, $message, "Etes vous sûr de vouloir l'" &$message&" ?")
   If $iAnswer = 7 Then
      MsgBox(4096, $message, "Installation abandonnée")
   ElseIf Not IsAdmin() Then
      RunAsWait($sUserName, $sDomaine , $sPassword, 0, $theway)
      Traytip ($message, $message & " terminé", 3000)
   Else
      Exit
   EndIf
EndFunc
Le but recherché étant d'éviter les répétitions
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Avatar du membre
Antoineeuro
Niveau 1
Niveau 1
Messages : 5
Enregistré le : ven. 30 oct. 2015 14:37
Localisation : Blagnac
Status : Hors ligne

Re: Difficulté avec les onglets

#6

Message par Antoineeuro »

Cool !!!
Merci de vos réponses.
Mais j'avoue les avoir survolée juste avant de partir en WE :roll: . Je relis tout ça lundi matin. :D

Code : Tout sélectionner

Opt("GuiOnEventMode", 1)
--> Supprimer en pensant que cela ne servait à rien :mrgreen:

Bon WE
A lundi
Avatar du membre
Antoineeuro
Niveau 1
Niveau 1
Messages : 5
Enregistré le : ven. 30 oct. 2015 14:37
Localisation : Blagnac
Status : Hors ligne

Re: Difficulté avec les onglets

#7

Message par Antoineeuro »

Bonjour à toute et à tous,

Me revoilà!!!
Tout d'abord un grand merci à Walkson et Mikell pour leurs réponses. :D

J'ai bien sur appliqué leurs conseils, et voilà ce que ça donne :
/!\ Code complet donc long /!\

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\..\InstallSolo\Icones\EE.ico
#AutoIt3Wrapper_Res_Comment=Installation sans assistance de la configuration logicielle standard de ma boite :D par les utilisateurs.
#AutoIt3Wrapper_Res_Description=Installation sans assistance de la configuration logicielle standard de ma boite :D par les utilisateurs.
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Made By|Moi
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

 AutoIt Version: 3.3.14.2
 Author:         Moi

 Script Function:
	Installation de la configuration logicielle Standard de ma boite :D par les utilisateurs

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

;#pragma compile(Icon, C:\Program Files (x86)\AutoIt3\Icons\au3.ico)

Dim $sRepertoireInstallSolo = "C:\InstallSolo"
Dim $sRepertoireIcones = "C:\InstallSolo\Icones"
Dim $sRepertoireScripts = "C:\InstallSolo\Scripts"
Dim $sRepertoireTemp = "C:\InstallSolo\Temp"
Dim $sRepertoirePrograms = "C:\InstallSolo\Programs"

DirCreate ($sRepertoireInstallSolo) ; Création du répertoire InstallSolo sur C:\
DirCreate ($sRepertoireIcones) ; Création du répertoire Icones sur C:\InstallSolo
DirCreate ($sRepertoireScripts) ; Création du répertoire Scripts sur C:\InstallSolo
DirCreate ($sRepertoireTemp) ; Création du répertoire Temp sur C:\InstallSolo
DirCreate ($sRepertoirePrograms) ; Création du répertoire Programs sur C:\InstallSolo

;### icones ###
FileInstall ("C:\InstallSolo\Icones\7zip.ico", "C:\InstallSolo\Icones\7zip.ico", 0)
FileInstall ("C:\InstallSolo\Icones\AdobeReader.ico", "C:\InstallSolo\Icones\AdobeReader.ico", 0)
FileInstall ("C:\InstallSolo\Icones\Chrome.ico", "C:\InstallSolo\Icones\Chrome.ico", 0)
FileInstall ("C:\InstallSolo\Icones\EE.ico", "C:\InstallSolo\Icones\EE.ico", 0)
FileInstall ("C:\InstallSolo\Icones\FileZilla.ico", "C:\InstallSolo\Icones\FileZilla.ico", 0)
FileInstall ("C:\InstallSolo\Icones\Firefox.ico", "C:\InstallSolo\Icones\Firefox.ico", 0)
FileInstall ("C:\InstallSolo\Icones\FlashPlayer.ico", "C:\InstallSolo\Icones\FlashPlayer.ico", 0)
FileInstall ("C:\InstallSolo\Icones\InternetExplorer.ico", "C:\InstallSolo\Icones\InternetExplorer.ico", 0)
FileInstall ("C:\InstallSolo\Icones\java.ico", "C:\InstallSolo\Icones\java.ico", 0)
FileInstall ("C:\InstallSolo\Icones\MS_VC++2005.ico", "C:\InstallSolo\Icones\MS_VC++2005.ico", 0)
FileInstall ("C:\InstallSolo\Icones\MS_VC++2012.ico", "C:\InstallSolo\Icones\MS_VC++2012.ico", 0)
FileInstall ("C:\InstallSolo\Icones\net_framework.ico", "C:\InstallSolo\Icones\net_framework.ico", 0)
FileInstall ("C:\InstallSolo\Icones\pdf-creator.ico", "C:\InstallSolo\Icones\pdf-creator.ico", 0)
FileInstall ("C:\InstallSolo\Icones\PDFSam.ico", "C:\InstallSolo\Icones\PDFSam.ico", 0)
FileInstall ("C:\InstallSolo\Icones\VLC.ico", "C:\InstallSolo\Icones\VLC.ico", 0)
;### Scripts ###
;---Install---
FileInstall ("C:\InstallSolo\Scripts\Install\Install_7Zip.bat", "C:\InstallSolo\Scripts\Install\Install_7Zip.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_AdobeReader.bat", "C:\InstallSolo\Scripts\Install\Install_AdobeReader.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Chrome.bat", "C:\InstallSolo\Scripts\Install\Install_Chrome.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Filezilla.bat", "C:\InstallSolo\Scripts\Install\Install_Filezilla.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Firefox.bat", "C:\InstallSolo\Scripts\Install\Install_Firefox.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Flash_ActiveX.bat", "C:\InstallSolo\Scripts\Install\Install_Flash_ActiveX.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Flash_PlugIn.bat", "C:\InstallSolo\Scripts\Install\Install_Flash_PlugIn.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Flash_Ppapi.bat", "C:\InstallSolo\Scripts\Install\Install_Flash_Ppapi.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_IE11.bat", "C:\InstallSolo\Scripts\Install\Install_IE11.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Javax64.bat", "C:\InstallSolo\Scripts\Install\Install_Javax64.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_Javax86.bat", "C:\InstallSolo\Scripts\Install\Install_Javax86.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2005.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2005.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2008.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2008.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2010.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2010.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2012.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2012.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2013.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2013.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_MSVisualC++2015.bat", "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2015.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.0.bat", "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.0.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.1.bat", "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.1.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.bat", "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_PDFCreator.bat", "C:\InstallSolo\Scripts\Install\Install_PDFCreator.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_PDFSam.bat", "C:\InstallSolo\Scripts\Install\Install_PDFSam.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Install\Install_VLC.bat", "C:\InstallSolo\Scripts\Install\Install_VLC.bat", 0)
;---Uninstall---
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_7Zip.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_7Zip.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_AdobeReader.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_AdobeReader.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_Chrome.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_Chrome.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_Filezilla.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_Filezilla.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_Firefox.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_Firefox.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_All_Flash_Player.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_All_Flash_Player.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_Java.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_Java.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFCreator.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFCreator.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFSam.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFSam.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\Uninstall_VLC.bat", "C:\InstallSolo\Scripts\Uninstall\Uninstall_VLC.bat", 0)
FileInstall ("C:\InstallSolo\Scripts\Uninstall\java-uninstaller.vbs", "C:\InstallSolo\Scripts\Uninstall\java-uninstaller.vbs", 0)
;### Programmes ###
FileInstall ("C:\InstallSolo\Programs\uninstall_flash_player.exe", "C:\InstallSolo\Programs\uninstall_flash_player.exe", 0)


#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $sUserName = "DomainAdminUser"
Dim $sPassword = "DomainAdminPassword"
Dim $sDomaine = "Domain"

Global $install, $desintall,$message, $maj
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("IHM EE Prod", 527, 673, 201, 124)
GUISetIcon ("C:\InstallSolo\Icones\EE.ico", -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "FermerLaFenetre")
Global $tab = GUICtrlCreateTab(0, 0, 527, 673)
GUICtrlSetOnEvent($tab, "tabChange")
$install = GUICtrlCreateTabItem("Installation")
icon($install) ;on installe les icons sur le Tabitem 0
$maj = GUICtrlCreateTabItem("Mise à jour")
icon($maj) ;on installe les icons sur le Tabitem 0
$desintall = GUICtrlCreateTabItem("Desintallation")
icon($desintall) ;on installe les icons sur le Tabitem 1
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

tabChange()

While 1
 Sleep(100)
WEnd
Func icon($val)
$ZipICO = "C:\InstallSolo\Icones\7zip.ico"
$AdobeReaderICO = "C:\InstallSolo\Icones\AdobeReader.ico"
$ChromeICO = "C:\InstallSolo\Icones\Chrome.ico"
$FilezillaICO = "C:\InstallSolo\Icones\FileZilla.ico"
$FirefoxICO = "C:\InstallSolo\Icones\Firefox.ico"
$IE11ICO = "C:\InstallSolo\Icones\InternetExplorer.ico"
$PDFCreator = "C:\InstallSolo\Icones\pdf-creator.ico"
$PDFSamICO = "C:\InstallSolo\Icones\PDFSam.ico"
$VLCICO = "C:\InstallSolo\Icones\VLC.ico"
$MSC2008ICO = "C:\InstallSolo\Icones\MS_VC++2005.ico"
$MSC2005ICO = "C:\InstallSolo\Icones\MS_VC++2005.ico"
$MSC2010ICO = "C:\InstallSolo\Icones\MS_VC++2005.ico"
$MSC2012ICO = "C:\InstallSolo\Icones\MS_VC++2012.ico"
$MSC2013ICO = "C:\InstallSolo\Icones\MS_VC++2012.ico"
$MSC2015ICO = "C:\InstallSolo\Icones\MS_VC++2012.ico"
$FlashPluginICO = "C:\InstallSolo\Icones\FlashPlayer.ico"
$FlashActiveXICO = "C:\InstallSolo\Icones\FlashPlayer.ico"
$FlashPpapiICO = "C:\InstallSolo\Icones\FlashPlayer.ico"
$Javax86ICO = "C:\InstallSolo\Icones\java.ico"
$Javax64ICO = "C:\InstallSolo\Icones\java.ico"
$Net452ICO = "C:\InstallSolo\Icones\net_framework.ico"
$Net40ICO = "C:\InstallSolo\Icones\net_framework.ico"
$Net46ICO = "C:\InstallSolo\Icones\net_framework.ico"
$Net461ICO = "C:\InstallSolo\Icones\net_framework.ico"

If $val = $install   Then ;3 évènements

;##### Création des Icones ####
Global $BTNClose = GUICtrlCreateButton ("Fermer", 400, 600, 85, 25)
Global $Icon4 = GUICtrlCreateIcon($ZipICO, -1, 44, 85, 32, 32)
Global $Icon5 = GUICtrlCreateIcon($AdobeReaderICO, -1, 44, 120, 32, 32)
Global $Icon6 = GUICtrlCreateIcon($ChromeICO, -1, 44, 155, 32, 32)
Global $Icon7 = GUICtrlCreateIcon($FilezillaICO, -1, 44, 190, 32, 32)
Global $Icon8 = GUICtrlCreateIcon($FirefoxICO, -1, 44, 225, 32, 32)
Global $Icon9 = GUICtrlCreateIcon($IE11ICO, -1, 44, 360, 32, 32)
Global $Icon10 = GUICtrlCreateIcon($PDFCreator, -1, 290, 185, 32, 32)
Global $Icon11 = GUICtrlCreateIcon($PDFSamICO, -1, 290, 220, 32, 32)
Global $Icon12 = GUICtrlCreateIcon($VLCICO, -1, 290, 255, 32, 32)
Global $Icon13 = GUICtrlCreateIcon($MSC2005ICO, -1, 51, 520, 32, 32)
Global $Icon14 = GUICtrlCreateIcon($MSC2008ICO, -1, 51, 555, 32, 32)
Global $Icon15 = GUICtrlCreateIcon($MSC2010ICO, -1, 51, 590, 32, 32)
Global $Icon16 = GUICtrlCreateIcon($MSC2012ICO, -1, 151, 520, 32, 32)
Global $Icon17 = GUICtrlCreateIcon($MSC2013ICO, -1, 151, 555, 32, 32)
Global $Icon18 = GUICtrlCreateIcon($MSC2015ICO, -1, 151, 590, 32, 32)
Global $Icon19 = GUICtrlCreateIcon($FlashPluginICO, -1, 51, 320, 32, 32)
Global $Icon20 = GUICtrlCreateIcon($FlashActiveXICO, -1, 51, 285, 32, 32)
Global $Icon21 = GUICtrlCreateIcon($Javax86ICO , -1, 51, 455, 32, 32)
Global $Icon22 = GUICtrlCreateIcon($Javax64ICO, -1, 51, 420, 32, 32)
Global $Icon23 = GUICtrlCreateIcon($Net46ICO, -1, 297, 145, 32, 32)
Global $Icon24 = GUICtrlCreateIcon($Net40ICO, -1, 297, 110, 32, 32)
Global $Icon25 = GUICtrlCreateIcon($Net461ICO, -1, 397, 110, 32, 32)
Global $Icon26 = GUICtrlCreateIcon($FlashPpapiICO, -1, 151, 285, 32, 32)

;##### Attribution de la fonction "FermerLaFenêtre" pour l'événement clic sur bouton ####
GUICtrlSetOnEvent($BTNClose, "FermerLaFenetre")
;##### Attribution des fonctions pour les événements clic sur icone ####
GUICtrlSetOnEvent($Icon4, "InstallClick")
GUICtrlSetOnEvent($Icon5, "InstallClick")
GUICtrlSetOnEvent($Icon6, "InstallClick")
GUICtrlSetOnEvent($Icon7, "InstallClick")
GUICtrlSetOnEvent($Icon8, "InstallClick")
GUICtrlSetOnEvent($Icon9, "InstallClick")
GUICtrlSetOnEvent($Icon10, "InstallClick")
GUICtrlSetOnEvent($Icon11, "InstallClick")
GUICtrlSetOnEvent($Icon12, "InstallClick")
GUICtrlSetOnEvent($Icon13, "InstallClick")
GUICtrlSetOnEvent($Icon14, "InstallClick")
GUICtrlSetOnEvent($Icon15, "InstallClick")
GUICtrlSetOnEvent($Icon16, "InstallClick")
GUICtrlSetOnEvent($Icon17, "InstallClick")
GUICtrlSetOnEvent($Icon18, "InstallClick")
GUICtrlSetOnEvent($Icon19, "InstallClick")
GUICtrlSetOnEvent($Icon20, "InstallClick")
GUICtrlSetOnEvent($Icon21, "InstallClick")
GUICtrlSetOnEvent($Icon22, "InstallClick")
GUICtrlSetOnEvent($Icon23, "InstallClick")
GUICtrlSetOnEvent($Icon24, "InstallClick")
GUICtrlSetOnEvent($Icon25, "InstallClick")
GUICtrlSetOnEvent($Icon26, "InstallClick")

;##### Création des Labels ####
$AdobeReaderLBL = GUICtrlCreateLabel("Adobe Reader DC",80, 125, 150, 24); Création du label Adobe Reader
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Adobe Reader (noir)
$ZipLBL = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
$FilezillaLBL = GUICtrlCreateLabel("Filezilla", 80, 195, 64, 24); Création du label Filezilla
$ChromeLBL = GUICtrlCreateLabel("Chrome", 80, 160, 66, 24) ; Création du label Chrome
$FirefoxLBL = GUICtrlCreateLabel("Firefox", 80, 230, 59, 24) ; Création du label Firefox
$IE11LBL = GUICtrlCreateLabel("Internet Explorer", 80, 365, 139, 24)
$VLCLBL = GUICtrlCreateLabel("VLC", 326, 260, 38, 24)
$PDFSamLBL = GUICtrlCreateLabel("PDF Split and Merge", 326, 225, 170, 24)
$PDFCreatorLBL = GUICtrlCreateLabel("PDF Creator", 326, 190, 104, 24)
$MSC2005LBL = GUICtrlCreateLabel("2005", 85, 525, 44, 24)
$MSC2008LBL = GUICtrlCreateLabel("2008", 85, 560, 44, 24)
$MSC2010LBL = GUICtrlCreateLabel("2010", 85, 595, 44, 24)
$MSC2012LBL = GUICtrlCreateLabel("2012", 186, 525, 44, 24)
$MSC2013LBL = GUICtrlCreateLabel("2013", 186, 560, 44, 24)
$MSC2015LBL = GUICtrlCreateLabel("2015", 186, 595, 44, 24)
$FlashActiveXLBL = GUICtrlCreateLabel("Active X ( IE )", 85, 290, 100,24)
$FlashPpapiLBL = GUICtrlCreateLabel("Ppapi ( Chrome )", 185, 290, 100, 24)
$PlugInLBL = GUICtrlCreateLabel("PlugIn ( Firefox )", 85, 325, 100, 24)
$Javax64LBL = GUICtrlCreateLabel("64 Bits", 85, 425, 60, 24)
$Javax86LBL = GUICtrlCreateLabel("32 Bits", 85, 460, 60, 24)
$Net40LBL = GUICtrlCreateLabel("4.0", 331, 115, 29, 24)
$Net46LBL = GUICtrlCreateLabel("4.6", 331, 150, 44, 24)
$Net461LBL = GUICtrlCreateLabel("4.6.1", 432, 115, 29, 24)


;##### Création des Groupes ####
;---Groupe Visual C++ --
$MicrosoftVisualC = GUICtrlCreateGroup("Microsoft Visual C++", 44, 495, 225, 137)
;--- Groupe Net Framework #---
$NetFramework = GUICtrlCreateGroup("Net Framework", 290, 85, 225, 97)
;--- Groupe java ---
$Java = GUICtrlCreateGroup("Java", 44, 395, 225, 97)
;--- Groupe Flash Player ---
$FlashPlayer = GUICtrlCreateGroup("Flash Player", 44, 260, 225, 97)



EndIf

If $val = $maj Then

;##### Création des boutons ####
Global $BTNMaj = GUICtrlCreateButton ("Mise à jour", 150, 150, 150, 75)
GUICtrlSetFont (-1, 15, 30)
Global $BTNClose = GUICtrlCreateButton ("Fermer", 400, 600, 85, 25)


;##### Attribution des fonctions pour les événements clic sur bouton ####
GUICtrlSetOnEvent($BTNClose, "FermerLaFenetre")
GUICtrlSetOnEvent($BTNMaj, "Maj")

EndIf

If $val = $desintall Then ;1 évènement

;##### Création des Icones ####
Global $BTNClose = GUICtrlCreateButton ("Fermer", 400, 600, 85, 25)
Global $Icon4D = GUICtrlCreateIcon($ZipICO, -1, 44, 85, 32, 32)
Global $Icon5D = GUICtrlCreateIcon($AdobeReaderICO, -1, 44, 120, 32, 32)
Global $Icon6D = GUICtrlCreateIcon($ChromeICO, -1, 44, 155, 32, 32)
Global $Icon7D = GUICtrlCreateIcon($FilezillaICO, -1, 44, 190, 32, 32)
Global $Icon8D = GUICtrlCreateIcon($FirefoxICO, -1, 44, 225, 32, 32)
Global $Icon10D = GUICtrlCreateIcon($PDFCreator, -1, 44, 395, 32, 32)
Global $Icon11D = GUICtrlCreateIcon($PDFSamICO, -1, 44, 430, 32, 32)
Global $Icon12D = GUICtrlCreateIcon($VLCICO, -1, 44, 465, 32, 32)
Global $Icon19D = GUICtrlCreateIcon($FlashPluginICO, -1, 51, 320, 32, 32)
Global $Icon20D = GUICtrlCreateIcon($FlashActiveXICO, -1, 51, 285, 32, 32)
Global $Icon21D = GUICtrlCreateIcon($Javax86ICO , -1, 44, 360, 32, 32)
Global $Icon26D = GUICtrlCreateIcon($FlashPpapiICO, -1, 151, 285, 32, 32)

;##### Attribution de la fonction "FermerLaFenêtre" pour l'événement clic sur bouton ####
GUICtrlSetOnEvent($BTNClose, "FermerLaFenetre")
;##### Attribution des fonctions pour les événements clic sur icone ####
GUICtrlSetOnEvent($Icon4D, "DeinstallClick")
GUICtrlSetOnEvent($Icon5D, "DeinstallClick")
GUICtrlSetOnEvent($Icon6D, "DeinstallClick")
GUICtrlSetOnEvent($Icon7D, "DeinstallClick")
GUICtrlSetOnEvent($Icon8D, "DeinstallClick")
GUICtrlSetOnEvent($Icon10D, "DeinstallClick")
GUICtrlSetOnEvent($Icon11D, "DeinstallClick")
GUICtrlSetOnEvent($Icon12D, "DeinstallClick")
GUICtrlSetOnEvent($Icon19D, "DeinstallClick")
GUICtrlSetOnEvent($Icon20D, "DeinstallClick")
GUICtrlSetOnEvent($Icon21D, "DeinstallClick")
GUICtrlSetOnEvent($Icon26D, "DeinstallClick")

;##### Création des Labels ####
$AdobeReaderLBL = GUICtrlCreateLabel("Adobe Reader DC",80, 125, 150, 24); Création du label Adobe Reader
GUICtrlSetColor(-1, 0x000000) ; Couleur du label Adobe Reader (noir)
$ZipLBL = GUICtrlCreateLabel("7-ZIP", 80, 90, 48, 24) ; Création du label 7-Zip
$FilezillaLBL = GUICtrlCreateLabel("Filezilla", 80, 195, 64, 24); Création du label Filezilla
$ChromeLBL = GUICtrlCreateLabel("Chrome", 80, 160, 66, 24) ; Création du label Chrome
$FirefoxLBL = GUICtrlCreateLabel("Firefox", 80, 230, 59, 24) ; Création du label Firefox
$VLCLBL = GUICtrlCreateLabel("VLC", 80, 470, 38, 24)
$PDFSamLBL = GUICtrlCreateLabel("PDF Split and Merge", 80, 435, 170, 24)
$PDFCreatorLBL = GUICtrlCreateLabel("PDF Creator", 80, 400, 104, 24)
$FlashActiveXLBL = GUICtrlCreateLabel("Active X ( IE )", 85, 290, 100, 24)
$PlugInLBL = GUICtrlCreateLabel("PlugIn ( Firefox )", 85, 325, 100, 24)
$FlashPpapiLBL = GUICtrlCreateLabel("Ppapi ( Chrome )", 185, 290, 100, 24)
$Javax64LBL = GUICtrlCreateLabel("32 et 64 bits", 85, 370, 60, 24)



;##### Création des Groupes ####
;--- Groupe Flash Player ---
$FlashPlayer = GUICtrlCreateGroup("Flash Player", 44, 260, 225, 97)


EndIf
EndFunc

Func FermerLaFenetre()
Exit
EndFunc

Func InstallClick()
   $aCtrlRecvMsg = GUIGetCursorInfo($Form1);$aArray[4] = ID of the control that the mouse cursor is hovering over (or 0 if none)
Switch $aCtrlRecvMsg[4]
	Case $Icon4
 		$monmessage = "Installation de 7-Zip"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_7Zip.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon5
		$monmessage = "Installation d'Adobe Reader"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_AdobeReader.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon6
		$monmessage = "Installation de Chrome"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Chrome.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon7
		$monmessage = "Installation de Filezilla"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Filezilla.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon8
      $monmessage = "Installation de Firefox"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Firefox.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon9
		$monmessage = "Installation de IE11"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_IE11.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon10
		$monmessage = "Installation de PDFCreator"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFCreator.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon11
		$monmessage = "Installation de PDFSam"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFSam.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon12
		$monmessage = "Installation de VLC"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_VLC.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon13
		$monmessage = "Installation de MSVisualC++2005"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2005.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon14
		$monmessage = "Installation de MSVisualC++2008"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2008.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon15
		$monmessage = "Installation de MSVisualC++2010"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2010.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon16
		$monmessage = "Installation de MSVisualC++2012"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2012.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon17
		$monmessage = "Installation de MSVisualC++2013"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2013.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon18
      $monmessage = "Installation de MSVisualC++2015"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_MSVisualC++2015.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon19
      $monmessage = "Installation de Flash Player PlugIn"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_PlugIn.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon20
      $monmessage = "Installation de Flash Player ActiveX"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_ActiveX.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon21
		$monmessage = "Installation de Java 32 bits"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax86.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon22
		$monmessage = "Installation de Java 64 bits"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax64.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon23
		$monmessage = "Installation de Net FrameWork 4.6"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon24
		$monmessage = "Installation de Net FrameWork 4.0"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.0.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon25
		$monmessage = "Installation de Net FrameWork 4.6.1"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_NetFrameWork4.6.1.bat"
		call ("_Installation",$monmessage,$monchemin)
	Case $Icon26
		$monmessage = "Installation de Flash Player Ppapi"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_Ppapi.bat"
		call ("_Installation",$monmessage,$monchemin)


EndSwitch

EndFunc
; ================================== Debut travaux =======================================
Func Maj()

		$i = "Maj" #cs --> ne sert a rien :( #ce
		$j = 0
		While

			ProgressOn("Progression", "Progression de la mise à jour", "Progression...") #cs --> ? ne fonctionnera jamais en l'état : test #ce
		For $i = "Maj"
			ProgressSet ($j, $j & "%")
			sleep (5)
		Next
			ProgressSet($j = 100, "Fin")
			sleep(750)
			ProgressOff

		Local $iAnswer = MsgBox(4 + 4096 + 64, "Mise à jour", "Etes vous sûr de vouloir la mise à jour ?")
		If $iAnswer = 7 Then
			MsgBox(4096, "Mise à jour", "Mise à jour abandonnée")
		ElseIf Not IsAdmin() Then


		$monchemin1 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_7Zip.bat"
		$monchemin2 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_AdobeReader.bat"
		$monchemin3 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Chrome.bat"
		$monchemin4 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Filezilla.bat"
		$monchemin5 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Firefox.bat"
		$monchemin6 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFCreator.bat"
		$monchemin7 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFSam.bat"
		$monchemin8 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_VLC.bat"
		$monchemin9 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_All_Flash_Player.bat"
		$monchemin10 = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Java.bat"

		$monchemin = "C:\InstallSolo\Scripts\Install\Install_7Zip.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_AdobeReader.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Chrome.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Filezilla.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Firefox.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFCreator.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFSam.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_VLC.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_PlugIn.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_ActiveX.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax86.bat"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax64.bat"

		MsgBox (64, "Mise à jour", "Mise à jour : Commencement de la désinstallation", 1000)
		Traytip ("info", " Mise à jour : Commencement de la désinstallation", 2000)

		sleep (1000)
 		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_7Zip.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_AdobeReader.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Chrome.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Filezilla.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Firefox.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFCreator.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFSam.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_VLC.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_All_Flash_Player.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Déinstallation"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Java.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)

		MsgBox (64, "Mise à jour", "Mise à jour : Déinstallation terminée. Commencement de la réinstallation", 1000)
		Traytip ($monmessage, $monmessage & " Mise à jour : Déinstallation terminé. Commencement de la réinstallation", 2000)

		sleep (1000)
 		$monmessage = "Installation de 7-Zip"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_7Zip.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation d'Adobe Reader"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_AdobeReader.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Chrome"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Chrome.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Filezilla"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Filezilla.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Firefox"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Firefox.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de PDFCreator"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFCreator.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de PDFSam"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_PDFSam.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de VLC"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_VLC.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Flash Player PlugIn"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_PlugIn.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Flash Player ActiveX"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Flash_ActiveX.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Java 32 bits"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax86.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
		sleep (1000)
		$monmessage = "Installation de Java 64 bits"
		$monchemin = "C:\InstallSolo\Scripts\Install\Install_Javax64.bat"
		RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)

		Sleep (3000)
		MsgBox (64, "Mise à jour", "Mise à jour terminée", 2000)
		Traytip ($monmessage, $monmessage & " Mise à jour terminée", 3000)

		EndIf
		WEnd
EndFunc

Func _Progress () #cs --> Ne sert pas pour le moment #ce
	ProgressOn("Progression", "Progression de la mise à jour", "Progression...")
		For $i = Sleep
			ProgressSet ($i)
			sleep (5)
		Next
			ProgressSet(100, "Fin")
			sleep(750)
			ProgressOff
EndFunc
; ============================================ Fin travaux =============================================
Func DeinstallClick()
   $aCtrlRecvMsg = GUIGetCursorInfo($Form1);$aArray[4] = ID of the control that the mouse cursor is hovering over (or 0 if none)
Switch $aCtrlRecvMsg[4]
	Case $Icon4D
 		$monmessage = "Déinstallation de 7-Zip"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_7Zip.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon5D
		$monmessage = "Déinstallation de Adobe Reader DC"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_AdobeReader.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon6D
		$monmessage = "Déinstallation de Chrome"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Chrome.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon7D
		$monmessage = "Déinstallation de Filezilla"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Filezilla.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon8D
		$monmessage = "Déinstallation de Firefox"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Firefox.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon10D
		$monmessage = "Déinstallation de PDF Creator"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFCreator.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon11D
		$monmessage = "Déinstallation de PDF Sam"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_PDFSam.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon12D
		$monmessage = "Déinstallation de VLC"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_VLC.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon19D
		$monmessage = "Déinstallation de tous les Flash Player"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_All_Flash_Player.bat"
		call ("_Deinstallation",$monmessage,$monchemin)
	Case $Icon21D
		$monmessage = "Déinstallation de tous les Java"
		$monchemin = "C:\InstallSolo\Scripts\Uninstall\Uninstall_Java.bat"
		call ("_Deinstallation",$monmessage,$monchemin)

EndSwitch

EndFunc

Func _Installation($monmessage,$monchemin)
   Local $iAnswer = MsgBox(4 + 4096 + 64, $monmessage, "Etes vous sûr de vouloir l'" &$monmessage&" ?")
   If $iAnswer = 7 Then
      MsgBox(4096, $monmessage, "Installation abandonnée")
   ElseIf Not IsAdmin() Then
      RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
      Traytip ($monmessage, $monmessage & " Installation terminée", 3000)
   Else
      Exit
   EndIf
EndFunc

Func _Deinstallation($monmessage,$monchemin)
   Local $iAnswer = MsgBox(4 + 4096 + 64, $monmessage, "Etes vous sûr de vouloir la " &$monmessage&" ?")
   If $iAnswer = 7 Then
      MsgBox(4096, $monmessage, "Déinstallation abandonnée")
   ElseIf Not IsAdmin() Then
      RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
      Traytip ($monmessage, $monmessage & " Déisntallation terminéee", 3000)
   Else
      Exit
   EndIf
EndFunc
; ====================== Reprise des travaux =================================================
Func _Maj($monmessage,$monchemin) #cs --> Ne sert à rien pour le moment #ce
   Local $iAnswer = MsgBox(4 + 4096 + 64, "Mise à jour", "Etes vous sûr de vouloir la mise à jour ?")
   If $iAnswer = 7 Then
      MsgBox(4096, $monmessage, "Mise à jour abandonnée")
   ElseIf Not IsAdmin() Then
      RunAsWait($sUserName, $sDomaine , $sPassword, 0, $monchemin)
   Else
      Exit
   EndIf
EndFunc
; ========================= Fin de la reprise ===============================================
Func tabChange()
   $lire = GUICtrlRead($tab)
   If $lire = 0 Then $message = "Installation"
   If $lire = 1 Then $message = "Mise à jour de la configuration standard de ma boite :D"
   If $lire = 2 Then $message = "Désinstallation"
SplashTextOn ("Onglet Sélectionné", $message, 200, 85)
Sleep (800)
SplashOff ()
EndFunc

Après discussion avec mon responsable j'ai rajouter un onglet "Mise à jour".
Celui-ci devra désinstaller certains logiciels et installer une nouvelle version.
Cela correspond à la section "Travaux".
Mais j’avoue avoir un peu de mal... :?
En plus, Je voudrais faire en sorte qu'il y ai une barre de progression. :roll:

je poste mon brouillon/travaux, dans l'espoir que quelqu'un ai une idée :mrgreen:

Thx
Avatar du membre
franco
Niveau 7
Niveau 7
Messages : 342
Enregistré le : lun. 03 oct. 2011 22:37
Localisation : Liévin
Status : Hors ligne

Re: Difficulté avec les onglets

#8

Message par franco »

Salut.
Après discussion avec mon responsable j'ai rajouter un onglet "Mise à jour".
Celui-ci devra désinstaller certains logiciels et installer une nouvelle version.
Cela correspond à la section "Travaux".
Mais j’avoue avoir un peu de mal... :?
En plus, Je voudrais faire en sorte qu'il y ai une barre de progression. :roll:
Donc, si j'ai bien compris :
Tu veux télécharger les logiciels afin de les installer.

Tu peux déjà créer un script (avec barre de progression).

J'utilise deux types de barre :
- Une "vraie" barre de progression.
- Une barre qui ne fait que défiler et qui s'arrête quand tout est fini (en gros, une aide visuelle).

Je t'ai fait vite fait deux scripts qui inclue les deux types de barre.


Premier script :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <File.au3>

$codesource = @TempDir & "\codesource.txt"
$Fichier = @DesktopDir & "\ImgBurn.exe"

Global $Form1 = GUICreate("", 170, 80, 192, 124)

$TelImgburn_v1 = GUICtrlCreateButton("Télécharger ImgBurn __ V1", 10, 10, 150, 30)



GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $TelImgburn_v1
			_ImgBurn()

	EndSwitch
WEnd





Func _ImgBurn()

	While 1

		$url = "http://www.imgburn.com/index.php?act=download"
		$tmpfichier = FileOpen($codesource, 2)
		FileWrite($tmpfichier, _INetGetSource($url))
		FileClose($tmpfichier)

		While 1
			$Line = ""
			For $a = 1 To _FileCountLines($codesource)
				If StringInStr(FileReadLine($codesource, $a), ".exe") Then $Line = FileReadLine($codesource, $a)
				If $Line <> "" Then ExitLoop
			Next
			ExitLoop
		WEnd

		$char1 = "<a href='"
		$char2 = "'"
		$url = _FindBetweenString($Line, $char1, $char2)

		$Progression = GUICtrlCreateProgress(10, 50, 150, 20) ; debut barre de progression

		; code ;

		$myDL = InetGet($url, $Fichier, 1, 1)
		$Taille_MAX = InetGetSize($url)
		$Taille_MIN = 0
		$pourcent = 0

		If $Taille_MAX <= 0 Then ExitLoop
		Do
			Sleep(50)
			$Taille_MIN = InetGetInfo($myDL, 0)
			$pourcent = Int(($Taille_MIN / $Taille_MAX) * 100)
			GUICtrlSetData($Progression, $pourcent)
		Until InetGetInfo($myDL, 2) ; Check if the download is complete.
		InetClose($myDL) ; Close the handle to release resources.

		; code ;

		GUICtrlDelete($Progression) ; fin barre de progression

		MsgBox(0, "", "ImgBurn.exe a bien été télécharge sur le bureau.")

		ExitLoop
	WEnd

EndFunc   ;==>_ImgBurn_port

Func _FindBetweenString($Line, $char1, $char2)
	$part1 = StringRegExpReplace($Line, "^.*" & $char1, "")
	$term = StringRegExpReplace($part1, "\" & $char2 & ".*", "")
	Return SetExtended(1, $term)
EndFunc   ;==>_FindBetweenString
Deuxième script :

Code : Tout sélectionner

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

$codesource = @TempDir & "\codesource.txt"
$Fichier = @DesktopDir & "\ImgBurn.exe"

Global $Form1 = GUICreate("", 170, 80, 192, 124)

$TelImgburn_v1 = GUICtrlCreateButton("Télécharger ImgBurn __ V2", 10, 10, 150, 30)

GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $TelImgburn_v1
			_ImgBurn()

	EndSwitch
WEnd





Func _ImgBurn()

	While 1

		$url = "http://www.imgburn.com/index.php?act=download"
		$tmpfichier = FileOpen($codesource, 2)
		FileWrite($tmpfichier, _INetGetSource($url))
		FileClose($tmpfichier)

		While 1
			$Line = ""
			For $a = 1 To _FileCountLines($codesource)
				If StringInStr(FileReadLine($codesource, $a), ".exe") Then $Line = FileReadLine($codesource, $a)
				If $Line <> "" Then ExitLoop
			Next
			ExitLoop
		WEnd

		$char1 = "<a href='"
		$char2 = "'"
		$url = _FindBetweenString($Line, $char1, $char2)

		$Progression = GUICtrlCreateProgress(10, 50, 150, 20, $PBS_MARQUEE) ; debut barre de progression
		GUICtrlSendMsg($Progression, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar

		; code ;

		$myDL = InetGet($url, $Fichier, 1, 1)
		$Taille_MAX = InetGetSize($url)
		If $Taille_MAX <= 0 Then ExitLoop
		Do
			Sleep(50)
		Until InetGetInfo($myDL, 2) ; Check if the download is complete.
		InetClose($myDL) ; Close the handle to release resources.

		; code ;

		GUICtrlDelete($Progression) ; fin barre de progression

		MsgBox(0, "", "ImgBurn.exe a bien été télécharge sur le bureau.")

		ExitLoop
	WEnd

EndFunc   ;==>_ImgBurn_port

Func _FindBetweenString($Line, $char1, $char2)
	$part1 = StringRegExpReplace($Line, "^.*" & $char1, "")
	$term = StringRegExpReplace($part1, "\" & $char2 & ".*", "")
	Return SetExtended(1, $term)
EndFunc   ;==>_FindBetweenString
@++
L'entraide, c'est mon dada ;)
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Difficulté avec les onglets

#9

Message par mikell »

En plus, Je voudrais faire en sorte qu'il y ai une barre de progression.
Voui certes
Mais en fonction du comportement des .bat, avec des RunAsWait (... pauses script execution until the program finishes) faire évoluer la barre risque d'être difficile
Ou alors j'ai pas compris à quoi elle est censée servir, ce qui - vu les esplications fournies - est totafi possible :mrgreen:
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Répondre