周末项目开发：传说中的灌水机

yuechu

^_^,听懂了听懂了

takelook

3p

takelook

核心代码
贴出上面的3P
做个循环，每30秒贴一次
不关机了，到明天早晨
会不会ban id啊？


$| = 1;   #disable buffer output

use Getopt::Std;
use HTTP::Cookies;
use LWP::UserAgent;
use HTTP::Cookies::Microsoft;
use Win32::TieRegistry(Delimiter => "/");


my %opt;


getopts ('ntics', \%opt)
    or die <<"usage end";


usage: perl perl_pure_pour.pl [options]
where the allowed options are:
        -n new thread
        -t threadid
        -i interval
        -c counts
        -s screen
usage end


  my $cookies_dir = $Registry->{"CUser/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders/Cookies"};
  print $cookies_dir ."\n";  
  $cookie_jar = HTTP::Cookies::Microsoft->new(file => "cookies_dir\\index.dat", 'delayload' => 1,);
  $ua = LWP::UserAgent->new;  
  $ua->agent('Mozilla/5.0');
#  print $ua->agent;
  $ua->cookie_jar($cookie_jar);
  
        my $req = HTTP::Request->new(POST => 'https://highot.us/newreply.php');
  $req->content_type('application/x-www-form-urlencoded');
        $req->content('threadid=193890&parseurl=yes&signature=yes&message=3p&action=postreply');  

  my $res = $ua->request($req);
print $res->as_string;

yuechu

不懂perl,看得俺头晕.还是看成品吧.还有TL怎么被封的id

takelook

俺试的时候也要找个代理，重新申请个ID
总要包装一下的
那还只是个构想，你没有证据怎么能办ID呢
PERL是TMD挺好玩的

takelook

或者用我的ID，我找旦旦斑竹MM的帖子狂追1万贴
真爱无罪，不大好意思办我的ID吧

guodl

Perl不懂，不过3P自动灌水肯定没有问题。以前有一阵子，想抓Amazon上的书的封面和背面图片，网站上不让用右键，当时用VC写了个小程序抓图，还是挺方便的。

希望3P灌水机进行顺利的3P功能。

guodl

最初由 takelook 发布
[B]给你个链接
http://www.aplawrence.com/Unix/perlgetopts.html [/B]

记下了，再多提供几个。

takelook

呵呵
http://www.activestate.com/
http://aspn.activestate.com/ASPN/Reference/
安装完了
直接C:\Perl\html\index.html
Perl有好多module，其实不用编啥
关键是语法表达特殊，总记不住

guodl

呵呵，赞一个！

takelook

应该每天早晨起来就订好拍MP计划
今天就拍1001了
从他闺女开始拍

不在状态

我的问题解决了没有？

takelook

真想学啊
这还有个链接
http://affy.blogspot.com/p5be/

不状，一晚上没关机，我还在边上冲电脑大喊“加油”
可是。。。。悲欢离合总有不变的结局

sock

给我写一个能自动贴图的，贴得我手都软了

最终幻想

还有什么好歌？？

takelook

争取明天交活

最初由 sock 发布
[B]给我写一个能自动贴图的，贴得我手都软了 [/B]

sock

最初由 takelook 发布
[B]争取明天交活 [/B]

先感谢了～～这个东西这么牛，啥都能做到～～

一朵云

最初由 飞起来咬人 发布
[B]同志们，我郁闷 [/B]

morning, morning

takelook

家在东北ape
家在东北320k mp3

家在东北 (视听) 专辑精神主打 寻找东北回忆 东北人都是歌唱家

　　《家在东北》的音乐声未起，庞龙高亢的男声长音先起，接着地气，通着长空，略带些悲苦，又转而激昂。一阵喧腾的唢呐仿佛把人拉到大豆高粱地里，拉到酒缸边，一幅东北的民俗画仿佛就要铺展。但是，强劲的电声吉他却随之而起，配合唢呐声制造着宏大的背景，轰然落地的真鼓像是要敲出大地元神，沉稳的贝斯则如岩石般厚实。最让人兴奋的是，间奏一段飞扬的吉他SOLO，越过森林大地，直冲云霄，似在天地之间召唤英雄。《家在东北》不是简单的民俗展览或对东北民歌的直接照搬，它由东北的民歌素材和现代流行乐的精神共同塑造完成。它的构成是一个流行乐的身体，一颗东北的心，这使它很东北很民族的同时，又具备了很高的流行潜质。

　　全曲最精彩的地方，也是全曲的点睛之笔就是引入最后一段的音乐主题的三句上行小二度的模进，连续转调的三句“我的家在东北”将我们唱得热血沸腾，庞龙那宽广、高亢、底气充盈的歌声传承了东北人精神里的英雄情结，唱出了歌坛稀缺的阳刚血性，让我们每一个听过此歌的人都激动、欣喜不已。

最初由 最终幻想 发布
[B]还有什么好歌？？ [/B]

takelook

它没我能吹牛

最初由 sock 发布
[B]先感谢了～～这个东西这么牛，啥都能做到～～ [/B]