Code: Select all
;- modified = 20181231/2
;- created = 20181231
;- ActiveX example for videolan (vlc.exe)
;- Play Youtube-Video ( if allowed to embed )
;------------------------------------------------------
setworkingdir,%a_scriptdir%
Filename1=VLCPlugin_Youtube-Play ;- only videos allowed for embed
Gui,2:default
Gui,2:-border
GUI,2:Font,s14 cGray,Lucida Console
Gui,2: -DPIScale
Gui,2: Color, Black,Black
;id1=iCKMzrPy4t4;aquela janela virada pro mar
;id1=_b9R_x_imBM;ROMANIA Drumul Transfăgărășan
;id1=9KrYzzpHgrY;Dia da espiga / A Rua dos Meus Ciúmes - Anabela
id1=sraZaL6jylM;Lilian de Celis-El Relicario
stringsplit,c,id1,`;
F1=https://www.youtube.com/watch?v=%c1%
fp:="https://i.imgur.com/QiLP9qz.jpg"
pict=%a_scriptdir%\relicario_text.jpg
ifnotexist,%pict%
urldownloadtofile,%fp%,%pict%
wa:=A_screenwidth
ha:=A_screenHeight
xx:=101
LW :=(wa*88) /xx
LH :=(ha*88) /xx
wm :=(wa*88.7) /xx
hm :=(ha*90) /xx
GW :=(wa*99.5) /xx
GH :=(ha*96) /xx
x1 :=(wa*1.5) /xx
y1 :=(ha*2) /xx
x2 :=(wa*1.2) /xx
y2 :=(ha*1) /xx
vlc1 =%A_programfiles%\VideoLAN\VLC\vlc.exe ;- check path for vlc.exe
;xxa=Shell.Explorer ;- IExplorer
;xxa=Mozilla.Browser ;- Mozilla Firefox
xxb=VideoLAN.VLCPlugin.2
;-- picture --
xp:=(wa*90.3)/xx
yp:=(ha* 1.8)/xx
wp:=(wa* 8.4)/xx
hp:=(ha*88.9)/xx
ifexist,%vlc1%
{
Gui,2:Add,ActiveX, x%x1% y%y1% w%lw% h%lh% vVlcx,%xxb%
Gui,2:Add,Picture, x%xp% y%yp% w%wp% h%hp% ,%pict%
Gui,2:add,GroupBox,x%x2% y%y2% w%WM% h%HM%
}
else
{
;- check path from vlc.exe
msgbox,NOT EXIST ( or maybe check path)`n%vlc1%
exitapp
}
y:=(ha*92) /xx
Gui,2:Add,Text,x%x2% y%y% , %c2% ( use ESC to quit )
Gui,2:Show,x0 y0 w%gw% h%gh%,%filename1%
vlcx.playlist.add(F1,"","""""")
vlcx.playlist.next()
return
2Guiclose:
exitapp
esc::exitapp
;============ END script Youtube PLAY =====================================