Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | #Open file (Get-Content F:\power\urls.txt) | %{ #URL Write-Host $_ #Save file in c:\power Set-Location F:\power #Use youtube-dl to download video from Youtube #Youtube-dl is a small command-line program to download videos from YouTube.com and a few more sites. F:\power\youtube-dl.exe $_ > result.txt #Select file in result.txt $result=(Get-Content result.txt) $file=$result -match 'Destination: ' $file=$file.Replace('[download] Destination: ','') $filewithoutspaces=$file.Replace(' ','') $filewithoutext=$filewithoutspaces.replace('.mp4','.mp3') #Rename file and replace spaces Rename-Item $file $filewithoutspaces #Extract images #FFmpeg complete, cross-platform solution to record, convert and stream audio and video. #Example ffmpeg.exe -i $filewithoutspaces -r 1 -s 4cif -f image2 $jpg-%3d.jpeg #4cif options stands for the frame size 704x576. There are a variety of options that you can use. # #sqcif 128x96 qcif 176x144 cif 352x288 #4cif 704x576 qqvga 160x120 qvga 320x240 #vga 640x480 svga 800x600 xga 1024x768 #uxga 1600x1200 qxga 2048x1536 sxga 1280x1024 #qsxga 2560x2048 hsxga 5120x4096 wvga 852x480 #wxga 1366x768 wsxga 1600x1024 wuxga 1920x1200 #woxga 2560x1600 wqsxga 3200x2048 wquxga 3840x2400 #whsxga 6400x4096 whuxga 7680x4800 cga 320x200 #hd480 852x480 hd720 1280x720 hd1080 1920x1080 mkdir $filewithoutext $jpg='$filewithoutext\imagen' F:\power\ffmpeg\bin\ffmpeg.exe -i $filewithoutspaces -r 1 -s sqcif -f image2 $jpg-%3d.jpeg foreach ($im in (ls $filewithoutext)){ #Call function convert JPEG to HTML convert $im.FullName } } #Function convert JPEG to HTML function convert{ Param($im) $im $Cave = [System.Drawing.Bitmap]::FromFile($im) $i=0 $uu='' for ($x = 0;$x -lt $Cave.Height;$x+=1) { for ($y = 0;$y -lt $Cave.Width;$y+=1) { if ($i -lt $Cave.Width -1) { $com='<font size=''2'' color=''' + ($Cave.GetPixel($y,$x).name).substring(2,6) + '''>█</font>' $uu=$uu+$com $i=$i+1 } else { $uu=$uu+ '<br>' $i=0 $a=0 } } } $uu | Out-File $im.replace('.jpeg','.html') -Append } |