Wmp7 v1.1 - Воспроизведение звука и видео с помощью WMP

#Notrayicon
#include "..\Wmp7.au3"
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>

$oObj = _Wmp7_Create()
	If @Error Then
	MsgBox(16,"Пример Wmp7","Не удалось создать объект Windows Media Player")
	Exit
	EndIF

$sFile = FileOpenDialog ( "Открыть файл звука", "", "Все файлы (*.*)", 1, "" )
If @Error Then Exit

_Wmp7_SetFile($oObj, $sFile)
$sFile = 0



$hWnd = GuiCreate("Пример Wmp7", 500, 325)
$hStatus = GUICtrlCreateEdit ( "", 5, 5, 490, 260, 0x0004+0x1000+0x0800+0x00200000 )

	$bSetVolume = GUICtrlCreateButton("Громкость", 5, 275, 100, 20)
	$bSetCurrentPosition = GUICtrlCreateButton("Перемотка", 110, 275, 100, 20)
	$bSetPlaySpeed = GUICtrlCreateButton("Скорость", 215, 275, 100, 20)

	$bPlay = GUICtrlCreateButton("Воспроизвести", 5, 300, 100, 20)
	$bStop = GUICtrlCreateButton("Стоп", 110, 300, 100, 20)
	$bPause = GUICtrlCreateButton("Пауза", 215, 300, 100, 20)

GUISetState()
AdlibRegister ("_ExampleUpdateInformation", 100)
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $bPause
AdlibUnRegister ("_ExampleUpdateInformation")
_Wmp7_Pause($oObj)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $bStop
AdlibUnRegister ("_ExampleUpdateInformation")
_Wmp7_Stop($oObj)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $bPlay
AdlibUnRegister ("_ExampleUpdateInformation")
_Wmp7_Play($oObj)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $bSetPlaySpeed
AdlibUnRegister ("_ExampleUpdateInformation")
$Data = InputBox ( "Пример Wmp7", "Скорость воспроизведения (1=нормальная):", _Wmp7_GetPlaySpeed($oObj), "", 300, 120, @DesktopWidth/2-300/2, @DesktopHeight/2-120/2, 0, $hWnd )
If not @Error Then _Wmp7_SetPlaySpeed($oObj, $Data)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $bSetCurrentPosition
AdlibUnRegister ("_ExampleUpdateInformation")
$Data = InputBox ( "Пример Wmp7", "Перемотать до позиции (в секундах):", _Wmp7_GetCurrentPosition($oObj), "", 300, 120, @DesktopWidth/2-300/2, @DesktopHeight/2-120/2, 0, $hWnd )
If not @Error Then _Wmp7_SetCurrentPosition($oObj, $Data)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $bSetVolume
AdlibUnRegister ("_ExampleUpdateInformation")
$Data = InputBox ( "Пример Wmp7", "Громкость воспроизведения:", _Wmp7_GetVolume($oObj), "", 300, 120, @DesktopWidth/2-300/2, @DesktopHeight/2-120/2, 0, $hWnd )
If not @Error Then _Wmp7_SetVolume($oObj, $Data)
If @Error Then MsgBox(48,"Пример Wmp7","Ошибка, код: "&@Error)
AdlibRegister ("_ExampleUpdateInformation", 100)

		Case $msg = $GUI_EVENT_CLOSE
exit
	EndSelect
WEnd