Использую WMPLayer.ocx для воспроизведения интернет-радио.
Не получается сделать непрерывное изменение громкости, т.е. тянешь слайдер громкость меняется.
Пробовал через GUIRegisterMsg отсюда, меняется 1 раз и больше не работает.
Не получается сделать непрерывное изменение громкости, т.е. тянешь слайдер громкость меняется.
Код:
$oWMP = ObjCreate("WMPLayer.ocx")
$oWMP.Settings.Volume = 100
$oWMP.URL = "http://lr-fm.com:8000/ambient192mp3"
$oWMP.play()
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 110, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Slider1 = GUICtrlCreateSlider(8, 8, 30, 93, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_VERT,$TBS_BOTH,$TBS_NOTICKS,$TBS_ENABLESELRANGE))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
$oWMP.Settings.Volume = GUICtrlRead($Slider1)
EndSwitch
WEnd
Пробовал через GUIRegisterMsg отсюда, меняется 1 раз и больше не работает.
Код:
$oWMP = ObjCreate("WMPLayer.ocx")
$oWMP.Settings.Volume = 100
$oWMP.URL = "http://lr-fm.com:8000/ambient192mp3"
$oWMP.play()
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 110, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Slider1 = GUICtrlCreateSlider(8, 8, 30, 93, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_VERT,$TBS_BOTH,$TBS_NOTICKS,$TBS_ENABLESELRANGE))
$Vertical_Label = GUICtrlCreateLabel("100",50, 0, 50, 16)
GUIRegisterMsg($WM_VSCROLL, "WM_HVSCROLL")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Case $Slider1
;$oWMP.Settings.Volume = GUICtrlRead($Slider1)
EndSwitch
WEnd
Func WM_HVSCROLL($hWndGUI, $MsgID, $WParam, $LParam)
Switch $LParam
Case GUICtrlGetHandle($Slider1)
GUICtrlSetData($Vertical_Label, 100-GUICtrlRead($Slider1))
$oWMP.Settings.Volume = GUICtrlSetData($Vertical_Label, 100-GUICtrlRead($Slider1))
EndSwitch
EndFunc
И маленькая хотелка.:
Тянешь вниз - громкость уменьшается.
Тянешь вверх - громкость увеличивается.
Тянешь вниз - громкость уменьшается.
Тянешь вверх - громкость увеличивается.