Yashied
18-05-2009, 10:02
У тебя это будет работать? Запусти в SciTE, плагин должен находиться в этой же папке.
$hDLL = PluginOpen("vista_vol.dll")
; ## Get current volume levels
$vol = _GetMasterVolume_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (decibels)" & @CRLF)
$vol = _GetMasterVolumeScalar_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (scalar)" & @CRLF)
; ## Set new volume levels
ConsoleWrite("Set vol to -20db..." & @CRLF)
_SetMasterVolume_Vista(-20)
ConsoleWrite("Set Vol Error: " & @error & @CRLF)
$vol = _GetMasterVolume_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (decibels)" & @CRLF)
ConsoleWrite("Set vol to scalar 30..." & @CRLF)
_SetMasterVolumeScalar_Vista(30)
ConsoleWrite("Set Vol Error: " & @error & @CRLF)
$vol = _GetMasterVolumeScalar_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (scalar)" & @CRLF)
$hDLL = PluginOpen("vista_vol.dll")
; ## Get current volume levels
$vol = _GetMasterVolume_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (decibels)" & @CRLF)
$vol = _GetMasterVolumeScalar_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (scalar)" & @CRLF)
; ## Set new volume levels
ConsoleWrite("Set vol to -20db..." & @CRLF)
_SetMasterVolume_Vista(-20)
ConsoleWrite("Set Vol Error: " & @error & @CRLF)
$vol = _GetMasterVolume_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (decibels)" & @CRLF)
ConsoleWrite("Set vol to scalar 30..." & @CRLF)
_SetMasterVolumeScalar_Vista(30)
ConsoleWrite("Set Vol Error: " & @error & @CRLF)
$vol = _GetMasterVolumeScalar_Vista()
ConsoleWrite("Get Vol Error: " & @error & @CRLF)
ConsoleWrite("Volume: " & $vol & " (scalar)" & @CRLF)