【刷粉器】制作教程，源码。

谁人 · 发表于 2012-8-9 12:17:12

刷粉器之前的源码已经公开，表示无压力。

谁人 · 发表于 2012-8-9 12:18:21

.版本 2
.支持库 internet
.支持库 xplib
.支持库 edroptarget
.支持库 EThread

.程序集窗口程序集1
.程序集变量 d, 文本型
.程序集变量 p, 文本型
.程序集变量 t, 文本型
.程序集变量 co, 文本型

.子程序获取stamp, 文本型
.局部变量 Js, 对象
.局部变量 ret, 文本型

Js.创建 (“MSScriptControl.ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, “function GetRandom(){” ＋ #换行符＋ “return new Date().getTime();” ＋ #换行符＋ “}”)
ret ＝到文本 (Js.数值方法 (“Eval”, “GetRandom()”))
返回 (ret)

.子程序 qj
.参数 zh, 文本型
.局部变量 zx, 文本型
.局部变量 g, 文本型, , "0"
.局部变量 i, 整数型

zx ＝到文本 (HTTP读文件 (“http://tieba.baidu.com/i/sys/user_json?un=” ＋ zh))
g ＝分割文本 (zx, “{” ＋ #引号＋ “raw_name” ＋ #引号, )
.计次循环首 (取数组成员数 (g), i)
.如果真 (i ＝ 2)
 d ＝文本_取出中间文本 (g , #引号＋ “id” ＋ #引号＋ “:”, “,” ＋ #引号＋ “inner_id” ＋ #引号)
.如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (g), i)
.如果真 (i ＝ 2)
 p ＝文本_取出中间文本 (g , #引号＋ “portrait” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “itieba_portrait” ＋ #引号)
.如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (g), i)
.如果真 (i ＝ 2)
 t ＝文本_取出中间文本 (g , “,” ＋ #引号＋ “tbs” ＋ #引号＋ “:” ＋ #引号, #引号＋ “}”)
.如果真结束

.计次循环尾 ()

.子程序 gz
.参数 mmm, 文本型
.局部变量一, 文本型
.局部变量消息, 文本型

一＝到文本 (访问网页_MARS (“http://tieba.baidu.com/i/commit?stamp=” ＋获取stamp (), “POST”, “cmd=follow&tbs=” ＋ t ＋ “&portrait=” ＋ p, , , , , , , , , , ))
消息＝文本_取出中间文本 (一, “,” ＋ #引号＋ “_info” ＋ #引号＋ “:” ＋ #引号, “:)” ＋ #引号＋ “,” ＋ #引号＋ “ret” ＋ #引号＋ “:[]}”)
.如果 (消息＝ “”)
编辑框5.加入文本 (mmm ＋ “关注成功!” ＋ #换行符)
.否则
编辑框5.加入文本 (mmm ＋编码_usc2到ansi (消息) ＋ #换行符)
.如果结束

.子程序 WAP百度帐号登陆, 文本型
.参数帐号, 文本型
.参数密码, 文本型
.局部变量地址, 文本型
.局部变量数据, 文本型
.局部变量文本, 文本型

地址＝ “http://wappass.baidu.com/passport/”
数据＝ “login_username=” ＋编码_URL编码_UTF8 (帐号) ＋ “&login_loginpass=” ＋编码_URL编码_UTF8 (密码) ＋ “&login_save=0&aaa=%E7%99%BB%E5%BD%95&login=yes&can_input=0&u=http%3A%2F%2Fm.baidu.com%2F%3Faction%3Dlogin&tpl=&tn=&pu=wiaui_1311620780_6964%2Csz%40224_220&ssid=000000&from=0&bd_page_type=1&uid=wiaui_1311620780_6964”
返回 (彗星URL解码_UTF8 (到文本 (访问网页_MARS (地址, “POST”, 数据, , co, , , , , , , , ))))

.子程序 jcxx
.参数 x, 文本型
.参数 y, 文本型
.局部变量 xx, 文本型, , "0"
.局部变量天涯, 整数型

xx ＝分割文本 (WAP百度帐号登陆 (x, y), “<div class=” ＋ #引号＋ “hdr” ＋ #引号＋ “>”, )
.计次循环首 (取数组成员数 (xx), 天涯)
.如果真 (天涯＝ 2)
 .如果 (文本_取出中间文本 (xx [天涯], “”, “ ”) ＝ “”)
 编辑框5.加入文本 (x ＋ “登入成功！” ＋ #换行符)
 .否则
 编辑框5.加入文本 (x ＋文本_取出中间文本 (xx [天涯], “”, “ ”) ＋ #换行符)
 .如果结束

.如果真结束

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

XP风格 (2)
拖放对象1.注册拖放控件 (取窗口句柄 ())
时钟1.时钟周期＝ 100

.子程序 _拖放对象1_得到文件
.参数 a, 文本型

编辑框4.内容＝读入文本 (打开文件 (a, , ), )
路径＝ a

.子程序 _按钮2_被单击
.局部变量 g, 整数型

.计次循环首 (取数组下标 (线程句柄, ), g)
API_TerminateThread (线程句柄 [g], 0)
.计次循环尾 ()
进度条1.位置＝ 0
编辑框5.加入文本 (“结束。。。” ＋ #换行符)
编辑框5.加入文本 (“ 欢迎使用霍盟刷粉器!” ＋ #换行符＋ “```````````````````````````````````````” ＋ #换行符)

.子程序 _按钮3_被单击

置托盘图标 (#一, “刷粉器!”)
可视＝假

.子程序 __启动窗口_托盘事件
.参数操作类型, 整数型

.如果真 (操作类型＝ #双击)
可视＝真
.如果真结束
.如果真 (操作类型＝ #单击右键)
弹出菜单 (菜单, , )
.如果真结束

.子程序 _退出_被选择

结束 ()

.子程序 _按钮5_被单击
.局部变量 g, 整数型
.局部变量行数, 文本型, , "0"

文件＝打开文件 (路径, , )
行数＝分割文本 (编辑框4.内容, #换行符, )
进度条1.最大位置＝取数组成员数 (行数)
许可＝创建进入许可证 ()
.计次循环首 (线程数 (), g)
重定义数组 (线程句柄, 真, g)
启动线程 (&开始关注, , 线程句柄 [g])
.计次循环尾 ()

.子程序开始关注
.参数 g, 整数型
.局部变量取得, 文本型
.局部变量文本, 文本型, , "0"
.局部变量 zh, 文本型
.局部变量 mim, 文本型
.局部变量 waha, 整数型
.局部变量刷数, 整数型

进入许可区 (许可)
.计次循环首 (循数 (), waha)
退出许可区 (许可)
移动读写位置 (文件, 3, 0)
取得＝读入一行 (文件)
.如果 (寻找文本 (取得, “：”, , 假) ≠ -1)
 文本＝分割文本 (取得, “：”, )
.否则
 文本＝分割文本 (取得, “:”, )
.如果结束
zh ＝文本 [1]
mim ＝文本 [2]
jcxx (zh, mim)
qj (编辑框1.内容)
gz (编辑框1.内容)
进度条1.位置＝进度条1.位置＋ 1
.计次循环尾 ()
进度条1.位置＝ 0

.子程序线程数, 整数型
.局部变量 zhj, 文本型, , "0"
.局部变量计算, 整数型
.局部变量线程数量, 整数型
.局部变量真线程, 整数型
.局部变量 i, 整数型

zhj ＝分割文本 (编辑框4.内容, #换行符, )
真线程＝到整数 (编辑框2.内容) ÷ 10
计算＝取数组成员数 (zhj) ÷ 真线程
.如果 (取数组成员数 (zhj) ＜真线程)
线程数量＝取数组成员数 (zhj)
.否则
.如果 (取整 (计算) ≠ 计算)
 .计次循环首 (到数值 (编辑框2.内容), i)
 真线程＝真线程－ 1
 计算＝取数组成员数 (zhj) ÷ 真线程
 .如果真 (取整 (计算) ＝计算)
 线程数量＝真线程
 跳出循环 ()
 .如果真结束

 .计次循环尾 ()
.否则
 线程数量＝真线程
.如果结束

.如果结束
返回 (线程数量)

.子程序循数, 整数型
.局部变量循环数, 整数型
.局部变量 zhl, 文本型, , "0"

zhl ＝分割文本 (编辑框4.内容, #换行符, )
循环数＝到整数 (取数组成员数 (zhl) ÷ 线程数 ())
返回 (循环数)

.子程序 _按钮1_被单击

载入 (窗口1, _启动窗口, 真)

.子程序 _隐藏の后台_被选择

置托盘图标 (#一, “刷粉器!”)
可视＝假

.子程序 _使用帮助_被选择

载入 (窗口1, _启动窗口, 真)

.子程序 _关于刷粉_被选择