建议各位老大下基层体验一下劳苦大众的生活

千里追风

在赚工分的时候，最怕遇到说话不算话的“周扒皮”了 ……

这个随机红包想法好啊！可以给人惊喜，带给别人好心情，期望多多获奖！

管理员连验证码获取都给提供了,有能力的开发一个自动登录器得了

刚刚那个简单的功能中前两个用VBA和容易实现
第三个就超出了现在我的能力范围了

不用登录获取在线用户名单的VBA代码:

2. Sub Macro1()
3.   With Sheets("Data").QueryTables.Add(Connection:= _
4.     "URL;[url]http://www.readfree.net/bbs/index.php[/url]", Destination:=Sheets("Data").Range("A1"))
5.     .Name = "index"
6.     .FieldNames = True
7.     .RowNumbers = False
8.     .FillAdjacentFormulas = False
9.     .PreserveFormatting = True
10.     .RefreshOnFileOpen = False
11.     .BackgroundQuery = True
12.     .RefreshStyle = xlInsertDeleteCells
13.     .SavePassword = False
14.     .SaveData = True
15.     .AdjustColumnWidth = True
16.     .RefreshPeriod = 0
17.     .WebSelectionType = xlSpecifiedTables
18.     .WebFormatting = xlWebFormattingNone
19.     .WebTables = "25"
20.     .WebPreFormattedTextToColumns = True
21.     .WebConsecutiveDelimitersAsOne = True
22.     .WebSingleBlockTextImport = False
23.     .WebDisableDateRecognition = False
24.     .WebDisableRedirections = False
25.     .Refresh BackgroundQuery:=False
26.   End With
27.   Sheets("Data").Range("1:1").Delete (xlUp)
28.   '下面代码是随机部分,感谢oobird@ExcelHome的帮助
29.   Dim c As Range, r%
30.   Set c = Sheets("Data").UsedRange
31.   '抽取5个中奖用户
32.   For i = 1 To 5
33.     r = Int(c.Count * Rnd + 1)
34.     Sheets("中奖").Range("A" & i) = c(r)
35.   Next
36.   Sheets("Data").UsedRange.Delete
37. End Sub

复制代码

桃子

不久的将来，论坛又将掀起一股登录热潮，若干年后，某些会员若能回忆起今天这个帖子，将是多么激动的心情啊……

江南生

支持，但有疑惑：
1每日登录都有，还是特定日子才有？这是个问题。（貌似在小木虫，偶是一个光等红包的懒虫）
2很多版面版主一次能评分的最大权限才5财富。红包1-10财富，多不多？这也是个问题。

wifi

1 多个马甲登录，中奖机会将增大，对其它人来说不公平，怎么解决。
2 现在问题是很多会员还是不错的帖，没有得到赏识，没有得到哪怕几颗豆的评分。

lucy12345678

坚决反对!

wifi

引用第32楼coolman于2008-09-09 10:26发表的 :
规则需要慢慢讨论和修改啊。多个马甲同时登陆则一旦发现中奖，给予处罚就是了。

有的马甲不是为了中奖目的，不小心中了双奖，也要咬它一下？

要不，回复多的主题贴自动增加财富得了，发现有马甲为骗分的回复，再惩罚好不好

catcher74

这个主意不错，很好玩，不知我能不能得到那个大红包

引用第33楼lucy12345678于2008-09-09 10:26发表的 :
坚决反对!

明显的富人敌视穷人的表现
就像当年土改时地主的表现

junsan

引用第0楼lon91ong于2008-09-08 19:07发表的 建议各位老大下基层体验一下劳苦大众的生活【红包机悬赏中】 :
如题,老大们可以自己注册一个马甲或者找一个朋友注册一个新号,不要有任何特别照顾....
让他在这个坛子泡上几天,体验体验我们新人的生活

应该给他定个目标

.......

目前要在坛内捞威望与财富确实要比2年前难很多，像wolfgg06、hujinyu11这样能在半年内挣400多威望的人才是可遇不可求，可以想象到大多数新人觉得本坛难泡，但要老大们注册马甲体验新人生活断不会出现《甲方乙方》中的吃完全村的鸡，挣分难是难了手段还在。
泡坛更在乎感觉，要建立良性循环。酷、马、鹰以弄CX打坛下，但不见得他们下CX书多过某些人；wolfgg06、hujinyu11发资源帖致富，不见得他们用资源多过某些人。

一上来就以弄CX为目标，能达到哪个段就看你的天份与机缘了，不过将PDG转为PDF的想法在坛内被认为是方向性错误。
要鱼可求人，想渔自织网；泡坛在乎心，万事不苛求。

lovewnx

我们当初刚来远远比楼主说的“恐怖得多”。

simple+me

威望好难弄啊

vorber

这个验证码识别就麻烦了
这非老鹰莫属吧

绝版孙悟空

引用第3楼咖啡豆先生于2008-09-08 20:16发表的 :
关键还是在于自己的努力，要主动去赚取财富，相信很多大款创业的时候都很辛苦，资金也是慢慢积累的。

曾经有一段时间，我每天登陆论坛，啥事都不做，专门拣豆豆，一个月内就捡了 100 多颗，如果自己动都不愿意动一下，光在那里潜水耗着，恐怕一颗豆豆都没有。

豆豆也不好检啊

yishui0168

支持酷总版，理解新人处境！！

lvyuwen

总会有机遇滴，这个好玩儿，老酷好主意

corundum

佩服40楼版主的言论，非常中肯！现在，在论坛挣钱难，是一年前的数倍。去年7月后才真正上本论坛，记得花了7天左右得到66币，买了coffee pro，后来边赚边求书去了。
如果论坛有随机的红包发放，当然开心了！

lucy12345678

引用第38楼lon91ong于2008-09-09 10:34发表的 :


明显的富人敌视穷人的表现
就像当年土改时地主的表现

想清楚了再说不迟。