(defun robot-vote(project-id)
(let* ((cookie-jar (make-instance 'drakma:cookie-jar))
(proj-res (multiple-value-list
(drakma:http-request (concatenate 'string "http://i.100offer.com/projects/" (write-to-string project-id))
:cookie-jar cookie-jar)))
(html-str (car proj-res))
(csrf-token
(car (map 'list
#'(lambda (node)
(plump:attribute node "content"))
(clss:select "meta[name=csrf-token]" (plump:parse html-str)))))
(vote-result (drakma:http-request "http://i.100offer.com/projects/vote"
:method :post
:parameters `(,(cons "project_id" (write-to-string project-id)))
:additional-headers `(,(cons "X-CSRF-Token" csrf-token))
:cookie-jar cookie-jar)))
vote-result))
分分钟一千票啊,这玩意儿算钱啊,最具人气奖直接给我吧哈哈~
http://i.100offer.com/projects/140
帮忙 @ 一下 100offer 负责人吧,没找到。
已邮件至 li*****[email protected]
发现:
http://i.100offer.com/projects/
这个页面的内容不是机器生成,应该是手工整理的。
1
xsjguagua 2015-09-22 17:12:23 +08:00
..5000 到手
|
2
dai269619118 2015-09-22 17:13:17 +08:00 2
应该拿刷票工具参加 23333
|
3
sneezry 2015-09-22 17:20:56 +08:00 via iPhone
赞楼主的探索精神!
|
4
vitovan OP |
5
sneezry 2015-09-22 17:27:49 +08:00 via iPhone
哈哈,洞补上了😄
|
7
scarlex 2015-09-22 17:37:57 +08:00
居然是 lisp ?
|
8
ob 2015-09-22 17:40:25 +08:00 3
感谢楼主为 wikipedia 做出贡献。
|
9
cxl008 2015-09-22 17:41:51 +08:00
服务器没记录 ip ?
|
11
frankel 2015-09-22 17:44:54 +08:00
首先感谢楼主发现 Bug~~
我们已经紧急修复了,楼主再看看? |
12
ibcker 2015-09-22 17:45:32 +08:00
刷票服务出租,有好几台 vps XD
|
14
aliuwr 2015-09-22 17:50:35 +08:00
楼主的浏览器用的什么主体?
|
15
lincanbin 2015-09-22 17:52:41 +08:00
|
16
MOsky 2015-09-22 17:52:55 +08:00
才发现页面全是宋体。。。。
|
17
enda 2015-09-22 17:56:55 +08:00
这是啥语言
|
23
BikeMan 2015-09-22 18:07:54 +08:00
Gentoo 以前是我最爱的 Linux 个人服务器系统, 现在批量管理, 就直接用 Ubuntu 了.
|
24
iamleung 2015-09-22 18:22:56 +08:00 1
awesome 真的是逼格与实用性并存的窗口管理神器
|
26
vitovan OP |