Code : Tout sélectionner
#include <GuiConstantsEx.au3>
#include <ProgressConstants.au3>
#include <Timers.au3>
#include <StaticConstants.au3>
Opt("TrayMenuMode",1)
Global $gui, $prog, $label, $th, $show,$timer = ""
Global $hDLL = PluginOpen("vista_vol.dll")
Global $hUserDLL = DllOpen("user32.dll")
$Mp3PlayerGui = GUICreate(" VistaZ V", 150, 300,-1,-1,-1,0x00000080)
GUISetBkColor(0x000000)
$Guipic = GUICtrlCreatePic (@ScriptDir & "\Sound.jpg",0,0,100,300)
$slider = GUICtrlCreateProgress(40, 30, 25, 250,BitOR($PBS_SMOOTH, $PBS_VERTICAL))
GUICtrlSetLimit($slider, 100, 0)
GUICtrlSetData($slider, 50)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
$label = GUICtrlCreateLabel("", 80, 0, 50, 50,0x01, $SS_RIGHT)
GUICtrlSetFont(-1, 20, 600)
GUICtrlSetColor(-1, 0xFFFFFF)
$Butup = GUICtrlCreateButton (" + ", 80, 70, 50,50)
GUICtrlSetFont(-1, 20, 600)
$ButMute = GUICtrlCreateButton ("Muet", 80, 120, 50,50)
GUICtrlSetFont(-1, 12, 600)
$Butdown = GUICtrlCreateButton ("-", 80, 170, 50,50)
GUICtrlSetFont(-1, 20, 600)
$Tname = TrayCreateItem("VistaZ V ")
TrayCreateItem("")
$Trayplus = TrayCreateItem ("+")
TrayCreateItem("")
$Traymute = TrayCreateItem("Muet")
TrayCreateItem("")
$Traymin = TrayCreateItem ("-")
TrayCreateItem("")
$Trayexit = TrayCreateItem("Quitter")
TrayCreateItem("")
$TrayAbout = TrayCreateItem("Sébastien Bauval")
maj_gui(-1)
$ON_MUTE = false
While 1
$msg = GUIGetMsg()
$tmsg = TrayGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE or $tmsg = $Trayexit
_Exit()
Case $msg = $Butup or $tmsg = $Trayplus
change_volume(1)
maj_gui(-1)
Case $msg = $ButMute or $tmsg = $Traymute
if $ON_MUTE then
$ON_MUTE=false
maj_gui(-1) ;
else
$ON_MUTE=true
maj_gui(0)
endif
_VolumeMute()
Case $msg = $Butdown or $msg = $Traymin
change_volume(0)
maj_gui(-1)
EndSelect
WEnd
#cs
change_volume($updown,$opt)
opt = true alors le volume changera suivant la valeur de $updown
opt = false
$updown = 0 : on descend le volume de 1 sinon on augmente de 1
#ce
func change_volume($updown=0,$opt=false)
local $vol
if $opt == true Then
$vol=round($updown)
Elseif $updown == 0 Then
$vol = _GetMasterVolumeScalar_Vista() - 1
Else
$vol = _GetMasterVolumeScalar_Vista() + 1
EndIf
If $vol < 0 Then $vol = 0
If $vol > 100 Then $vol = 100
_SetMasterVolumeScalar_Vista($vol)
EndFunc
#cs
maj_gui_slider($val_vol)
$val_col < 0 alors on met à jour l'interface suivant la vlaeur renvoyer par le plugin
sinon c'est une mise à jour manuel avec la valeur de $val_vol en paramétre
#ce
func maj_gui($val_vol=0)
if $val_vol < 0 then $val_vol= _GetMasterVolumeScalar_Vista()
GUICtrlSetData($slider,round($val_vol))
GUICtrlSetData($label,round($val_vol))
EndFunc
Func _VolumeMute()
Send("{VOLUME_MUTE}")
EndFunc ;==>VolumeMute_Vista
Func _Exit()
PluginClose($hDLL)
DllClose($hUserDLL)
Exit
EndFunc
