AutoIt Français

Code : Tout sélectionner

#Region Variables

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

Nom du script : start.au3
Principe : Permet de lancer la suite logicielle Aperture avec un ou plusiuers paramètres.
Auteur : DJSIR

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

#AutoIt3Wrapper_icon=framakey.ico
#AutoIt3Wrapper_outfile=start.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Cette application permet de lancer la suite logicielle Aperture avec plusieurs paramètres.
#AutoIt3Wrapper_Res_Description=Aperture Launcher
#AutoIt3Wrapper_Res_Fileversion=0.0.0.12
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include "GuiCtrlSetOnHover_UDF.au3"
#include <GUIConstants.au3>
#include <IE.au3>

#EndRegion Variables



SplashImageOn("",@ScriptDir & "\Framakey\splash.jpg",360,240,-1, -1,1)
Sleep(1500)
SplashOff()
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
$Form1 = GUICreate("Aperture", 501, 501)

$openracine = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openracine.jpg", 8, 8, 233, 121)
_GUICtrl_SetOnHover($openracine, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openracine, "Windows Explorer")

$openkiosk = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openkiosk.jpg", 256, 8, 233, 121)
_GUICtrl_SetOnHover($openkiosk, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openkiosk, "Framakiosk")

Dim $InetActive = Ping("www.google.com")
If Not $InetActive > 0 Then
$openamsn_off = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openamsn_off.jpg", 8, 173, 233, 121)
GUICtrlSetTip($openamsn, "aMSN")
Else
$openamsn = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openamsn.jpg", 8, 173, 233, 121)
_GUICtrl_SetOnHover($openamsn, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openamsn, "aMSN")
EndIf

$opendata = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/opendata.jpg", 256, 173, 233, 121)
_GUICtrl_SetOnHover($opendata, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($opendata, "Windows Explorer")

$hAvi1 = GUICtrlCreateAvi ( "video.dll", "VIDEO1", 8, 344, 481, 145)  ; Mise en place élément AVI

;GUICtrlCreatePic("Apps/Aperture_Apps/ressources/aperturelogo.jpg", 8, 344, 481, 145)
GUICtrlCreateLabel("Ouvrir la racine de la clé Aperture", 8, 136, 161, 17)
GUICtrlCreateLabel("Ouvrir le Framakiosk et le Framalauncher", 256, 136, 216, 17)
GUICtrlCreateLabel("Lancer aMSN", 8, 302, 68, 17)
GUICtrlCreateLabel("Ouvrir le dossier des documents", 256, 302, 154, 17)
GUISetState(@SW_SHOW)

GUICtrlSetState($hAvi1, 1)  ; Activation de l'animation de l'élément AVI

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $openracine
Run("explorer " & @ScriptDir)   
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $openkiosk
Run("startfk.exe")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $openamsn
Run(@ScriptDir & "\Apps\PortableaMSN\PortableaMSN.exe")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $opendata
Run("explorer " & @ScriptDir & "Data")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
EndSwitch
WEnd

#Region Fonctions
Func _Hover_Func($iCtrlID, $iParam)
$iopenracine = $openracine
$iopenkiosk = $openkiosk
$iopenamsn = $openamsn
$iopendata = $opendata
Switch $iCtrlID
Case $openracine
GUICtrlSetImage($iopenracine,"Apps/Aperture_Apps/ressources/openracine_hover.jpg")
Case $openkiosk
GUICtrlSetImage($iopenkiosk,"Apps/Aperture_Apps/ressources/openkiosk_hover.jpg")
Case $opendata
GUICtrlSetImage($iopendata,"Apps/Aperture_Apps/ressources/opendata_hover.jpg")
Case $openamsn
GUICtrlSetImage($iopenamsn,"Apps/Aperture_Apps/ressources/openamsn_hover.jpg")
EndSwitch

If $iParam = 2 Then
GUICtrlSetImage($openracine, "Apps/Aperture_Apps/ressources/openracine.jpg")
GUICtrlSetImage($openkiosk, "Apps/Aperture_Apps/ressources/openkiosk.jpg")
GUICtrlSetImage($openamsn, "Apps/Aperture_Apps/ressources/openamsn.jpg")
GUICtrlSetImage($opendata, "Apps/Aperture_Apps/ressources/opendata.jpg")
EndIf
EndFunc 


Func _GifSet($s_gif, ByRef $pwidth, ByRef $pheight)
If FileGetSize($s_gif) > 9 Then
Local $sizes = FileRead($s_gif, 10)
ConsoleWrite("Gif version: " & StringMid($sizes,1,6) & @LF)
$pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
$pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
ConsoleWrite($pwidth & " x " & $pheight & @LF)
EndIf
EndFunc
#EndRegion Fonctions