AutoIt Français

Code : Tout sélectionner

#Region
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Installation de iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#EndRegion

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

$file = "iSafari_temp_install.exe"

#Region ### START Koda GUI section ### Form=
ProgressOn("installation ....", "Préparation de l'installation...", "5%")
For $i = 10 to 80 step 10
    sleep(100)
    ProgressSet( $i, $i & "%")
Next
ProgressSet(90)
FileInstall("iSafari_temp_install.exe", @TempDir & "\" & $file)
ProgressSet(100 , "Done", "Complete")
sleep(100)
ShellExecute($file,"", @TempDir)
ProgressOff()
 

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Installation de iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_File_Add=parametres.ini
#AutoIt3Wrapper_Res_File_Add=iSafari.dll
#AutoIt3Wrapper_Res_File_Add=iSafari_uninstall.ex_
#AutoIt3Wrapper_Res_File_Add=iSafari.png
#AutoIt3Wrapper_Res_File_Add=splash.jpg
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;DJSIR (iSafari)
;iSafari TOOL : Install

;Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIconstants.au3>
#include <IE.au3>
#Include <date.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <Misc.au3>
#include <File.au3>
#include <Sound.au3>
#NoTrayIcon

;Noms
Dim $pic = (@TempDir & "\install.jpg")
Dim $splash = (@TempDir & "\splash.jpg")

;Premiere installation
FileInstall("splash.jpg", @TempDir & "\splash.jpg", 1)
SplashImageOn("",$splash, 400, 300, -1, -1, 1)
FileInstall("install.jpg", @TempDir & "\install.jpg", 1)
Sleep(3000)
SplashOff()
$Form1 = GUICreate("iSafari INSTALLER", 291, 370, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xFFFFFF)
;Boutons
GUICtrlCreatePic($pic, 0, 0, 291, 240)
$Button1 = GUICtrlCreateButton("Commencer l'installation", 59, 310, 180, 24, 0)
$Text0 = GUICtrlCreateLabel ("Bienvenue dans l'installation de", 59, 250, 180, 24, 0)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input0 = GUICtrlCreateLabel ("iSafari. Cet assistant va vous ", 59, 265, 180, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input9 = GUICtrlCreateLabel ("guider dans l'installation. ", 59, 280, 180, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;Fenêtre fixe
GUISetState(@SW_SHOW)

;Loop
While 1
$nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
Switch $nMsg
    Case $Button1
        GUICtrlDelete($Button1)
        GUICtrlDelete($Input0)
        GUICtrlDelete($Text0)
                GUICtrlDelete($Input9)
        $Text1 = GUICtrlCreateLabel ("Ou installer iSafari : ", 59, 260, 180, 24, 0)
        $Input1 = GUICtrlCreateInput ("", 59, 280, 180, 24)
        $button0 = GUICtrlCreateButton ("", 59, 310, 180, 24, 0)
        $Folder = FileSelectFolder("Choisir le dossier d'installation de iSafari :", @ProgramFilesDir)
        GUICtrlDelete ($Text1)
        GUICtrlDelete ($Input1)
                GUICtrlDelete ($button0)
        $text2 = GUICtrlCreateLabel ("Installer iSafari dans :", 59, 260, 180, 24, 0)
        $Button2 = GUICtrlCreateButton("Installer iSafari", 59, 310, 180, 24, 0)
        $Input2 = GUICtrlCreateInput ($Folder, 59, 280, 180, 24)
            While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
            Case $Button2
            ;Commencement de l'installation de iSafari
            SplashTextOn ("", "Installation en cours", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
        GUICtrlDelete ($text2)
        $text3 = GUICtrlCreateLabel ("Installation en cours :", 59, 260, 180, 24, 0)
        GUICtrlDelete ($Input2)
        GUICtrlDelete ($Button2)
        $input3 = GUICtrlCreateLabel ("Veuillez patienter...", 59, 280, 180, 24, 0)
        $button4 = GUICtrlCreateButton ("", 59, 310, 180, 24, 0)
            ;Cration du dossier
            DirCreate ( $Folder & "\iSafari")
            DirCreate ( $Folder & "\iSafari\aide")
            DirCreate ( $Folder & "\iSafari\aide\images")
            Sleep(1000)
            ;Installation automatique des fichiers
            SplashTextOn ("", "Installation en cours" & @CRLF & "favoris.ini", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("favoris.ini", $Folder & "\iSafari\favoris.ini", 1)
            SplashTextOn ("", "Copie des fichiers :" & @CRLF & "iSafari.exe", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("iSafari.exe", $Folder & "\iSafari\iSafari.exe", 1)
            SplashTextOn ("", "Installation de l'aide", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            Sleep(1000)
            SplashTextOn ("", "Installation de l'aide :" & @CRLF & "aide.html", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("aide\aide.html", $Folder & "\iSafari\aide\aide.html", 1)
            SplashTextOn ("", "Installation de l'aide :" & @CRLF & "iSafari.png", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("aide\images\iSafari.png", $Folder & "\iSafari\aide\images\iSafari.png", 1)
            SplashTextOn ("", "Installation de iSafari UNINSTALLER :" & @CRLF & "iSafari_uninstall.exe", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("iSafari_uninstall.exe", $Folder & "\iSafari\iSafari_uninstall.exe", 1)
            SplashTextOn ("", "Création du raccourci sur le bureau :" & @CRLF & "iSafari.lnk", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @DesktopDir & "\iSafari.lnk", $Folder)
            SplashTextOn ("", "Créations des raccourcis dans le menu démmarer", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            DirCreate ( @ProgramsDir & "\iSafari")
            SplashTextOn ("", "Créations des raccourcis dans le menu démmarer :" & @CRLF & '"iSafari"', 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @ProgramsDir & "\iSafari.lnk", $Folder)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @ProgramsDir & "\iSafari\iSafari.lnk", $Folder)
            FileCreateShortcut ($Folder & "\iSafari\iSafari_uninstall.exe", @ProgramsDir & "\iSafari\iSafari UNINSTALL.lnk", $Folder)
            SplashTextOn ("", "Ajout des clés registre : " & @CRLF & "[HKLM\SOFTWARE\iSafari]", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            RegWrite("HKLM\Software\iSafari", "version","REG_SZ","0.7")
            RegWrite("HKLM\Software\iSafari", "path","REG_SZ",$Folder & "\iSafari")
            RegWrite("HKLM\Software\iSafari", "path_isafari","REG_SZ",$Folder)
            SplashOff()  
            ;Fin de l'installation
            Sleep(1000)

            SplashTextOn ("", "Finalisation", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileDelete( @TempDir & "\install.jpg")
            ;FileMove (@TempDir & "\favoris.ini", $Folder & "\favoris.ini", 1)
            Sleep(3000)
            SplashOff()
            GUICtrlDelete ($text3)
        $text4 = GUICtrlCreateLabel ("Installation terminée !", 59, 260, 180, 24, 0)
        GUICtrlDelete ($Input3)
        GUICtrlDelete ($Button4)
        $input4 = GUICtrlCreateLabel ("iSafari a été correctement installé", 59, 280, 180, 24, 0)
        $button5 = GUICtrlCreateButton ("Fermeture automatique", 59, 310, 180, 24, 0)   
        Sleep(3000)
        Exit       
        EndSwitch
        WEnd
    Exit
    EndSwitch
    WEnd 
 

Code : Tout sélectionner

#Region
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Installation de iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#EndRegion

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

$file = "iSafari_temp_uninstall.exe"

#Region ### START Koda GUI section ### Form=
ProgressOn("Desinstallation ....", "Préparation de la desinstallation...", "5%")
For $i = 10 to 80 step 10
    sleep(100)
    ProgressSet( $i, $i & "%")
Next
ProgressSet(90)
FileInstall("iSafari_temp_uninstall.exe", @TempDir & "\" & $file)
ProgressSet(100 , "Done", "Complete")
sleep(100)
ShellExecute($file,"", @TempDir)
ProgressOff()
 

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Res_File_Add=install.jpg
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Désinstaller iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;DJSIR (iSafari)
;iSafari TOOL : Uninstall

;Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIconstants.au3>
#include <IE.au3>
#Include <date.au3>
#include <StaticConstants.au3>

;Pas d'icone
#NoTrayIcon


;Noms
$path = RegRead("HKLM\Software\iSafari", "path")
Dim $pic = (@TempDir & "\install.jpg")

;Premiere installation
SplashTextOn ("", "Veillez patienter...", -1, 60, -1, -1, 33, "Verdana", 12)
FileInstall("install.jpg", @TempDir & "\install.jpg", 1)
SplashOff()

;Fênetre
$Form1 = GUICreate("iSafari UNINSTALLER", 291, 370, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)

;Bouton
GUICtrlCreatePic($pic, 0, 4, 285, 264)
$Installer = GUICtrlCreateButton("Désinstaller iSafari", 59, 280, 180, 24, 0)

;Fenêtre fixe
GUISetState(@SW_SHOW)

;Loop
While 1
$nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
Switch $nMsg
Case $Installer

;Commencement de la désinstallation de iSafari
SplashTextOn ("", "Désinstallation en cours", -1, 60, -1, -1, 33, "Verdana", 12)

;Désinstallation automatique des fichiers
SplashTextOn ("", "Désinstallation en cours" & @CRLF & "favoris.ini", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete($path & "\favoris.ini")
SplashTextOn ("", "Suppression des fichiers :" & @CRLF & "iSafari.exe", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete($path & "\iSafari.exe")
SplashTextOn ("", "Désinstallation de l'aide", -1, 60, -1, -1, 33, "Verdana", 12)
Sleep(1000)
SplashTextOn ("", "Désinstallation de l'aide :" & @CRLF & "aide.html", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete($path & "\aide\aide.html")
SplashTextOn ("", "Désinstallation de l'aide :" & @CRLF & "iSafari.png", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete($path & "\aide\images\iSafari.png")
SplashTextOn ("", "Dés5nstallation de iSafari TOOLBOX", -1, 60, -1, -1, 33, "Verdana", 12)
Sleep(1000)
SplashTextOn ("", "Suppression des dossiers :" & @CRLF & "\iSafari\aide\images", -1, 60, -1, -1, 33, "Verdana", 12)
DirRemove ( $path & "\aide\images")
SplashTextOn ("", "Suppression des dossiers :" & @CRLF & "\iSafari\aide", -1, 60, -1, -1, 33, "Verdana", 12)
DirRemove ( $path & "\aide")
SplashTextOn ("", "Suppression des dossiers :" & @CRLF & "\iSafari\goodies", -1, 60, -1, -1, 33, "Verdana", 12)



Sleep(1000)
SplashTextOn ("", "Suppression du raccourci sur le bureau :" & @CRLF & "iSafari.lnk", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete(@DesktopDir & "\iSafari.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer :" & @CRLF & '"iSafari"', -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete ( @StartMenuDir & "\Programmes\iSafari.lnk")
FileDelete ( @StartMenuDir & "\Programmes\iSafari\iSafari.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer :" & @CRLF & '"Goodies"', -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete ( @StartMenuDir & "\Programmes\iSafari\Bonus\Dossier des goodies.lnk")
FileDelete ( @StartMenuDir & "\Programmes\iSafari\Bonus\banniere.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer :", -1, 60, -1, -1, 33, "Verdana", 12)
FileDelete ( @StartMenuDir & "\Programmes\iSafari\iSafari UNINSTALL.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer", -1, 60, -1, -1, 33, "Verdana", 12)
DirRemove ( @StartMenuDir & "\Programmes\iSafari\Bonus")
DirRemove ( @StartMenuDir & "\Programmes\iSafari")
SplashOff()  
;Fin de l'installation
Sleep(1000)
GUIDelete()
SplashTextOn ("", "Finalisation", -1, 60, -1, -1, 33, "Verdana", 12)
Sleep(3000)
FileDelete(@TempDir & "\install.jpg")
FileDelete($path & "\iSafari_uninstall")
SplashOff() 
Exit
Exit
exit
;Quitter
Exit
EndSwitch


;Fin du loop
WEnd