[BAT] Batch XvideosDownlod videos

par **Delmar Grande** Sam 15 Juin 2013, 02:46

Bom eu estava sem ter oquê fazer então fiz esse batch para baixar videos do siteXvideos. Twisted Evil

Code:: @echo off mode con:cols=90 lines=12 ::Script criado no masbat v2.0 title -==*==- Batch XvideosPega -==*==- echo Digite ou cole a url do video do Xvideos echo. set /p link=^> : ( echo Dim objHttp, links, sText echo Set objHttp = CreateObject("Msxml2.ServerXMLHTTP"^) echo objHttp.Open "GET", "%link%", False echo. echo objHttp.Send echo sText = objHttp.ResponseText echo path = sText echo titulo = sText echo posA = InStrRev(path, ";flv_url="^)+9 echo posB = InStrRev(path, "&url_bigthumb="^) echo links = Mid(path, posA, posB - posA^) echo links = Replace(links,"%%3D","="^) echo links = Replace(links,"%%3D1","/"^) echo links = Replace(links,"%%3A",":"^) echo links = Replace(links,"%%2F","/"^) echo links = Replace(links,"%%3F","?"^) echo links = Replace(links,"%%26","&"^) echo links = Replace(links,"///","://"^) echo set shell = createobject("wscript.shell"^) echo shell.run links echo Set objHttp = Nothing )>"%tmp%\Xvideo.vbs" ::inicio echo. echo Iniciado Aguarde pode demorar um pouco... "%tmp%\Xvideo.vbs" //nologo echo Finalizado... Del "%tmp%\Xvideo.vbs" ::fim pause>nul