好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 icentury 于 2011-4-20 01:24 编辑
主要连接代码如下， 此代码仅供吾爱论坛内部参考，学习，
请不要 “利用此源代码制作非法的钓鱼软件，木马等违法工具，与本人无任何关系，后果自负！”
.版本 2
.支持库 script
.程序集 窗口程序集1
.程序集变量 变量1, 整数型
.子程序 _画板验证码_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.子程序 _登陆按钮_被单击
.局部变量 P, 文本型
.局部变量 登陆返回临时数据, 字节集
.如果真 (编辑框QQ密码.内容 ＝ “” 或 编辑框验证码.内容 ＝ “” 或 组合框QQ账号.内容 ＝ “”)
信息框 (“请填写完整。”, #错误图标, “错误”)
时钟1.时钟周期 ＝ 1
返回 ()
.如果真结束
脚本组件.执行 (#md5)
QQ密码 ＝ 脚本组件.运行 (“md5_3”, 删首尾空 (编辑框QQ密码.内容))
QQ密码 ＝ 脚本组件.运行 (“md5”, QQ密码 ＋ 到大写 (删首尾空 (编辑框验证码.内容)))
QQ账号 ＝ 组合框QQ账号.内容
登陆返回临时数据 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/login”, “POST”, , , “u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Ftoolbar%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” ＋ 删首尾空 (组合框QQ账号.内容) ＋ “&p=” ＋ QQ密码 ＋ “&verifycode=” ＋ 删首尾空 (编辑框验证码.内容) ＋ “&aid=15000101&from_ui=1”, )
.如果 (寻找文本 (到文本 (登陆返回临时数据), “登陆成功”, , 假) ＞ 0)
P ＝ 到文本 (读入文件 (取运行目录 () ＋ “/QQ.dll”))
.如果真 (寻找文本 (P, 组合框QQ账号.内容, , 假) ＝ -1)
.如果 (P ＝ “”)
写到文件 (取运行目录 () ＋ “/QQ.dll”, 到字节集 (组合框QQ账号.内容))
.否则
写到文件 (取运行目录 () ＋ “/QQ.dll”, 到字节集 (P ＋ #换行符 ＋ 组合框QQ账号.内容))
.如果结束
写配置项 (取运行目录 () ＋ “/QQkey.dll”, “QQkey”, 组合框QQ账号.内容, RC4.加密 (编辑框QQ密码.内容, “MD51029278686”))
.如果真结束
写配置项 (取运行目录 () ＋ “/QQkey.dll”, “QQkey”, 组合框QQ账号.内容, RC4.加密 (编辑框QQ密码.内容, “MD51029278686”))
时钟1.时钟周期 ＝ 0
载入 (窗口_主要, , 假)
_启动窗口.销毁 ()
.否则
信息框2 (“登陆失败，请检查是否输入正确！”, #错误图标, “错误”)
时钟1.时钟周期 ＝ 1
编辑框验证码.内容 ＝ “”
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.如果结束
.子程序 _组合框QQ账号_列表项被选择
组合框QQ账号.内容 ＝ 组合框QQ账号.取项目文本 (组合框QQ账号.现行选中项)
编辑框QQ密码.内容 ＝ RC4.解密 (读配置项 (取运行目录 () ＋ “/QQkey.dll”, “QQkey”, 组合框QQ账号.取项目文本 (组合框QQ账号.现行选中项), ), “MD51029278686”)
.如果真 (组合框QQ账号.内容 ≠ “” 且 编辑框QQ密码.内容 ≠ “”)
编辑框验证码.获取焦点 ()
.如果真结束
.子程序 _窗口_登陆_将被销毁
关闭 (“usedate”)
结束 ()
.子程序 _编辑框验证码_获得焦点
画板验证码.可视 ＝ 真
.子程序 _编辑框验证码_失去焦点
画板验证码.可视 ＝ 假
.子程序 __启动窗口_创建完毕
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
组合框QQ账号.获取焦点 ()
读取记忆 ()
组合框QQ账号.现行选中项 ＝ 0
_组合框QQ账号_列表项被选择 ()
.子程序 _图片框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.子程序 _时钟1_周期事件
.如果真 (取字节集长度 (到字节集 (编辑框验证码.内容)) ≠ 4 或 编辑框QQ密码.内容 ＝ “” 或 编辑框验证码.内容 ＝ “” ＝ 真)
返回 ()
.如果真结束
时钟1.时钟周期 ＝ 0
_登陆按钮_被单击 ()
.子程序 __启动窗口_可否被关闭, 逻辑型
.如果 (信息框2 (“你尚未登录，确定要退出吗？”, #是否钮 ＋ #询问图标 ＋ #默认按钮二 ＋ #程序等待, “提示”) ＝ 5)
.否则
返回 (假)
.如果结束
.子程序 读取记忆
.局部变量 文本, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 L, 整数型
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/QQ.dll”))
分割 ＝ 分割文本 (文本, #换行符, )
组合框QQ账号.清空 ()
.计次循环首 (取数组成员数 (分割), L)
组合框QQ账号.加入项目 (分割 [L], )
.计次循环尾 ()
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (信息框2 (“确定吗？删除的话，下次登陆很麻烦的哦！”, #询问图标 ＋ #确认取消钮, “确定吗？”) ＝ #取消钮)
返回 ()
.如果真结束
删除文件 (取运行目录 () ＋ “/QQ.dll”)
删除文件 (取运行目录 () ＋ “/QQkey.dll”)
组合框QQ账号.清空 ()
编辑框QQ密码.内容 ＝ “”
信息框 (“已经清空所有账号记录信息!”, #信息图标, “”)
.子程序 _编辑框QQ密码_获得焦点
编辑框QQ密码.内容 ＝ “”
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
分组框2.可视 ＝ 真
.子程序 _超文本浏览框1_即将跳转, 逻辑型
QQ农场辅助工具[E源码].rar
(1.42 MB, 下载次数: 2806)
|
-
|
[复制链接]
发表于 2011-4-20 01:23
|
发表于 2011-4-20 01:27
沙发自己做！
