兮兔儿求助你们下 看这个易语言代码有问题吗

社区服务
高级搜索
猴岛论坛QQ微信技术兮兔儿求助你们下 看这个易语言代码有问题吗
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
9个回复

兮兔儿求助你们下 看这个易语言代码有问题吗

楼层直达
兮兔儿

ZxID:16678361

等级: 上士
关注兮兔儿微博http://http://t.qq.com/xituerwb
举报 只看楼主 使用道具 楼主   发表于: 2012-03-20 0
.版本 2
.支持库 iext
.支持库 spec
.支持库 internet

.程序集 窗口程序集1
.程序集变量 验证码地址, 文本型
.程序集变量 验证码, 文本型
.程序集变量 错误索引数组, 整数型, , "0"
.程序集变量 在线索引数组, 整数型, , "0"

.子程序 _按钮添加_被单击
.局部变量 登录返回文本, 文本型

.判断开始 (选择框在线.选中 = 真)
    增加QQ (编辑框号.内容, 编辑框密.内容, “ ”)
    登录返回文本 = 登录 (超级列表框1.取标题 (超级列表框1.取表项数 () - 1, 1), 超级列表框1.取标题 (超级列表框1.取表项数 () - 1, 2))
    判断状态 (超级列表框1.取表项数 () - 1, 登录返回文本)
    时钟1.时钟周期 = 10000
.默认
    增加QQ (编辑框号.内容, 编辑框密.内容, “ ”)
.判断结束
编辑框号.内容 = “”
编辑框密.内容 = “”


.子程序 登录, 文本型
.参数 QQ号, 文本型
.参数 QQ密, 文本型
.局部变量 SID, 文本型
.局部变量 返回文本, 文本型
.局部变量 hexpwd, 文本型
.局部变量 extend, 文本型
.局部变量 r_sid, 文本型
.局部变量 rip, 文本型

返回文本 = UTF8转ANSI (访问网页 (“http://pt.3g.qq.com/handleLogin?r=324925183&qq=” + QQ号 + “&pwd=” + QQ密 + “&toQQchat=true&q_from=&modifySKey=0&loginType=1”, “POST”, , , , , , , , ))
.如果真 (寻找文本 (返回文本, “看不清,换一张”, , 假) ≠ -1)
    SID = 取指定内容 (返回文本, “sid=”, #引号)
    hexpwd = 取指定内容 (返回文本, “hexpwd” + #引号 + “ value=” + #引号, #引号)
    extend = 取指定内容 (返回文本, “extend” + #引号 + “ value=” + #引号, #引号)
    r_sid = 取指定内容 (返回文本, “r_sid” + #引号 + “ value=” + #引号, #引号)
    rip = 取指定内容 (返回文本, “rip” + #引号 + “ value=” + #引号, #引号)
    验证码地址 = 取指定内容 (返回文本, “<img src=” + #引号, #引号)
    载入 (验证码窗口, , 真)
    返回文本 = UTF8转ANSI (访问网页 (“http://pt.3g.qq.com/handleLogin?sid=” + SID + “&qq=” + QQ号 + “&hexpwd=” + hexpwd + “&hexp=true&auto=0&logintitle=手机腾讯网&q_from=&modifySKey=0&q_status=10&r=271&loginType=1&prev_url=&extend=” + extend + “&r_sid=” + r_sid + “&bid_code=&bid=-1&toQQchat=true&rip=” + rip + “&verify=” + 验证码, “POST”, , , , , , , , ))

    调试输出 (返回文本)
.如果真结束
返回 (返回文本)

.子程序 增加QQ
.参数 QQ号, 文本型
.参数 QQ密, 文本型
.参数 sid, 文本型, 可空

超级列表框1.插入表项 (-1, 到文本 (超级列表框1.取表项数 () + 1), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, QQ号)
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 2, QQ密)
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 3, sid)
状态条1.置文本 (1, 到文本 (超级列表框1.取表项数 ()))


.子程序 __启动窗口_创建完毕
.局部变量 局_注册状态, 整数型

加载皮肤 (13)
' 局_注册状态 = 风行注册 (“sys_pa.rgf”, “欢迎使用本软件,本软件为收费软件,但可以先试用,您用过以后感觉满意的话,请联系作者购买,多谢您对本软件的大力支持!”, 4, “vlqx196041738”)
.判断开始断 (局_注册状态 = 0)
    ' _启动窗口.标题 = _启动窗口.标题 + “ 注册版 作者QQ:376475357
.' 判断 (局_注册状态 = 1)
    ' _启动窗口.标题 = _启动窗口.标题 + “ 试用版 作者QQ:30408929
.' 判断 (局_注册状态 = 2)
    ' 销毁 ()
.默认

.判断结束

编辑框回复.内容 = 到文本 (读入文件 (取运行目录 () + “\nr.txt”))
超级列表框1.禁止重画 ()


.子程序 _超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )

.子程序 _时钟1_周期事件
.局部变量 返回信息, 文本型
.局部变量 i, 整数型
.局部变量 对方QQ, 文本型, , "0"
.局部变量 消息类型, 文本型, , "0"

.判断开始 (取数组成员数 (在线索引数组) ≤ 50)
    .计次循环首 (取数组成员数 (在线索引数组), i)
        多线程提取 (i)
        处理事件 ()
    .计次循环尾 ()

.默认
    .计次循环首 (50, i)
        多线程提取 (i)
        处理事件 ()
    .计次循环尾 ()
.判断结束


.子程序 多线程提取
.参数 i, 整数型
.局部变量 k, 整数型
.局部变量 返回文本, 文本型
.局部变量 发送信息的QQ, 文本型

.变量循环首 (i, 取数组成员数 (在线索引数组), 50, k)
    返回文本 = UTF8转ANSI (HTTP读文件 (“http://q32.3g.qq.com/g/s?sid=” + 超级列表框1.取标题 (在线索引数组 [k], 3) + “&aid=nqqchatMain&on=1”))
    处理事件 ()
    .如果真 (选择框自动回复.选中 = 真)
        .如果真 (寻找文本 (返回文本, “QQ消息”, , 假) ≠ -1)
            返回文本 = UTF8转ANSI (HTTP读文件 (“http://q” + 取指定内容 (返回文本, “http://q”, “.”) + “.3g.qq.com/g/s?sid=” + 取指定内容 (返回文本, “sid=”, “&”) + “&aid=nqqChat&saveURL=0” + 取指定内容 (返回文本, “r=”, “&”) + “&g_f=” + 取指定内容 (返回文本, “g_f=”, #引号)))
            返回文本 = 取指定内容 (返回文本, “<p align=”, “>刷新消息</a>”)
            发送信息的QQ = 取指定内容 (返回文本, “u=”, “&”)
            访问网页 (“http://q16.3g.qq.com/g/s?sid=” + 超级列表框1.取标题 (在线索引数组 [k], 3) + “&aid=sendmsg&tfor=qq”, “POST”, , , , , “msg=” + 到文本 (ANSI转UTF8 (编辑框回复.内容)) + “&u=” + 发送信息的QQ, , , )

        .如果真结束

    .如果真结束

.变量循环尾 ()

.子程序 判断状态, 文本型
.参数 索取号, 整数型
.参数 返回文本, 文本型
.局部变量 在线个数, 整数型

.判断开始 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
    超级列表框1.置标题 (索取号, 4, “在线”)
    超级列表框1.置标题 (索取号, 3, 取指定内容 (返回文本, “sid=”, “&”))
    在线个数 = 到整数 (状态条1.取文本 (3))
    在线个数 = 在线个数 + 1
    加入成员 (在线索引数组, 索取号)
    状态条1.置文本 (3, 到文本 (在线个数))
    返回 (“在线”)
.判断 (寻找文本 (返回文本, “密码错误”, , 假) ≠ -1)
    超级列表框1.置标题 (索取号, 4, “密码错误”)
    加入成员 (错误索引数组, 索取号)
    返回 (“密码错误”)
.判断 (寻找文本 (返回文本, “登录3GQQ<”, , 假) ≠ -1)
    超级列表框1.置标题 (索取号, 4, “SID过时”)
    加入成员 (错误索引数组, 索取号)
    返回 (“SID过时”)
.默认
    超级列表框1.置标题 (索取号, 4, “异常错误”)
    加入成员 (错误索引数组, 索取号)
    返回 (“异常错误”)
.判断结束


.子程序 下线
.参数 SID, 文本型
.局部变量 post内容, 文本型

置随机数种子 ()
HTTP读文件 (“http://q11.3g.qq.com/g/s?sid=” + SID + “&aid=logout”)

.子程序 取指定内容, 文本型, , 取出想要的内容
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 = 取文本长度 (完整内容)
临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
总长度 = 取文本长度 (临时文本)
临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
临时文本 = 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)

.子程序 _全部上线_被选择
.局部变量 i, 整数型
.局部变量 返回文本, 文本型

.判断开始 (超级列表框1.取表项数 () ≤ 50)
    .计次循环首 (超级列表框1.取表项数 (), i)
        多线程上线 (i)
        延时 (1000)
        处理事件 ()
    .计次循环尾 ()
.默认
    .计次循环首 (50, i)
        多线程上线 (i)
        延时 (1000)
        处理事件 ()
    .计次循环尾 ()
.判断结束
状态条1.置文本 (1, 到文本 (超级列表框1.取表项数 ()))
错误重登 ()
时钟1.时钟周期 = 10000


.子程序 多线程上线
.参数 i, 整数型
.局部变量 k, 整数型
.局部变量 返回文本, 文本型

.变量循环首 (i - 1, 超级列表框1.取表项数 (), 50, k)
    返回文本 = UTF8转ANSI (HTTP读文件 (“http://pt5.3g.qq.com/s?aid=nLogin3gqqbysid&3gqqsid=” + 超级列表框1.取标题 (k, 3)))
    调试输出 (返回文本)
    判断状态 (k, 返回文本)
    处理事件 ()
.变量循环尾 ()


.子程序 _全部下线_被选择
.局部变量 i, 整数型

.判断开始 (超级列表框1.取表项数 () ≤ 50)
    .计次循环首 (超级列表框1.取表项数 (), i)
        多线程下线 (i)
        延时 (1000)
        处理事件 ()
    .计次循环尾 ()
.默认
    .计次循环首 (50, i)
        多线程下线 (i)
        延时 (1000)
        处理事件 ()
    .计次循环尾 ()
.判断结束
时钟1.时钟周期 = 0
清除数组 (在线索引数组)
状态条1.置文本 (3, “0”)

.子程序 多线程下线
.参数 i, 整数型
.局部变量 k, 整数型
.局部变量 返回文本, 文本型

.变量循环首 (i - 1, 超级列表框1.取表项数 (), 50, k)
    下线 (超级列表框1.取标题 (k, 3))
    超级列表框1.置标题 (k, 4, “下线”)

    处理事件 ()
.变量循环尾 ()

.子程序 _选择上线_被选择
.局部变量 被选索引, 整数型, , "1"
.局部变量 返回文本, 文本型

被选索引 = 超级列表框1.取被选择表项 ()
.如果真 (超级列表框1.取标题 (被选索引 [1], 4) ≠ “在线”)
    返回文本 = UTF8转ANSI (HTTP读文件 (“http://pt5.3g.qq.com/s?aid=nLogin3gqqbysid&3gqqsid=” + 超级列表框1.取标题 (被选索引 [1], 3)))
    调试输出 (返回文本)
    .如果真 (寻找文本 (返回文本, “使用明文密码”, , 假) ≠ -1)
        返回文本 = 登录 (超级列表框1.取标题 (被选索引 [1], 1), 超级列表框1.取标题 (被选索引 [1], 2))
    .如果真结束
    判断状态 (被选索引 [1], 返回文本)
    时钟1.时钟周期 = 10000
.如果真结束


.子程序 _选择下线_被选择
.局部变量 被选索引, 整数型, , "1"

被选索引 = 超级列表框1.取被选择表项 ()
下线 (超级列表框1.取标题 (被选索引 [1], 3))
超级列表框1.置标题 (被选索引 [1], 4, “下线”)
状态条1.置文本 (3, 到文本 (到整数 (状态条1.取文本 (3)) - 1))
时钟1.时钟周期 = 0

.子程序 __启动窗口_将被销毁
.局部变量 i, 整数型
.局部变量 内容, 文本型
.局部变量 sid, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)
    sid = 超级列表框1.取标题 (i - 1, 3)
    .如果真 (超级列表框1.取标题 (i - 1, 3) = “”)
        sid = “ ”
    .如果真结束
    内容 = 内容 + 超级列表框1.取标题 (i - 1, 1) + “,” + 超级列表框1.取标题 (i - 1, 2) + “,” + sid + #换行符
.计次循环尾 ()
写到文件 (取运行目录 () + “”, 到字节集 (内容))
写到文件 (取运行目录 () + “”, 到字节集 (编辑框回复.内容))

结束 ()

.子程序 __启动窗口_位置被改变

.判断开始 (位置 = 2)
    置托盘图标 (#QQ图标, “右下角挂Q”)
    可视 = 假
.默认

.判断结束


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

.判断开始 (操作类型 = 1)
    位置 = 1
    置托盘图标 (, )
    可视 = 真
.默认

.判断结束


.子程序 _按钮导入_被单击
.局部变量 帐号密码组, 文本型, , "0"
.局部变量 帐号密码sid, 文本型, , "3"
.局部变量 i, 整数型

通用对话框1.文件名 = 取运行目录 () + “\QQ列表.txt”
.判断开始 (通用对话框1.打开 ())
    帐号密码组 = 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    .计次循环首 (取数组成员数 (帐号密码组), i)
        帐号密码sid = 分割文本 (帐号密码组 , “,”, )
        增加QQ (帐号密码sid [1], 帐号密码sid [2], 帐号密码sid [3])
    .计次循环尾 ()
.默认

.判断结束


.子程序 _删除_被选择
.局部变量 被选择索引, 整数型, , "1"

被选择索引 = 超级列表框1.取被选择表项 ()
.如果真 (超级列表框1.取标题 (被选择索引 [1], 4) = “在线”)
    状态条1.置文本 (3, 到文本 (到整数 (状态条1.取文本 (3)) - 1))

.如果真结束
状态条1.置文本 (1, 到文本 (到整数 (状态条1.取文本 (1)) - 1))
超级列表框1.删除表项 (被选择索引 [1])

.子程序 错误重登
.局部变量 i, 整数型
.局部变量 登录返回文本, 文本型

.计次循环首 (取数组成员数 (错误索引数组), i)
    登录返回文本 = 登录 (超级列表框1.取标题 (错误索引数组 , 1), 超级列表框1.取标题 (错误索引数组 , 2))
    判断状态 (超级列表框1.取表项数 () - 1, 登录返回文本)
.计次循环尾 ()

.子程序 _时钟2_周期事件, , , 保持在线
.局部变量 i, 整数型


HTTP读文件 (“http://pt5.3g.qq.com/s?aid=nLogin3gqqbysid&3gqqsid=” + 超级列表框1.取标题 (在线索引数组 , 3))

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

载入 (介绍, , 真)


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

信息框 (“            欢迎下次使用!!!        ”, #信息图标, “小兮提示您:”)
结束 ()


.子程序 _作弊_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

作弊.可视 = 真


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

信息框 (“                正在试用期中.........无需登陆!                   ”, #信息图标, “提示您:”)


.子程序 _标签4_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

信息框 (“                                  您使用的已经是最新版本!无需更新!                                               ”, #信息图标, “更新提示”)


.子程序 _标签5_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

信息框 (“     谢谢您对小兮软件的厚爱,欢迎您提出宝贵意见!!!” + #换行符 + #换行符 + “      我们将在第一时间内对您的疑问进行解答,对于提出优秀意见者将给予小兮软件会员1个月,金币兑换券10元等众多奖励!!!        ” + #换行符 + #换行符 + “      让我们一起努力吧!!!                  ” + #换行符 + #换行符 + #换行符 + #换行符 + #换行符 + #换行符, #信息图标, “Thanks:”)


.子程序 _状态条1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型



.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型



.子程序 _超级列表框1_当前表项被改变
゛自我控っ

ZxID:17631659

等级: 上尉
举报 只看该作者 9楼  发表于: 2012-03-20 0
完全帮顶

结结实实的不懂
woanan3344

ZxID:11872262

等级: 少将

举报 只看该作者 8楼  发表于: 2012-03-20 0
这代码乍一看没什么 问题 仔细一看问题很多




























其实我也不懂的说
゛韩小文

ZxID:17694192

等级: 上将
配偶: 心雨丶
        ┐          狠低调      └
举报 只看该作者 7楼  发表于: 2012-03-20 0
   顶一下!
毁忆    ゃ

ZxID:1088

等级: 禁止发言

举报 只看该作者 6楼  发表于: 2012-03-20 0
不懂!
啤酒与SIDANG`

ZxID:17676774

等级: 元帅

举报 只看该作者 5楼  发表于: 2012-03-20 0
不懂
节奏≈

ZxID:17765945

等级: 少尉
琴瑟在御 岁月静好。

举报 只看该作者 4楼  发表于: 2012-03-20 0
楼主回答,
兮兔儿

ZxID:16678361

等级: 上士
关注兮兔儿微博http://http://t.qq.com/xituerwb
举报 只看该作者 地板   发表于: 2012-03-20 0
为了让猴岛们放心  兮兔儿让你们自己看下代码 如果那里不对 我可改
兮兔儿

ZxID:16678361

等级: 上士
关注兮兔儿微博http://http://t.qq.com/xituerwb
举报 只看该作者 板凳   发表于: 2012-03-20 0
这个就是我天天发的挂QQ  有的说是木马 我让猴岛们自己看下 看兮兔儿做手脚了吗
      晴

ZxID:15665154

等级: 上将
隐退

举报 只看该作者 沙发   发表于: 2012-03-20 0
来个懂的看看吧
« 返回列表
发帖 回复