Sign in to follow this  
Followers 0
mesale0077

mediaplayer loop info

1 post in this topic

hi

mediaplayer loop info

$loop =? playCount

;if $loop>3 then exit

GUICtrlSetData($Input1,$loop) loop info ;exam ,1 ,2,3

thank you now

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
$moviee="a.mp3"
$gui = GUICreate("mp3 player",256, 283, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
$Input1 = GUICtrlCreateInput("0", 16, 253, 92, 25)
Global $oRP = ObjCreate("WMPlayer.OCX.7")

If Not IsObj($oRP) Then; check component
    MsgBox(48,"ERROR...","object failed")
    Exit
EndIf
Global $GUIActiveX  = GUICtrlCreateObj( $oRP, 7, 7 , 300 , 300 )
Global $oRPEvt = ObjEvent($oRP,"MediaPlayer_")
GUISetState(@SW_SHOW)
With $oRP
   .settings.autostart = True
   .settings.playCount = 3
    .fullScreen = True
    .windowlessVideo = True
    .stretchToFit = True
    .URL =  $moviee
    .enableContextMenu = False
    ;.enabled = False
    .Controls.currentPosition = 0;
    If .controls.isAvailable("fastForward") Then .controls.fastForward
    If .controls.isAvailable("fastReverse") Then .controls.fastReverse
    .Controls.Play ;/ pause and Stop
 
    .uiMode = "Full"; none / mini full

   
    .settings.mute = False
    .settings.volume = 50; 0 - 100
    .settings.Balance = 0; -100 to 100

EndWith
While 1
if $loop>3  then exit
  GUICtrlSetData($Input1,$loop)

        $msg = GUIGetMsg()
        Select
    Case $msg = -3
                Exit
 

   
   EndSelect
    WEnd

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0