Jump to content

GUI script .mp4 repeat command problem


Recommended Posts

  • Replies 53
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Posted Images

@Belini You did it. This one is working with video on my Windows 10 computer. Thank you very much. Please take a look at de final script i would like to use. It is for installing installations. But I am going to play with your latest script now and will let you know tomorow if I could manage it to make a complete good script that I want to use

Thank you very much. You are super.

Link to post
Share on other sites

Please refer to my zPlayer for full implementation of a media player.
 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

HotKeySet("{esc}", "quit")

Global $videoWidth = 600, $videoHeight = 200
Global $videoGUI = GUICreate("Example", $videoWidth, $videoHeight, -1, -1, $WS_CLIPCHILDREN)
Global $oIE = CreateWMPlayer()
GUISetState (@SW_SHOW, $videoGUI)
Global $oPlayer = _IEGetObjById($oIE, "objWMPlayer")
Global $videoFile = "Put the full path of your video file here"
$oPlayer.URL = $videoFile

While 1
    If $oPlayer.playState <> 3 Then
        $oPlayer.Controls.Play
    EndIf
    Sleep(5)
WEnd

Func quit()
    $oPlayer.Controls.Stop
    Exit
EndFunc

Func CreateWMPlayer()
    Local $myIE_Obj = _IECreateEmbedded ()
    $IEControl = GUICtrlCreateObj($myIE_Obj, 0, 0, $videoWidth, $videoHeight)
    GUICtrlSetResizing($IEControl, 1)
    _IENavigate($myIE_Obj, "about:blank")
    Local $htmlWMP = '' _
        & @CR & '<body style="margin:0; padding:0">' _
        & @CR & '<OBJECT' _
        & @CR & 'ID="objWMPlayer"' _
        & @CR & 'WIDTH="' & $videoWidth & '"' _
        & @CR & 'HEIGHT="' & $videoHeight & '"' _
        & @CR & 'CLASSID="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6"' _
        & @CR & 'TYPE="application/x-ms-wmp">' _
        & @CR & '<PARAM NAME="enableContextMenu" VALUE="true">' _
        & @CR & '<PARAM NAME="enableFullScreenControls" VALUE="true">' _
        & @CR & '<PARAM NAME="stretchToFit" VALUE="true">' _
        & @CR & '<PARAM NAME="uiMode" VALUE="none">' _
        & @CR & '</OBJECT>' _
        & @CR & '</body>'
    _IEDocWriteHTML ($myIE_Obj, $htmlWMP)
    ; Change uiMode value to "full" if you want to show contorls in video window
    _IEAction ($myIE_Obj, "refresh")
    $myIE_Obj.document.body.scroll = "no"
    $myIE_Obj.document.body.style.borderColor = "#000000"
    Return $myIE_Obj
EndFunc

 

Edited by CYCho
Link to post
Share on other sites

@Belini and @NineI have compiled a working script.

I learned a lot from your script and with some strugling and comparing with other scripts, I finaly fixed it to make a good working script.

It is exactly as I wanted it, with repeating in it. It only need the "wmp.au3" attached in same scriptdirectory. See my attachment.

Thank you very much for your help. I really apreciate it. 

 

You can test my files with the mp4 file that I had attached in my first post. No need to install extra codecs for it. Works with Windows 10.

wmp.au3

Total working script mp4 Forum.au3

Edited by Kajoe
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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...