【悬赏】登录论坛的脚本

justqb

我想用perl登录小木虫论坛获取一些只有登录才能查看的页面。

登录页面：
http://emuch.net/bbs/logging.php?action=login
用户名wotest 密码pswt

登录后获取这个页面
http://emuch.net/bbs/memcp.php?action=getcredit
和这个页面
http://emuch.net/bbs/space.php?uid=1843357

能帮我弄好的话，送书一本，50元以内的你挑，我在网上买了直接寄到你那里。

兰花仙子

楼下知道

ecjtubaowp

LZ开的价不错啊。

justqb

自己搞的，不知为什么似乎没提交上去表单。

1. #!perl -w
   
2. use strict;
   
3. use 5.010;
   
4. use Encode;
   
5. use LWP::UserAgent;
   
6. use HTTP::Cookies;
   
7. use LWP::ConnCache;
   
8. 
   
9. open TST, ">:encoding(gb2312)" , "tst.htm";
   
10. my %form;
    
11. $form{"usename"} = "wotest";
    
12. $form{"password"} = "pswt";
    
13. $form{"cookietime"} = "3153600";
    
14. $form{"t"} = "";
    
15. $form{"formhash"} ="";
    
16. $form{"loginsubmit"} ="";
    
17. $form{"referer"} ="";
    
18. 
    
19. my $ua = LWP::UserAgent->new(keep_alive => 1);
    
20.         $ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; MathPlayer 2.20; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.3)');
    
21.         $ua->timeout(10);
    
22.         HTTP::Cookies->new(file=>'cookies.dat',autosave=>1);
    
23.         $ua->default_header( 'Accept-Language' => 'en-US',   'Accept-Charset' => 'utf-8');
    
24. 
    
25. my ($html,);
    
26. 
    
27. my $response = $ua->get('http://emuch.net/bbs/logging.php?action=login' );
    
28. 
    
29. 
    
30. if ($response->is_success) {
    
31. $html = $response->decoded_content;
    
32. }
    
33. 
    
34. $form{"t"} = $1  if $html =~ m{logging.php\?action=login&t=(\d+)}i;
    
35. $form{"formhash"} = $1 if $html =~ m{name="formhash" value="([^"]+)"}i;
    
36. $form{"loginsubmit"} = "会员登录";#"%BB%E1%D4%B1%B5%C7%C2%BC";
    
37. 
    
38. say join "\n" ,map {join " ", $_, $form{$_}} keys %form;
    
39. 
    
40. $response = $ua->post("http://emuch.net/bbs/logging.php?action=login&t=" . $form{"t"} , \%form);
    
41. if ($response->is_success) {
    
42. $html = $response->decoded_content;
    
43. }
    
44. say TST $html;

复制代码

lkk_super

回家看看  应该简单好搞 东西诱人啊。。。。

ziyunfei

1. use strict;
   
2. use LWP::UserAgent;
   
3. my $ua = LWP::UserAgent->new;
   
4. my $response = $ua->get("http://emuch.net/bbs/logging.php?action=login&username=wotest&password=pswt&cookietime=31536000&loginsubmit=%BB%E1%D4%B1%B5%C7%C2%BC");
   
5. #下面这句很重要!!,保存Cookie!!
   
6. $ua->default_header('Cookie' => $response->header("Set-Cookie")=~/(.+?);/);
   
7. print $ua->get("http://emuch.net/bbs/memcp.php?action=getcredit")->decoded_content;
   
8. print $ua->get("http://emuch.net/bbs/space.php?uid=1843357")->decoded_content;

复制代码

楼主,给我买本<<正则指引>>寄到我们公司.谢谢!!

py

回复 4# justqb

抓包看一眼，也就花3，5分钟就知道是差在哪了
   

xfoucs

justqb 发表于 2012-06-01 18:03
自己搞的，不知为什么似乎没提交上去表单。

1. 
   
2. $form{"usename"} = "wotest"; # 应该是username，少了个r
   
3. 
   
4. HTTP::Cookies->new(file=>'cookies.dat',autosave=>1);  #设置下$ua的cookie，$ua->cookie_jar(HTTP::Cookies->new(file=>'cookies.dat',autosave=>1));
   
5. 
   

复制代码

justqb

回复 6# ziyunfei

谢谢，麻烦私信告知地址和姓名，代码这么精炼，能够解释一下您的关键代码。

应该是这本书吧。
http://www.amazon.cn/dp/B007X6O6J0 。

justqb

回复 8# xfoucs


额，太粗心了。 呵呵，谢谢你。

同样的代码，长度差那么多，哎，我真是菜啊。