海浩网论坛

标题: 周末项目开发：传说中的灌水机 [打印本页]

作者: takelook 时间: 2005-3-4 19:51:17 标题: 周末项目开发：传说中的灌水机

perl脚本
纯情灌水1.0版

perl_pure_pour_1.0，还是叫3p算了

功能：
1。刷屏
2。混贴

现在吃饭
然后开发
午夜测试

作者: 一朵云 时间: 2005-3-4 19:52:42

又骗人

作者: takelook 时间: 2005-3-4 19:57:18

她姐夫的

骗你干啥
俺说过的谎比你说的话都多

作者: 温吞吞 时间: 2005-3-4 19:58:24

我说过的话比你说过的慌还多

作者: 樱の小羽 时间: 2005-3-4 20:00:53

最初由温吞吞发布
[B]我说过的话比你说过的慌还多 [/B]

温温.

作者: 樱の小羽 时间: 2005-3-4 20:01:15

最初由一朵云发布
[B]又骗人 [/B]

TL不眨眼.

作者: 一朵云 时间: 2005-3-4 20:01:22

最初由 takelook 发布
[B]
俺说过的谎比你说的话都多 [/B]

比比

作者: 温吞吞 时间: 2005-3-4 20:02:04

最初由樱の小羽发布
[B] 温温. [/B]

亲亲

作者: 一朵云 时间: 2005-3-4 20:02:31

最初由樱の小羽发布
[B]TL不眨眼. [/B]

很久没看小新了，准备这个周末看看。

近两周有什么好看的电影么，打算看电影。

作者: 最终幻想 时间: 2005-3-4 20:22:16

不能刷，要留置顶得～

作者: takelook 时间: 2005-3-4 20:22:40

丁香花

歌手:唐磊

*你说你最爱丁香花
因为你的名字就是它
多么忧郁的花,
多愁善感的人啊,
当花儿枯萎的时候,
当画面定格的时候,
多么娇嫩的花,
却躲不过风吹雨打,
飘啊摇啊的一生,
多少美丽编织的梦啊
就这样匆匆你走啦,
留给我一生牵挂
**那坟前开满鲜花是你多么渴望的美啊,
你看那漫山遍野,你还觉得孤单吗?
你听那有人在唱那首你最爱的歌谣啊,
尘市间多少繁芜,从此不必再牵挂.

院子里栽满丁香花,开满至盛美丽的鲜花,
我在这里陪着她,一生一世守护她

320kmp3下载

ape下载

吃饱喝足，听会儿音乐，喝杯咖啡

作者: takelook 时间: 2005-3-4 20:28:21

那是，对侬阿拉是无比诚实

最初由温吞吞发布
[B]我说过的话比你说过的慌还多 [/B]

作者: takelook 时间: 2005-3-4 20:29:29

少废话
多少钱能把你抱回家？

最初由樱の小羽发布
[B]TL不眨眼. [/B]

作者: takelook 时间: 2005-3-4 20:30:09

00544
44944

最初由一朵云发布
[B]比比 [/B]

作者: 樱の小羽 时间: 2005-3-4 20:34:26

最初由 takelook 发布
[B]少废话
多少钱能把你抱回家？ [/B]

贾不假
白玉为堂金作马
阿房宫
三百里住不下金陵一个史
东海缺少白玉床
龙王来请金陵王
丰年好大"雪"
珍珠如土金如铁

作者: takelook 时间: 2005-3-4 20:37:16

我比他们能吹

最初由樱の小羽发布
[B]贾不假
白玉为堂金作马
阿房宫
三百里住不下金陵一个史
东海缺少白玉床
龙王来请金陵王
丰年好大"雪"
珍珠如土金如铁

[/B]

作者: 一朵云 时间: 2005-3-4 20:44:48

最初由 takelook 发布
[B]
44944 [/B]

44944

谁还怕

作者: 飞起来咬人 时间: 2005-3-4 20:58:54

同志们，我郁闷

作者: takelook 时间: 2005-3-4 21:03:22

给你个链接
http://www.aplawrence.com/Unix/perlgetopts.html

作者: 不在状态 时间: 2005-3-4 21:07:02

我重装了《中世纪》，字体始终是繁体，有办法么

作者: 不在状态 时间: 2005-3-4 21:09:31

T哥，虽然咱学了十几年英语，但……但……

作者: takelook 时间: 2005-3-4 21:09:35

没有简体版吧

繁体不是挺好吗
一看就是上网晚了
成人文学最早都是繁体的

作者: 不在状态 时间: 2005-3-4 21:12:52

那个我能对付，但是我以前都可以看见字体的，现在咋的了？？少了什么插件？

作者: takelook 时间: 2005-3-4 21:14:11

你咋了？
重装机器了？

作者: 不在状态 时间: 2005-3-4 21:17:13

对

作者: 不在状态 时间: 2005-3-4 21:18:29

有办法么，指望你了

作者: takelook 时间: 2005-3-4 21:19:28

有没有什么设置文件啊
什么setting， preference之类的文件名啥的研究研究行不
要不你给我上传，我研究研究

作者: 不在状态 时间: 2005-3-4 21:21:35

汗……

作者: takelook 时间: 2005-3-4 21:31:19

要不我BT一个研究研究
手头没有啊，怎么办

作者: takelook 时间: 2005-3-4 21:45:08

BT上已经都没有了
我现在祭起了骡子在下载呢
2CD啥时候能下载完阿

作者: takelook 时间: 2005-3-4 21:47:56

给你showshow

作者: yuechu 时间: 2005-3-4 22:28:31

TL,丁香花不是用正版压的吧?效果不好啊.

作者: takelook 时间: 2005-3-4 22:46:12

据说是EMULE上流出的版本
我这儿是CDIMAGE
从中提取一首，效果应该还行啊，不是你设备太发烧就是太垃圾

作者: takelook 时间: 2005-3-4 23:13:27

真的还可以啊
这是频谱

作者: yuechu 时间: 2005-3-4 23:17:06

看频谱应该是俺的设备太垃圾.
不过俺听的时候是直接SB声卡接先锋的监听大耳机,东西也不算太差啊.莫非俺的耳朵出了问题?

作者: takelook 时间: 2005-3-4 23:21:56

耳朵也没啥，俺听着爱灿灿也觉得不错了

作者: yuechu 时间: 2005-3-4 23:35:05

TL原来是不是也混短歌行的啊?

作者: takelook 时间: 2005-3-4 23:39:58

刚混了一小下
被俺同学骂了个狗血喷头

下决心学习了一下lame，然后就出了ape
唉，永远是计划赶不上变化

作者: yuechu 时间: 2005-3-4 23:42:00

俺到现在都不太喜欢ape,还是喜欢320vcr啊,情有独钟.估计你也是.320vbr的都不爽.尽管听上去没有什么差别.

作者: takelook 时间: 2005-3-4 23:50:59

给你说件事儿
原来在兰州晚上加班到凌晨3点，零下十多度吧
出门打的回酒店，来了个小面
俺们项目经理只穿了件西装，冻得哧溜哧溜的
跟俺们说，你们先走
俺谦让了半天，Y都不肯，俺当时巨感动
结果这孙子第二天说
“我靠，就不信等不到桑塔纳，花得起钱，丢不起人哪”
弄得我张口结舌

作者: yuechu 时间: 2005-3-4 23:53:58

^_^,听懂了听懂了

作者: takelook 时间: 2005-3-5 00:14:57

3p

作者: takelook 时间: 2005-3-5 00:17:07

核心代码
贴出上面的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 时间: 2005-3-5 00:32:45

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

作者: takelook 时间: 2005-3-5 00:36:01

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

PERL是TMD挺好玩的

作者: takelook 时间: 2005-3-5 00:38:25

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

作者: guodl 时间: 2005-3-5 00:59:20

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

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

作者: guodl 时间: 2005-3-5 01:01:49

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

记下了，再多提供几个。

作者: takelook 时间: 2005-3-5 01:09:00

呵呵
http://www.activestate.com/
http://aspn.activestate.com/ASPN/Reference/
安装完了
直接C:\Perl\html\index.html

Perl有好多module，其实不用编啥
关键是语法表达特殊，总记不住

作者: guodl 时间: 2005-3-5 01:46:11

呵呵，赞一个！

作者: takelook 时间: 2005-3-5 07:53:23

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

作者: 不在状态 时间: 2005-3-5 10:06:46

我的问题解决了没有？

作者: takelook 时间: 2005-3-5 10:14:15

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

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

作者: sock 时间: 2005-3-5 10:15:17

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

作者: 最终幻想 时间: 2005-3-5 10:15:48

还有什么好歌？？

作者: takelook 时间: 2005-3-5 10:17:37

争取明天交活

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

作者: sock 时间: 2005-3-5 10:23:48

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

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

作者: 一朵云 时间: 2005-3-5 10:32:55

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

morning, morning

作者: takelook 时间: 2005-3-5 10:33:08

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

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

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

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

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

作者: takelook 时间: 2005-3-5 10:34:53

它没我能吹牛

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

作者: takelook 时间: 2005-3-5 10:39:53

家在东北

歌手:庞龙专辑:两只蝴蝶

哎…哎…
嘿…嘿哟
我的家在东北
松花江上啊
那里有满山遍野大豆高粱
在那青山绿水旁
门前两棵大白杨
齐整整的篱笆院
一间小草房啊
哎…
我爸爸有事没事
总想喝点酒
就算是没有菜那也得喝二两
大碗茶大碗的酒
左邻右舍在两旁
五魁首六六六
笑声满堂啊
哎…哟
我妈妈从小嗓门就亮啊
每天她喝着山歌去学堂
直唱得老大爷
放下了他的大烟袋
直唱得小伙子
更加思念他姑娘
直唱得老大娘
放下针线听一段
直唱得大姑娘
眼泪汪汪啊
忘记了洗衣裳
哎…哟
music
哎…
我的家在东北
我的家在东北
我的家在东北
松花江上啊
那里有满山遍野大豆高粱
在那青山绿水旁
门前两棵大白杨
齐整整的篱笆院
一间小草房啊
哎…哟
我的家在东北

作者: 一朵云 时间: 2005-3-5 10:47:29

最初由 takelook 发布
[B]家在东北

歌手:庞龙专辑:两只蝴蝶

[/B]

还得自己去找flash

谢谢

作者: takelook 时间: 2005-3-5 10:50:12

不是提供了mp3和ape下载了

最初由一朵云发布
[B]还得自己去找flash 谢谢 [/B]

作者: 樱の小羽 时间: 2005-3-5 11:02:33

东北特产不是黑社会
词曲/演唱:蛟龙

作者: 司空ゼ斩 时间: 2005-3-5 11:03:27

最初由不在状态发布
[B]我重装了《中世纪》，字体始终是繁体，有办法么 [/B]

我装了三国七,光荣出品的.可是全是乱码.要下个啥软件啊?

作者: 一朵云 时间: 2005-3-5 11:06:34

最初由樱の小羽发布
[B]东北特产不是黑社会

X吃捶呜了擂再X吃再捶再呜了再擂 [/B]

这个谁发来我听过的，哈哈。

豆豆早上好。

作者: 樱の小羽 时间: 2005-3-5 11:07:52

最初由一朵云发布
[B] 这个谁发来我听过的，哈哈。

豆豆早上好。 [/B]

俺接你班,中午好.

作者: 一朵云 时间: 2005-3-5 11:07:55

最初由 takelook 发布
[B]不是提供了mp3和ape下载了 [/B]

现在看懂了

作者: 一朵云 时间: 2005-3-5 11:08:27

最初由樱の小羽发布
[B] 俺接你班,中午好. [/B]

早饭没吃吧？

作者: takelook 时间: 2005-3-5 11:09:11

我说樱の小毛（挖靠，不状真伟大，这种名字都想得出来

）
赶紧买件套裙，洒点香水
整点民族的或者西洋的东洋的都行
现在不是玩酷的时候了
离这些流氓的，偶像的，浅薄的远点

;19

最初由樱の小羽发布
[B]东北特产不是黑社会
词曲/演唱:蛟龙
[/B]

作者: 樱の小羽 时间: 2005-3-5 11:10:27

最初由 takelook 发布
[B]我说樱の小毛（挖靠，不状真伟大，这种名字都想得出来）
赶紧买件套裙，洒点香水
整点民族的或者西洋的东洋的都行
现在不是玩酷的时候了
离这些流氓的，偶像的，浅薄的远点;19 [/B]

嗯.删!偶只是提供线索给你.

作者: 樱の小羽 时间: 2005-3-5 11:12:29

扁死不状!!

;%
他找抽!

;PK ;PK ;PK

作者: 一朵云 时间: 2005-3-5 11:19:34

最初由樱の小羽发布
[B]扁死不状!!
他找抽! [/B]

白板借刀杀人

作者: 夏夜星空 时间: 2005-3-5 11:47:48

樱の小毛

挺好的名字

欢迎光临海浩网论坛 (http://bbs.highot.net/)