AutoIt Français

Code : Tout sélectionner

#include <Sound.au3>
$hFile = "musique.mp3"
$mFile1 = "1.jpg"
$mFile2 = "2.jpg"
$mFile3 = "3.jpg"
$mFile4 = "4.jpg"
$mFile5 = "5.jpg"
$mFile6 = "6.jpg"
$mFile7 = "7.jpg"
$mFile8 = "8.jpg"
$mFile9 = "9.jpg"
;~ $mFile10 = ""
;~ $mFile11 = ""
;~ $mFile12 = ""
;~ $mFile13 = ""
;~ $mFile14 = ""

$sound =_SoundOpen ( $hFile )

;gestion des erreurs
If @error = 2 Then
    MsgBox(0, "Error", "The file does not exist")
    Exit
ElseIf @error = 3 Then
    MsgBox(0, "Error", "The alias was invalid")
    Exit
ElseIf @extended <> 0 Then
    $extended = @extended ;assign because @extended will be set after DllCall
    $stText = DllStructCreate("char[128]")
    $errorstring = DllCall("winmm.dll","short","mciGetErrorStringA","str",$extended,"ptr",DllStructGetPtr($stText),"int",128)
    MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
EndIF


_SoundPlay ( $sound )
While 1
    Sleep(100)
    If _SoundPos($sound, 2) = _SoundLength($sound, 2) Then ExitLoop

SplashImageOn("Boo", $mFile1 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile2 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile3 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile4 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile5 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile6 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile7 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile8 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
SplashImageOn("Boo", $mFile9 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
Sleep(2200)
;~ SplashImageOn("Boo", $mFile10 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
;~ Sleep(2200)
;~ SplashImageOn("Boo", $mFile11 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
;~ Sleep(2200)
;~ SplashImageOn("Boo", $mFile12 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
;~ Sleep(2200)
;~ SplashImageOn("Boo", $mFile13 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
;~ Sleep(2200)
;~ SplashImageOn("Boo", $mFile14 ,@DesktopWidth ,@DesktopHeight , "", "", 1)
;~ Sleep(2200)
SplashOff ()    
    
    
WEnd
_SoundClose($sound)

Code : Tout sélectionner

#include <WindowsConstants.au3>
#include <Sound.au3>
#Include <File.au3>

Opt("OnExitFunc", "Fin")
HotKeySet("{ESC}", "Fin")

; Répertoire des images et des MP3.
$RepMedia = @ScriptDir
Dim $hSound, $Tempo = 5000

$aImg = _FileListToArray($RepMedia, "*.jpg", 1)
$aZik = _FileListToArray($RepMedia, "*.mp3", 1)

_PlayZik()

$hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
$Pic1 = GUICtrlCreatePic("", 0, 0, @DesktopWidth, @DesktopHeight)
GUISetState()

While 1
    ; 4 secondes avant la fin de la musique, on change de musique.
    If _SoundPos($hSound, 2) > _SoundLength($hSound, 2) - 4000 Then _PlayZik()

    ; Affiche une image prise au hazard dans le tableau $aImg
    GUICtrlSetImage($Pic1, $aImg[_Random($aImg[0])])
    Sleep($Tempo)
WEnd

; Joue une musique pris au hazard dans le tableau $aZik
Func _PlayZik()
    $hSound =_SoundOpen ($aZik[_Random($aZik[0])])
    _SoundSeek ($hSound, 0, 0, 2)
    _SoundPlay ($hSound)
EndFunc

; Petite fonction à cause d'un bug de Random (Random(1, 1, 1) => 0 !!!).
Func _Random($ValMax)
    $Res = Random(1, $ValMax, 1)
    If $Res = 0 Then $Res = 1
    Return $Res
EndFunc

Func Fin()
    _SoundClose($hSound)
    Exit 0
EndFunc