[总结]163相册下载(2007.3.11更新)|漫画下载交流区 - 『漫游』酷论坛

『漫游』酷论坛>『动漫主题讨论区』>漫画下载交流区>[总结]163相册下载(2007. ..

Skybow@2006-08-01 09:50

引用
最初由 9616777 发布

用输出到UP163那个功能

舒服又方便..............
还可以一大堆任务一齐上,搞好了放在一边就可以了.......

谢谢补充，我没说清楚，我的意思就是任务要一个一个输出到UP163上，这一点稍嫌烦琐，尤其是大量上传的时候，除非不分卷，一部漫画一个目录，或者结合一些剪贴板软件会稍微方便一点，大概吧^^b

自163GUI从升级到16fix（说起来Toreinita大真是勤奋啊）我就没再用过rufus大的下载方法，现在就算下单卷漫画我也觉得是用163GUI方便，因为rufus大的方法还要调用flashget，还要自建相应目录，还要重命名，用163GUI这些步骤都能省去。

引用

takabe@2006-08-01 11:49

up不能用代理啊
单位上传可以到1-2MB速度，不过up不能用，所以就多开几个163自己的，也还可以……

话说……我自己的，下载和使用量看看记录也还有……为什么没有人来反映bug或者建议呢……不肯能没有bug亚……不过还好是自己做给自己用的……不然真的挺无聊的，哈哈……鼠标拖拽感觉如何呢……

我想做一个上传玩玩，不过还在查资料测试……准备放在在单位用用

引用

ultraxp@2006-08-01 14:40

就是我说的那种在很多相册目录里搜索的功能有没有？

引用

Skybow@2006-08-02 09:34

引用
最初由 takabe 发布
up不能用代理啊
单位上传可以到1-2MB速度，不过up不能用，所以就多开几个163自己的，也还可以……

话说……我自己的，下载和使用量看看记录也还有……为什么没有人来反映bug或者建议呢……不肯能没有bug亚……不过还好是自己做给自己用的……不然真的挺无聊的，哈哈……鼠标拖拽感觉如何呢……

我想做一个上传玩玩，不过还在查资料测试……准备放在在单位用用

普及程度的问题吧，可能多数人还是在用163GUI，比如我^^b

引用

takabe@2006-08-14 11:08

恩，顺便更新一下
希望tortinita不要再改fix*的后缀了，修改帖子麻烦

引用

Kiritsugu@2006-09-02 18:02

贴一个自己写的下载163匿名相册的程序，用perl写的，只提供命令行界面。
如果会perl的话，改起来或者增加功能都会很方便的，想要写图形界面应该也不难。

程序包括2个文件，一个是主程序(simple.pl)，另外的一个是支持
主程序的库Album163.pm。

假如要下载的相册地址是http://photo.163.com/photos/downaly/61372897/
那么运行命令 simple.pl downaly 61372897 就可以了。
文件simple.pl的内容如下:

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use Album163;

my ($uid, $aid) = @ARGV;

unless (defined $uid) {
print "input user name:";
$uid = ;
chomp $uid;
print "user name is '$uid'\n";
}

unless (defined $aid) {
print "input album id:";
$aid = ;
chomp $aid;
print "album id is '$aid'\n";
}

my $a=Album163->new;
#my $num=$a->get_info('galaxyangel', '54569921');
my $num=$a->get_info($uid, $aid);

my $dir=$a->get_album_info("title");
mkdir $dir;

print "will get $num files in '$dir'\n";

foreach (0 .. $num-1) {
$a->save_image($_,$dir) and
print "get part $_ OK\n";
}
1;

# end of file

文件Album163.pm的内容：
# Copyright (C) 2006 reiv@rygh
#
# This library is free software; you can redistribute it and/or modify it under
# the terms of the GNU Library General Public License as published by the Free
# Software Foundation

package Album163;
use strict;
use LWP::UserAgent;
use Encode;

use Data::Dumper;

sub new
{
my $class=shift;

my $uid=shift if @_;
my $aid=shift if @_;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy();

my $self = {
UA => $ua,
ALBUM => undef,
INFO => undef,
};
bless $self,$class;
}

# uid and aid
sub get_info($$)
{
my $self=shift;
my ($uid, $aid)=@_;

my $ua=$self->{UA};
my $re=$ua->get("http://photo.163.com/js/photosinfo.php?user=$uid&aid=$aid");
my $js=encode('utf8',decode('gbk',$re->content));

my @a = split /\r?\n/, $js;
my %album_info;
my @id=();
my @data=();
foreach (@a) {
chomp;
next unless $_;
my $tmp;
# get Album info
if (/var\s+gAlbumInfo\s*=\s*{(.+)}\s*/) {
$tmp=$1;
next unless $tmp;
while ($tmp=~m/\s*'(.+?)':(\"?)(.+?)\2,?/g) {
# print $1," => ",$3,"\n";
my ($key,$val)=($1,$3);
$val=~s/^\s+//;
$val=~s/\s+$//;
$album_info{$key}=$val;
}
} elsif (/var\s+gPhotosIds\s*=\s*\[(.*)\]\s*;/) {
$tmp=$1;
next unless $tmp;
while ($tmp=~m/(\d+),?/g) {
push @id, $1 if $1;
}
} elsif (/var\s+datas\s*=\s*\[(.*)]\s*\;/) {
$tmp=$1;
next unless $tmp;
while ($tmp=~m/\[(.+?),(.+?),\"(.+?)\",\"(.+?)\"\],?/g) {
push @data, [$1, $2, $3, $4];
}
}
}
return if (($#id != $#data) or ($#id == 0));

$self->{ALBUM}=\%album_info;

my @info=();
foreach (0 .. $#id) {
my $sid=$data[$_]->[0];
my $ext=$data[$_]->[1]?"jpg":"gif";
my $pid=$id[$_];
my $url="http://img$sid.photo.163.com/$uid/$aid/$pid.$ext";
push @info, [ $url, @{$data[$_]} ];
}
$self->{INFO}=\@info;

print Dumper(\%album_info);
# print Dumper(\@info);
$#info+1;
}

# 1: the index of image, from 0~max
# 2: the path to save, optional
# 3: the file name to save, optional
sub save_image
{
my $self=shift;
return undef unless defined $self->{INFO};
return undef unless @_;
my $idx=shift;
my $url=$self->get_url($idx) or return 0;

my ($path, $name)=(".", $self->{INFO}[$idx][4]);
$path = shift if @_;
$name = shift if @_;

my $ua=$self->{UA};
$ua->get($url, ":content_file" => $path."/".$name);
}

sub get_album_info($)
{
my $self=shift;
my $key=shift;
$self->{ALBUM}{$key};
}

# get url of image
sub get_url($)
{
my $self=shift;
return unless defined $self->{INFO};
my $idx=shift;
return undef if ($idx<0 or $idx>$#{$self->{INFO}});

$self->{INFO}[$idx][0];
}

1;
# end of file

引用

eakn@2006-09-05 15:03

剛好逛到這貼
也貼一個自己發現的東西給各位作者吧
這和某逆天樓中發現的謎之相簿有關.
[SP]
要從那個相簿要抓東西的話,
只要把抓取位址列表的檔案
h ttp://photo.163.com/js/photosinfo.php?user=使用者&aid=目錄
的最後面加上 &level=2 就可以抓到列表了.
也就是會變成
h ttp://photo.163.com/js/photosinfo.php?user=使用者&aid=目錄&level=2
不過由於那個相簿無法產生相簿列表, 可能要請使用者自行填入目錄的數字代碼.
這個位置是163在看單獨圖的頁面裡所使用的位置.
註: 不過目前我除了那個相簿之外, 還沒看過哪個相簿非用這招不可...
[/SP]

引用

takabe@2006-09-06 11:54

这个问题，貌似我在前一个版本已经添加了，可能没有上传上去？

引用

唯大@2006-09-06 13:30

我用这个下载感觉速度不快的说，汗。
不过感谢，辛苦了。

引用

Skybow@2006-09-12 08:01

搜索真赞，楼主你是救苦救难的观世音菩萨……
可是每次都要输入验证码……抓狂

引用

shippou2003@2006-09-12 08:08