小魔安全QQ登陆器[免费开源]

留校察看

回复 1# CSOL小魔


    顶一个！

695664507

回复 1# CSOL小魔


    写到文件 (取运行目录 () ＋ “/QQ.dll”, 到字节集 (编辑框1.内容))

爱在峡谷横跳

无语，不过不错了

土豆

学习下，学校要交作业啊，晕

iouyjl

藐视不错的样子

q645637667

.版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext

.程序集 窗口程序集1
.程序集变量 全局sid, 文本型
.程序集变量 好友正则, 正则表达式

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

处理事件 ()
_启动窗口.可视 ＝ 真
_启动窗口.高度 ＝ 145
全局sid ＝ 取指定内容 (UTF8转ANSI (HTTP读文件 (“http://q.3g.qq.com/g/?s_it=1”)), “sid=”, “&”)
输出调试文本 (“Sid=” ＋ 全局sid ＋ #换行符)

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

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

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 链接, 文本型

处理事件 ()
返回文本 ＝ UTF8转ANSI (彗星HTTP读文件 (“q.3g.qq.com/g/s?sid=” ＋ 全局sid ＋ “&”, “POST”, , , “u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ 编辑框2.内容 ＋ “&modifySKey=0&to_qqchat=1&aid=nLoginHandle”, ))
.判断开始 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
    信息框 (“登录成功！”, 0, )
    全局sid ＝ 取指定内容 (返回文本, “sid=”, “&”)
    超级列表框1.可视 ＝ 真
    _启动窗口.高度 ＝ 242
    取出好友列表 (全局sid)
.默认
    信息框 (取指定内容 (返回文本, “failmsg=”, “--”), 0, )
.判断结束


.子程序 取出好友列表
.参数 SID, 文本型
.局部变量 返回文本, 文本型
.局部变量 好友结果, 搜索结果, , "0"
.局部变量 好友QQ, 文本型
.局部变量 好友名字, 文本型
.局部变量 总页数
.局部变量 当前页码
.局部变量 i
.局部变量 liebiao

处理事件 ()
好友正则.创建 (#好友常量, )
返回文本 ＝ UTF8转ANSI (HTTP读文件 (“http://q50.3g.qq.com/g/s?sid=” ＋ SID ＋ “&aid=nqqchatMain&on=1&p=1”))
总页数 ＝ 到整数 (取指定内容 (返回文本, “共 ”, “页”))
.如果真 (总页数 ＝ 0)
    总页数 ＝ 1
.如果真结束
.计次循环首 (总页数, 当前页码)
    返回文本 ＝ UTF8转ANSI (HTTP读文件 (“http://q50.3g.qq.com/g/s?sid=” ＋ SID ＋ “&aid=nqqchatMain&on=1&p=” ＋ 到文本 (当前页码)))
    返回文本 ＝ 取指定内容 (返回文本, “刷新</a>”, “设置”)
    好友结果 ＝ 好友正则.搜索全部 (返回文本)
    .计次循环首 (取数组成员数 (好友结果), i)
        好友QQ ＝ 到文本 (好友结果 .取子匹配文本 (返回文本, 1, ))
        好友QQ ＝ 取指定内容 (返回文本, “u=”, “&”)
        好友名字 ＝ 到文本 (好友结果 .取子匹配文本 (返回文本, 2, ))
        .如果真 (好友QQ ≠ “”)
            liebiao ＝ 超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (liebiao, 0, 好友名字)
            超级列表框1.置标题 (liebiao, 1, 好友QQ)
        .如果真结束

    .计次循环尾 ()

.计次循环尾 ()

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 返回文本, 文本型
.局部变量 待发送内容, 文本型


处理事件 ()
.如果真 (超级列表框1.现行选中项 ≠ -1)
    .如果真 (输入框 (“请输入发送给 ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “ 的内容”, “发送信息”, , 待发送内容, ) ＝ 真)
        .如果真 (待发送内容 ≠ “”)
            待发送内容 ＝ 彗星URL编码_UTF8 (待发送内容)
            返回文本 ＝ UTF8转ANSI (彗星HTTP读文件 (“q16.3g.qq.com/g/s?sid=” ＋ 全局sid ＋ “&aid=sendmsg&tfor=qq”, “POST”, , , “msg=” ＋ 待发送内容 ＋ “&u=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&saveURL=0&do=send&on=1”, ))
            输出调试文本 (返回文本)
        .如果真结束

    .如果真结束

安哥

好东西好东西好东西好东西好东西好东西好东西好东西

a6842402

支持开源，楼主辛苦了！

546669204

支持小魔支持小魔

耶耶耶1212

看看~~~~~~~~~~~~