Sign in to follow this  
Followers 0
DesireDenied

_IECreateEmbedded() + YouTube Player object

2 posts in this topic

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

$HTML = '<body style="margin: 0px; padding: 0px;"><object style="height: 100%; width: 100%; margin: 0px; padding: 0px;">' & _
        '<param name="movie" value="http://www.youtube.com/v/hVkhS9YKVbQ?version=3"><param name="allowFullScreen" value="true">' & _
        '<param name="allowScriptAccess" value="always"><embed src="http://www.youtube.com/v/hVkhS9YKVbQ?version=3" ' & _
        'type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="100%" height="100%"></object></body>'


$oIE  = _IECreateEmbedded()


$Form1 = GUICreate("Test", 624, 464, 192, 124)
$ActiveX = GUICtrlCreateObj($oIE,0,0,624,464)
GUISetState(@SW_SHOW)

_IENavigate($oIE,"about:blank",1)
_IEBodyWriteHTML($oIE,$HTML)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

is there any chance to remove vertical slider as well?


Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Try like this Posted Image

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

$HTML = '<body style="margin: 0px; padding: 0px;"><object style="height: 100%; width: 100%; margin: 0px; padding: 0px;">' & _
        '<param name="movie" value="http://www.youtube.com/v/hVkhS9YKVbQ?version=3"><param name="allowFullScreen" value="true">' & _
        '<param name="allowScriptAccess" value="always"><embed src="http://www.youtube.com/v/hVkhS9YKVbQ?version=3" ' & _
        'type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="100%" height="100%"></object></body>'


$oIE  = _IECreateEmbedded()
$Form1 = GUICreate("Test", 624, 464, 192, 124 )
$ActiveX = GUICtrlCreateObj($oIE,0,0,624,464)
_IENavigate($oIE,"about:blank",1)
_IEBodyWriteHTML($oIE,$HTML)
$oIE.document.body.scroll = "no" 
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Edited by wakillon

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

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