科学网 › 标签 › LWP

标签: LWP

相关帖子	版块	作者	回复/查看	最后发表

没有相关内容

相关日志

perl的LWP 和linux 的crontab每天自动到小木虫上取金币: autodataming 2013-11-7 09:22; 背景：论坛为了吸引人气，会推出虚拟金币活动，每天登陆可以领取金币，而金币又可以用来获得一些资料。所以我就写了一个自动领取金币的小机器人。方法介绍：我不知道目前的浏览器是否可以调用里面的函数，所以我自己创建了一个虚拟浏览器，这个浏览器必须自带cookie的功能然后构建了一个请求，这个请求包含用户名，密码，以及click的动作，最后通过浏览器向服务器发送请求，并接受服务器的返回的信息然后就取领金币了，领完金币，记录下时间，以及当前金币的数量 crontab -e #编写定时任务，每天2点2分执行这个任务 2 2 * * * /home/xx/emuch.pl /home/xx/log ============================================================================= #!/usr/bin/perl -w use strict; #配合linux 的crontab，每天自动领取金币 use LWP; use HTTP::Request::Common qw( POST ); my $browser=LWP::UserAgent-new( cookie_jar={}); #非常重要 $browser-agent(MyApp/0.1 ); my $username='Z'; my $password='c'; my $req = POST('http://emuch.net/bbs/logging.php?action=logint=1383722643', ); my $res = $browser-request($req); #print $res-code; #http://emuch.net/bbs/memcp.php?action=getcredit #creditsubmit ?????? 37 #formhash bede779d 17 my $request=POST('http://emuch.net/bbs/memcp.php?action=getcredit', ); my $response = $browser-request($request); my @text=split(/\n/,$response-content); system(date); foreach my $line(@text) { if($line=~/金币: (\d+)/) { print $1,\n; last; } }; 个人分类: 奇技淫巧|4092 次阅读|0 个评论

更多...

帐号		自动登录	找回密码
密码			注册

关闭 安全验证

标签: LWP

相关帖子

相关日志

关闭安全验证