【悬赏】登录论坛的脚本

justqb

回复 7# py

额，计算机编程，我是个大外行。fidle2抓了ie的包，才搞成这样。
   

ziyunfei

justqb 发表于 2012-06-02 21:59
回复 7# py

额，计算机编程，我是个大外行。fidle2抓了ie的包，才搞成这样。

是fiddler.fiddler是神器.抓包只是它的一个功能

justqb

收到你的短消息，我没有权限发送短消息。

justqb

我的qq：伍7七43陆3幺。麻烦联系一下我。

nsnake_cu

其实这个基本通用，其它论坛改改也能用了
FLW的没有出错处理，只是it works ! 所以用的时候还是要注意一下

mcshell

用HttpWatch分析的。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use HTTP::Request;
   
6. use HTTP::Cookies;
   
7. 
   
8. use LWP::UserAgent;
   
9. 
   
10. my $url         = 'http://emuch.net/bbs/logging.php?action=login';
    
11. 
    
12. # 用来存 cookie
    
13. my $cookie_jar  = HTTP::Cookies->new(
    
14.         file        => "./acookies.lwp",
    
15.         autosave    => 1,
    
16.         );
    
17. 
    
18. # 给处理 cookie 的对象放到 LWP::UserAgent 中来处理 cookie
    
19. # 登陆中
    
20. my $ua      = LWP::UserAgent->new;
    
21. my $cookies = $ua->cookie_jar($cookie_jar);
    
22. #$ua->agent('Mozilla/9 [en] (Centos; Linux)');
    
23. my $res     = $ua->post( $url,
    
24.         [
    
25.             username     => 'wotest',
    
26.             password    => 'pswt',
    
27.             cookietime =>'31536000',
    
28.            loginsubmit => '%BB%E1%D4%B1%B5%C7%C2%BC'
    
29.         ],
    
30.     );
    
31. 
    
32. print $res =$ua->get('http://emuch.net/bbs/memcp.php?action=getcredit')->decoded_content;
    
33. print $res =$ua->get('http://emuch.net/bbs/space.php?uid=1843357')->decoded_content;
    

复制代码

ziyunfei

楼主跑了?我的书呢.舍不得给了?

mysqllog

回复 17# ziyunfei


   
人家要你联系他呢，要不我冒充下你？

“我的qq：伍7七43陆3幺。麻烦联系一下我。”

ziyunfei

mysqllog 发表于 2012-06-09 09:37
回复 17# ziyunfei

justqb

不好意思，最近京东在做活动。
我发现：我买了，再寄给你比较划算。

申通单号：4684203653xx 最后两位同你电话最后两位。 今天寄出。