大家试过用Perl登陆CU吗？

engrol

我写了一段代码，无法登录，不知道哪里出了问题，大家看看：

1. 
   
2. #!/usr/bin/perl
   
3. use HTTP::Cookies;
   
4. use LWP::UserAgent;
   
5. use HTTP::Request::Common qw(POST);
   
6. my  (%form, $resp);
   
7. my  $cookie_jar = HTTP::Cookies->new;
   
8. my $ua  = LWP::UserAgent->new;
   
9. my $url = "http://www.chinaunix.net";
   
10. $ua->cookie_jar($cookie_jar);
    
11. $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
    
12. $ua->timeout(30);
    
13. $form{"login_name"}  = "xxxxxx";
    
14. $form{"password"}    = "xxxxxx";
    
15. $form{"furmcookie"}  = "1";
    
16. $form{"return_url"}  = "http://bbs.chinaunix.net/logging.php?action=login&loginsubmit=1
    
17.     &referer=http%3A%2F%2Fbbs.chinaunix.net%2Fviewthread.php%3Ftid%3D1648295%26pid%3D11747876
    
18.     %26page%3D2%26extra%3Dpage%253D1";
    
19. $resp = $ua->post($url, \%form);
    
20. if($resp->is_success())
    
21. {
    
22.    print $resp->content;
    
23. }
    
24. else
    
25. {
    
26.    print $resp->status_line();
    
27. }
    
28. exit(0);
    

复制代码

其中$form{"login_name"}和$form{"password"}应该做相应的修改，$form{"return_url"}的三行要连接成一行。

$resp->content  总是输出游客访问。不知道为什么？

engrol

难道没有一个试过吗？自己顶一下。

兰花仙子

这种问题并不难解决。
用HttpWatch抓包看一下，需要提交什么参数，服务器返回什么响应等。

shang2010

原来用这代码就可以象乌龟一样刷分啊JJ

dugu072_cu

CU的积分不能这么简单就可以刷了吧，记得登录不会增加积分啊~

mwm5

Win32::IE::Mechanize 如果是Windows下，这个比较直接吧

mwm5

刚看到lwp的时候我也是用cu作试验

perlw01f

post没有加入自动跳转吧

engrol

原帖由 perlw01f 于 2010-1-25 17:52 发表
post没有加入自动跳转吧

能否详细说一下？

兰花仙子

原帖由 engrol 于 2010-1-26 19:26 发表


能否详细说一下？

  

$mech->follow_link

见置顶资源。