Youtube_Play ActiveX videolan

Esta sección es para compartir scripts, librerías y herramientas.
garry
Posts: 1624
Joined: 22 Dec 2013, 12:50

Youtube_Play ActiveX videolan

31 Dec 2018, 15:22

;- ActiveX example for videolan (vlc.exe)
;- Play Youtube-Video ( if allowed to embed )

Image

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 =====================================

Return to “Scripts y Funciones”

Who is online

Users browsing this forum: No registered users and 1 guest