Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[BAT] Batch XvideosDownlod videos

Voir le sujet précédent Voir le sujet suivant Aller en bas

[BAT] Batch XvideosDownlod videos

Message par Delmar Grande le 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
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum