QQ农场源码借用赚JB

a503012188

[e].版本 2
.支持库 script
.支持库 iext
.程序集 _启动窗口程序集
.程序集变量 最新版本, 文本型
.程序集变量 当前版本, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 账号信息, 文本型
.局部变量 密码信息, 文本型
组合框QQ账号.内容 ＝ 读配置项 (取运行目录 () ＋ “/zh.DAT”, “账号”, “你的账号：”, 账号信息)
编辑框QQ密码.内容 ＝ 读配置项 (取运行目录 () ＋ “/zh.DAT”, “账号”, “你的密码：”, 密码信息)
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
搜寻 (取运行目录 ())
子程序_应用皮肤 ()

.子程序 搜寻, , , 如提供搜索目录路径，将会搜索此目录所有在内的文件。
.参数 目录, 文本型, , 目录，如“C:\”盘。
.局部变量 文件名, 文本型
.局部变量 索引, 整数型
.局部变量 文件大小, 双精度小数型, , , MB
.局部变量 歌星, 文本型
.局部变量 歌名, 文本型
.局部变量 i, 整数型
.局部变量 局部_文件名, 文本型
局部_文件名 ＝ 读配置项 (取运行目录 () ＋ “\skin\sysset.ini”, “Skin”, “Value”, )
输出调试文本 (局部_文件名)
处理事件 ()  ' 给出机会以接收停止按钮事件，搜索时会占用程序的资源，使得延时处理其它事件，所要用：“处理事件（）”。
.如果 (取文本右边 (目录, 1) ≠ “\”)  ' 判断当前目录的格式是否正确。如“C:”,这格式是不正确的,改为"C:\"。
    目录 ＝ 目录 ＋ “\” ＋ “skin\”
.否则
    目录 ＝ 目录 ＋ “skin\”
.如果结束
文件名 ＝ 寻找文件 (目录 ＋ “*.msstyles”, )  ' “如：*.mp3”搜索MP3文件，“*.*”搜索所有文件。
.判断循环首 (文件名 ≠ “”)  ' 判断文件名是否有效，有效向下执行搜索。
    i ＝ i ＋ 1
    组合框1.加入项目 (文件名, i)
    .如果真 (文件名 ＝ 局部_文件名)
        组合框1.现行选中项 ＝ i
    .如果真结束
    文件名 ＝ 寻找文件 (, )  ' 继续搜寻文件
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)  ' 搜寻目录文件，包括子目录。
.判断循环首 (文件名 ≠ “”)  ' 判断目录名是否有效，有效向下执行搜索。
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)
        搜寻 (目录 ＋ 文件名)  ' 如果寻找到目录路径就搜继续搜索文件。
    .如果真结束
    文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

.子程序 _画板验证码_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.子程序 _登陆按钮_被单击
.局部变量 登陆返回临时数据, 字节集
脚本组件.执行 (#md5)  ' QQ网页登陆密码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)
    写用户信息 ()
    载入 (窗口_主要, , 假)
    加载标签.标题 ＝ “加载完成”
    _启动窗口.销毁 ()
    初始化 ()
    读取我的信息 ()
    创建目录 (取运行目录 () ＋ “/user/”)

.否则
    信息框 (“登录出错，请检查你输入是否正确！”, #错误图标, “提示”)
    画板验证码.底图 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.如果结束

.子程序 写用户信息
到首记录 ()
.判断开始 (查找 (读 (“id”) ＝ 删首尾空 (组合框QQ账号.内容)) ＝ 假)
    加记录 (删首尾空 (组合框QQ账号.内容), 删首尾空 (编辑框QQ密码.内容))
.默认
.判断结束

.子程序 读用户信息
.局部变量 i, 整数型
到首记录 ()
.计次循环首 (取记录数 (), i)
    组合框QQ账号.加入项目 (读 (“id”), i)
    跳过 ()
.计次循环尾 ()
.子程序 _组合框QQ账号_列表项被选择
到首记录 ()
.判断开始 (查找 (读 (“id”) ＝ 删首尾空 (组合框QQ账号.内容)) ＝ 真)
    编辑框QQ密码.内容 ＝ 读 (“pass”)
.默认
.判断结束

.子程序 _按钮10_被单击
按钮10.禁止 ＝ 真
删除文件 (取当前目录 () ＋ “/zh.DAT”)
按钮10.标题 ＝ “已清空”

.子程序 __启动窗口_将被销毁
关闭 (“usedate”)
.子程序 _选择框1_被单击
.局部变量 账号信息, 文本型
.局部变量 密码信息, 文本型
选择框1.禁止 ＝ 真
删除文件 (取当前目录 () ＋ “/zh.DAT”)
账号信息 ＝ 组合框QQ账号.内容
密码信息 ＝ 编辑框QQ密码.内容
写配置项 (取运行目录 () ＋ “/zh.DAT”, “账号”, “你的账号：”, 账号信息)
写配置项 (取运行目录 () ＋ “/zh.DAT”, “账号”, “你的密码：”, 密码信息)
选择框1.标题 ＝ “重启软件后生效”

.子程序 子程序_应用皮肤
.局部变量 局部_文件名, 文本型
局部_文件名 ＝ 读配置项 (取运行目录 () ＋ “\skin\sysset.ini”, “Skin”, “Value”, )
装载皮肤 (“”, “”, 取运行目录 () ＋ “\skin\” ＋ 局部_文件名)
.子程序 子程序_更换界面皮肤
.局部变量 局部_皮肤文件, 文本型
.局部变量 局部_配置文件, 文本型
局部_皮肤文件 ＝ 取运行目录 () ＋ “\skin\” ＋ 组合框1.取项目文本 (组合框1.现行选中项)
更换皮肤 (局部_皮肤文件)
局部_配置文件 ＝ 取运行目录 () ＋ “\skin\sysset.ini”
写配置项 (局部_配置文件, “Skin”, “Value”, 组合框1.取项目文本 (组合框1.现行选中项))

.子程序 _组合框1_列表项被选择
子程序_更换界面皮肤 ()
[/e]