[总结]163相册下载(2007.3.11更新)

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

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

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

引用

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

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

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

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

贴一个自己写的下载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

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

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

这样啊……签名还是会留意的，但一般不可能每次都去注意你的签名，而且你的签名内容太多，重点不突出，什么时候做过修改很难察觉啊-_-b，另外就是那几个字是蓝色的，我选用的是黑色风格，蓝色最容易被忽视orz

引用

最初由 shippou2003 发布


我在我的签名里放了至少2个星期了，这个搜索的网址

还有一些人来问我相册密码，我明明放在签名里了

话说签名这么不明显么？

偶通常沒開簽名[/KH]