#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.0
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Global $oPlayer1 = ObjCreate("WMPlayer.OCX")
$File_Sound="c:\sounds\Test.mp3"
WMLoadFile($oPlayer1, $File_Sound)
WMSetVolume($oPlayer1, 50)
$Balanceval = -10000
While 1
   sleep(1)
   WMSetBalance($oPlayer1, $Balanceval)
   $Balanceval+=10
   ConsoleWrite("Balance: "& $Balanceval&@CRLF)
   if $Balanceval>10000 then Exit
WEnd
Exit

; some functions
Func WMLoadFile($wm_obj, $sFilename)
    $wm_obj.url = $sFilename
EndFunc   ;==>WMLoadFile

Func WMSetVolume($wm_obj, $iVol)
    ;iVol can be between 0 and 100
    $wm_obj.settings.volume = $iVol
 EndFunc   ;==>WMSetVolume


Func WMSetBalance($wm_obj, $iBal)
	$wm_obj.settings.balance = $iBal
EndFunc