Accueil > > > ALIAS POUR TELECHARGER UNE VIDEO SUR YOUTUBE (MISE A JOUR V1.1)
 ALIAS POUR TELECHARGER UNE VIDEO SUR YOUTUBE (MISE A JOUR V1.1)
 Information sur la source
 Description
comme le sujet le dit
c'est une alias pour telecharger une video sur YouTube comme vous le voyez sur le screen shot
utilisation:
/youtube <lien video YouTube>
NB: l'alias aide a avoir le lien qui te donne la possibilitée d'avoir le fichier .flv
 Source
- alias youtube {
- if (!$sock(wd)) && ($regex($1,http:\/\/(www|fr)\.youtube\..+\/watch\?(gl=..&..=..&v|v)=[^&]{11}&)) {
- sockopen wd www.youtube.com 80
- sockmark wd $1
- }
- else echo -a * $iif($1,Veuillez vérifier le lien $+(1,$chr(44),0You0,$chr(44),4Tube) spécifié -) Syntax: /youtube <lien video YouTube>
- }
- on *:sockopen:w*:{
- tokenize 47 $sock(*).mark
- sockwrite -n $sockname GET / $+ $3 HTTP/1.1
- sockwrite -n $sockname Host: $2
- sockwrite -n $sockname Connection: close
- sockwrite -n $sockname $crlf
- }
- on *:sockread:wd:{
- var %code | sockread %code
- if ($regex(%code,(video_id=[^&]+&).+(t=\S+%3D)&.+title=(.+)';)) {
- echo -a 1,0You0,4Tube 1,0- Vidéo trouvé... titre: $regml(3)
- var %web $+(http://www.youtube.com/get_video?,$regml(1),$regml(2))
- sockclose wd
- sockopen wd2 www.youtube.com 80
- sockmark wd2 %web
- }
- elseif ($regex(%code,Location:\s(http:\/\/www\.youtube\.com/watch\?.+))) {
- sockclose wd
- sockopen wd www.youtube.com 80
- sockmark wd $regml(1)
- }
- elseif ($regex(%code,Location:\s(http:\/\/www\.youtube\.com/index\?.+))) {
- echo 4 -a %code
- echo -a 1,0You0,4Tube 1,0- La vidéo que vous avez demandée n'est pas disponible
- sockclose wd
- }
- }
- on *:sockread:wd2:{
- var %code | sockread %code
- if ((%code == HTTP/1.1 303 See Other) || (%code == HTTP/1.1 302 Found)) set %a 1
- elseif %code == HTTP/1.1 200 OK {
- echo -a 1,0You0,4Tube 1,0- Lien trouvé...
- echo -a 1,0You0,4Tube 1,0- Téléchargement du vidéo en cours...
- url -an $sock(wd2).mark
- sockclose wd2
- unset %a
- }
- elseif %a == 1 {
- if $regex(%code,Location:\s(.+)) {
- sockclose wd2
- unset %a
- tokenize 47 $regml(1)
- sockopen wd2 $2 80
- sockmark wd2 $regml(1)
- }
- }
- }
alias youtube {
if (!$sock(wd)) && ($regex($1,http:\/\/(www|fr)\.youtube\..+\/watch\?(gl=..&..=..&v|v)=[^&]{11}&)) {
sockopen wd www.youtube.com 80
sockmark wd $1
}
else echo -a * $iif($1,Veuillez vérifier le lien $+(1,$chr(44),0You0,$chr(44),4Tube) spécifié -) Syntax: /youtube <lien video YouTube>
}
on *:sockopen:w*:{
tokenize 47 $sock(*).mark
sockwrite -n $sockname GET / $+ $3 HTTP/1.1
sockwrite -n $sockname Host: $2
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:sockread:wd:{
var %code | sockread %code
if ($regex(%code,(video_id=[^&]+&).+(t=\S+%3D)&.+title=(.+)';)) {
echo -a 1,0You0,4Tube 1,0- Vidéo trouvé... titre: $regml(3)
var %web $+(http://www.youtube.com/get_video?,$regml(1),$regml(2))
sockclose wd
sockopen wd2 www.youtube.com 80
sockmark wd2 %web
}
elseif ($regex(%code,Location:\s(http:\/\/www\.youtube\.com/watch\?.+))) {
sockclose wd
sockopen wd www.youtube.com 80
sockmark wd $regml(1)
}
elseif ($regex(%code,Location:\s(http:\/\/www\.youtube\.com/index\?.+))) {
echo 4 -a %code
echo -a 1,0You0,4Tube 1,0- La vidéo que vous avez demandée n'est pas disponible
sockclose wd
}
}
on *:sockread:wd2:{
var %code | sockread %code
if ((%code == HTTP/1.1 303 See Other) || (%code == HTTP/1.1 302 Found)) set %a 1
elseif %code == HTTP/1.1 200 OK {
echo -a 1,0You0,4Tube 1,0- Lien trouvé...
echo -a 1,0You0,4Tube 1,0- Téléchargement du vidéo en cours...
url -an $sock(wd2).mark
sockclose wd2
unset %a
}
elseif %a == 1 {
if $regex(%code,Location:\s(.+)) {
sockclose wd2
unset %a
tokenize 47 $regml(1)
sockopen wd2 $2 80
sockmark wd2 $regml(1)
}
}
}
 Conclusion
mettez le code dans votre remote
NB: il est preferable d'utiliser la version 6.32+
 Historique
- 05 juin 2009 22:32:25 :
- modification de la regex
- 07 juin 2009 15:41:21 :
- modif $gettok
- 18 juin 2009 19:05:48 :
- mise a jour (version 1.1)
- 20 juin 2009 09:43:03 :
- mise a jours
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
CRC sans acces au disk???? :D [ par Ag2X ]
Voilà en fait je veut generer un crc juste avec un contenuj'ai fait un alias:alias crcc { bwrite crcc 0 -1 $1 | set -u %crcc $crc(crcc) | .remove crcc
comment je peux telecharger!! [ par fodhil81 ]
bonjour a vous tous qui pronner la respossabiliter de se site je suis un nauvou par mis vous , jet je me suis demmander de quel façon je dois mèprand
variable globale? coment aire pour qu'une varaible a l'exterieru d'un alias soit connu sd elui ci? [ par retaks666 ]
par exemple:set %variable #channelalias autojoin { //join %variable;erreur, variable n'est pas connue dans l'alias} ______________________
T'as un problème avec un alias ou un remote ?? [ par NeoMorph ]
Alors viens poser tes questions sur #aide.script @ quakenet !! On est la pour t'aider.
Fichier source alias [ par nidala4 ]
Je posséde Teamscript et je voudrais ajouter cet alias pour l'utiliser : http://www.ircfr.com/article.aspx?Val=851Il permet la conversion d'une IP lon
Utilisation d'un source alias [ par nidala4 ]
Je posséde Teamscript et je voudrais ajouter cet alias pour l'utiliser : http://www.ircfr.com/article.aspx?Val=851Il permet la conversion d'une IP lon
Need help! Comment faiton pour telecharger des mp3? [ par loveb52 ]
Comment fait on pour telecharger des mp3s???je connai le server(www.packetnews.com)mai je c pa comment faire ensuite?aidez moi plz@thanks
Need help! Comment faiton pour telecharger des mp3? [ par loveb52 ]
Comment fait on pour telecharger des mp3s???je connai le server(www.packetnews.com)mai je c pa comment faire ensuite?aidez moi plz@thanks
P'tit blem [ par ReMi34 ]
Bonsoir tout le monde :)J'ai un petit probleme (vous l'aurez deviné) avec un tit script que j'ai fais, qui n'est pas terminé.Voici le code:dialog alia
L'utilisation de $$ [ par Dark-Dragoon ]
En fesant un if par hasard , je me sui apercue que :alias lol { if a isin $1 || b isin $1 { echo -a c } }revenai a fair alias lol { if a isin $1 $$ b
|
Derniers Blogs
 COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
 RE : COULEUR TEXTRE : COULEUR TEXT par WorldDMT
Cliquez pour lire la suite par WorldDMT
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|