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 ).
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" ) :
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 : 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"
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