mesale0077 Posted August 15, 2012 Share Posted August 15, 2012 hi mediaplayer loop info $loop =? playCount ;if $loop>3 then exit GUICtrlSetData($Input1,$loop) loop info ;exam ,1 ,2,3 thank you now expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now