nforce17
Administrator
Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów
Pomógł: 4 razy
Ostrzeżeń: 0/5
|
 Wysłany: Wto 23:21, 13 Lip 2010 Temat postu: Wrzuta-Downloader |
|
|
Przez ostatnie nam czasy Wrzuta.pl zmienila linkowanie plikow.
Przez co utrudnila nam sciaganie plikow mp3.
O to skrypt ktory jest przystosowany do pobierania glownego linku do mp3 bysmy mogli ja sciagnac.
| Kod: | # Wrzuta Download
# Ver 0.1 beta
# Komptabile : 13.07.2010
# Autor nforce
use LWP::UserAgent;
print "Witaj w wrzuta downloader\n";
print "Wersja komptabile: 13.07.2010\n";
print "Podaj prosze link do mp3 z wrzuty:\n";
chomp ($url_wrzuta = <STDIN>);
if ($url_wrzuta =~ /http:\/\/(.*)\/audio\/(.*)\//) { $host = $1; $nr_plk = $2; }
my $wrzuta = LWP::UserAgent->new();
$wrzuta->agent('Wrzuta-Download');
my $res = $wrzuta->get('http://wwww.wrzuta.pl');
if ($res->is_success) {
if ($res->as_string =~ /Set-Cookie: SID=(.*); expires/) { $cookie = "SID=". $1 ."\;"; }
}
my $wrzuta_host = LWP::UserAgent->new();
$wrzuta_host->agent('Wrzuta-Download');
$wrzuta_host->default_header('Cookie' => "". $cookie ."");
my $res = $wrzuta_host->get("". $url_wrzuta ."");
if ($res->is_success) {
if ($res->as_string =~ /Set-Cookie: SID=(.*); expires/) { $cookie = "SID=". $1 ."\;"; }
if ($res->as_string =~ /Set-Cookie: uads1=(.*); expires/) { $cookie = "". $cookie ." uads1=". $1 ."\;";}
}
$host = "http://". $host ."/xml/plik/". $nr_plk ."/";
my $wrzuta_d = LWP::UserAgent->new();
$wrzuta_d->agent('Wrzuta-Download');
$wrzuta_d->default_header('Cookie' => "". $cookie ."");
my $res = $wrzuta_d->get("". $host ."");
if ($res->is_success) {
if ($res->as_string =~ /<filename><!\[CDATA\[(.*)\]\]><\/filename>/) { $tytul = $1; }
if ($res->as_string =~ /<fileId><!\[CDATA\[(.*)\]\]><\/fileId>/) { $download_url = $1; }
}
open (wrzut, ">wrzuta_download.txt");
print wrzut "Tytul: ". $tytul ."\nDownload Url: ". $download_url ."";
close (wrzut);
exec("wrzuta_download.txt"); |
W notatniku otrzymamy:
| Cytat: | Tytul: JakisTytul
Download Url: JakisUrl |
i link ktory bedzie zamiast napisu "JakisUrl" kopiujemy i wklejamy do przegladarki 
Download:
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
