精易论坛

标题: 100精币求1款给批量账号QQ空间留言的源码 [打印本页]

作者: zsl 时间: 2013-7-12 08:52
标题: 100精币求1款给批量账号QQ空间留言的源码

这个图是最佳理想的效果

这下面是单个账号留言的代码,求改成给导入的批量账号~留言

[e]
.版本 2.支持库 iext.支持库 spec.支持库 EThread.子程序 _空间批量留言.局部变量返回文本, 文本型.局部变量留言内容, 文本型.局部变量日志格式, 文本型.局部变量文件号, 整数型.局部变量返回信息, 文本型.局部变量等级, 文本型留言内容＝编码_URL编码GBK (超级列表框_内容.取标题 (超级列表框_内容.现行选中项, 0))返回文本＝到文本 (网页_访问 (“http://m.qzone.qq.com/cgi-bin/new/add_msgb?ref=qzone&g_tk=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 4), 1, , , 到字节集 (“qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fmsgboard%2Fmsgbcanvas.html%23page%3D1&content=” ＋留言内容＋ “&hostUin=” ＋空间留言_大号.内容＋ “&uin=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&format=fs&g_tk=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 4) ＋ “&ref=qzone&json=1&inCharset=gbk&outCharset=gbk&iNotice=1”), 超级列表框1.取标题 (超级列表框1.现行选中项, 10), , )).如果 (倒找文本 (返回文本, “留言成功”, , 假) ＞ 0) 日志格式＝ “ 操作状态：” ＋到文本 (取北京时间 ()) ＋ “ QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “ 留言成功!” ＋ #换行符输出调试文本 (日志格式) 返回.加入文本 (日志格式＋ #换行符) 文件号＝打开文件 (“操作状态.log”, 6, ) 插入文本行 (文件号, 日志格式) 关闭文件 (文件号).否则.如果结束.如果 (倒找文本 (返回文本, “操作过于频繁咯！休息会再来操作吧！”, , 假) ＞ 0) 返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “操作过于频繁咯!” ＋ #换行符).否则.如果结束.如果 (倒找文本 (返回文本, “空间主人设置了回复权限，您无法进行操作”, , 假) ＞ 0) 返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “空间主人设置了回复权限!” ＋ #换行符).否则.如果结束.如果 (倒找文本 (返回文本, “参数”, , 假) ＞ 0) 返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “参数错误!” ＋ #换行符).否则.如果结束.如果 (倒找文本 (返回文本, “经用户举报并核实您在空间中有异常操作(例如刷评论等)暂禁言一周”, , 假) ＞ 0) 返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “暂禁言一周!” ＋ #换行符).否则.如果结束延迟 (到整数 (空间留言_速度.内容)).如果 (超级列表框1.取表项数 () － 1 ＝超级列表框1.现行选中项) 超级列表框1.现行选中项＝ 0 超级列表框_内容.现行选中项＝ 0 调试输出 (超级列表框1.现行选中项) 处理事件 () 启动线程 (&_空间批量留言, , ).否则超级列表框1.现行选中项＝超级列表框1.现行选中项＋ 1 超级列表框_内容.现行选中项＝超级列表框_内容.现行选中项＋ 1 启动线程 (&_空间批量留言, , )
[/e]

作者: Themoder 时间: 2013-7-12 09:05
测试账号？没有？

作者: Themoder 时间: 2013-7-12 09:07
还有

把你的代码重发一次，复制不过去

作者: zsl 时间: 2013-7-12 09:13

我爱机车战发表于 2013-7-12 09:07
还有把你的代码重发一次，复制不过去

.版本 2
.支持库 iext
.支持库 spec
.支持库 EThread

.子程序 _空间批量留言
.局部变量返回文本, 文本型
.局部变量留言内容, 文本型
.局部变量日志格式, 文本型
.局部变量文件号, 整数型
.局部变量返回信息, 文本型
.局部变量等级, 文本型

留言内容＝编码_URL编码GBK (超级列表框_内容.取标题 (超级列表框_内容.现行选中项, 0))
返回文本＝到文本 (网页_访问 (“http://m.qzone.qq.com/cgi-bin/new/add_msgb?ref=qzone&g_tk=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 4), 1, , , 到字节集 (“qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fmsgboard%2Fmsgbcanvas.html%23page%3D1&content=” ＋留言内容＋ “&hostUin=” ＋空间留言_大号.内容＋ “&uin=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&format=fs&g_tk=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 4) ＋ “&ref=qzone&json=1&inCharset=gbk&outCharset=gbk&iNotice=1”), 超级列表框1.取标题 (超级列表框1.现行选中项, 10), , ))

.如果 (倒找文本 (返回文本, “留言成功”, , 假) ＞ 0)

日志格式＝ “ 操作状态：” ＋到文本 (取北京时间 ()) ＋ “ QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “ 留言成功!” ＋ #换行符
输出调试文本 (日志格式)
返回.加入文本 (日志格式＋ #换行符)
文件号＝打开文件 (“操作状态.log”, 6, )
插入文本行 (文件号, 日志格式)
关闭文件 (文件号)

.否则

.如果结束

.如果 (倒找文本 (返回文本, “操作过于频繁咯！休息会再来操作吧！”, , 假) ＞ 0)
返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “操作过于频繁咯!” ＋ #换行符)
.否则

.如果结束

.如果 (倒找文本 (返回文本, “空间主人设置了回复权限，您无法进行操作”, , 假) ＞ 0)
返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “空间主人设置了回复权限!” ＋ #换行符)
.否则

.如果结束

.如果 (倒找文本 (返回文本, “参数”, , 假) ＞ 0)
返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “参数错误!” ＋ #换行符)
.否则

.如果结束

.如果 (倒找文本 (返回文本, “经用户举报并核实您在空间中有异常操作(例如刷评论等)暂禁言一周”, , 假) ＞ 0)
返回.加入文本 (到文本 (取北京时间 ()) ＋ “QQ：” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “暂禁言一周!” ＋ #换行符)
.否则

.如果结束

延迟 (到整数 (空间留言_速度.内容))
.如果 (超级列表框1.取表项数 () － 1 ＝超级列表框1.现行选中项)
超级列表框1.现行选中项＝ 0
超级列表框_内容.现行选中项＝ 0
调试输出 (超级列表框1.现行选中项)
处理事件 ()
启动线程 (&_空间批量留言, , )
.否则
超级列表框1.现行选中项＝超级列表框1.现行选中项＋ 1
超级列表框_内容.现行选中项＝超级列表框_内容.现行选中项＋ 1
启动线程 (&_空间批量留言, , )

作者: zsl 时间: 2013-7-12 09:14