100精币 求1款给批量账号QQ空间留言的源码

zsl

这个图是最佳理想的效果





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



[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

测试账号？没有？

Themoder

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

zsl

我爱机车战 发表于 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:05
测试账号？没有？

可以随便拿个小号测试就行

Themoder

模块一个没有？不给的话我会给你全改了。。。

zsl

我爱机车战 发表于 2013-7-12 09:17
模块一个没有？不给的话我会给你全改了。。。

有  稍等我发上来吧

zsl

源码.rar (850.06 KB, 下载次数: 81)

2013-7-12 09:27 上传

点击文件名下载附件

zsl

zsl

gg1160149671 发表于 2013-7-12 12:04

抱歉~已经发了