Il giorno Tue, 30 Mar 2021 13:25:23 -0700 (PDT), claudio Paoletti
Post by claudio PaolettiAllora io ho aperto una directory a mio nome inserendoci questo https---youtube-dl.org-
Ora come faccio ad aprire dentro questa directory "una finestra di comandi" non so neanche
cosa sia ....conosco il command.com, che ti apre la vecchia finestra del DOS di una volta..dici quella?
E se è quella la posso aprire da start (o c'è un altro modo)...come apro questa santa finestra di comandi?
Sono certo che piano piano mi ci fai arrivare, poi puoi anche mandarmici !
Cmq a prescindere un grazie sin d'ora !
Youtube-dl ha un sacco di opzioni:
https://www.ostechnix.com/youtube-dl-tutorial-with-examples-for-beginners/
può darsi che richieda anche LIBAV e FFMPEG a seconda di quello che vuoi
scaricare, basta mettere i files nella stessa directory.
http://ffmpeg.zeranoe.com/builds/
http://builds.libav.org/windows/release-gpl/
Io mi sono fatto uno script in Vbs per usarlo più velocemente.
In pratica apri un editor, Notepad va bene, ci copi il testo qui sotto tra le
lineee, modifichi la locazione nella prima linea e poi lo salvi come
'Youtube-dl.vbs.'
Per usarlo ti basta avere nella clipboard l'indirizzo che vuoi scaricare e
cliccare sopra il .vbs o un suo collegamento.
Funziona con molti siti, ad esempio con i filmati su FaceBook.
Ho lasciato anche le altre opzioni di scaricamento che ho usato, ti basta
togliere il commento ' all'inizio linea per usarle
Youtube-dl.vbs.
________________________________________________________________
YoutubeDL = "D:\Apps\youtube-dl\youtube-dl.exe"
Set oShell = CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
v=""""
'youtube-dl --write-sub --sub-lang en --skip-download URL
'youtube-dl --write-auto-sub --skip-download URL
' youtube-dl.exe -U ' update ( per aggiornare la versione)
If Fso.FileExists(YoutubeDL) Then
Cmnd = v & YoutubeDL & v
Else
MsgBox YoutubeDL & VbCr & "UNFOUND" :Wscript.Quit
End If
Do: Set objHTML = CreateObject("htmlfile")
Text = objHTML.ParentWindow.ClipboardData.GetData("text")
If Left(Text,4) = "http" Then Exit Do
If MsgBox (Text &" NON È UN LINK" & VbCr &"CONTINUARE ?", VbQuestion or
VboKCancel or VbDefaultButton2, _
WScript.ScriptFullName) = VbCancel Then WScript.Quit
Loop
'SOLO VIDEO
Cmnd = Cmnd &" "& Text
'VIDEO AVI
' Cmnd = Cmnd &" "& Text &" --recode-video avi "
'VIDEO E SOTTOTITOLI SRT
' Cmnd = Cmnd &" --write-auto-sub --convert-subs=srt "& Text
'SOLO SOTTOTITOLI SRT
' Cmnd = Cmnd &" --write-auto-sub --convert-subs=srt --skip-download "& Text
'SOLO AUDIO MP3
' Cmnd = Cmnd &" --extract-audio --audio-format mp3 "
' Cmd = "Cmd /v /c (>> " & LogF &" "& Cmnd & " & exit !errorlevel!)" 'con
file LOG
Cmd = "Cmd /v /k " & Cmnd
' Cmd = "Cmd /v /c " & Cmnd
'MsgBox Cmd
ReturnValue = oShell.Run (Cmd ,1 , True)
' If ReturnValue <0 Then MsgBox ReturnValue,,WScript.ScriptFullName
Wscript.Quit
_____________________________________________
--
ciao
Stefano