YY频道提取YYID源码

.版本 2
.支持库 EDataStructure
.支持库 edroptarget
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 hOldWndProc, 整数型
.程序集变量 long, 整数型
.程序集变量 add节点, 节点
.程序集变量 YY节点, 节点

.子程序 _窗口1_创建完毕

Creaate ()

.子程序 _窗口1_将被销毁



.子程序 Creaate

long ＝ 标签long.取窗口句柄 ()
hOldWndProc ＝ SetWindowLong (long, -4, 到数值 (&处理函数))
拖放对象1.注册拖放控件 (窗口1.取窗口句柄 ())
_拖放对象1_得到文件 (取运行目录 () ＋ “未完成账号.txt”)

.子程序 _按钮清空_被单击

liveYY.全部删除 ()

.子程序 _按钮导入_被单击

OpenDialog.类型 ＝ 0
OpenDialog.初始目录 ＝ 取运行目录 ()
OpenDialog.过滤器 ＝ “文本文件(*.txt)|*.txt”
.如果真 (OpenDialog.打开 ())
    线程_启动 (&Insert)
    ' 导入 ＝ 真
.如果真结束


.子程序 处理函数, 整数型
.参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
.参数 wMsg, 整数型, , 消息的标识符
.参数 peid, 整数型, , 具体取决于消息
.参数 addeax, 整数型, , 具体取决于消息;
.局部变量 xx, 整数型
.局部变量 addyy, 整数型
.局部变量 handle, 整数型

.如果真 (wMsg ＝ 4097)
    .如果真 (addeax ＞ 0)
        add节点.加入属性 (进制_十到十六 (addeax), 到文本 (peid))
    .如果真结束

.如果真结束

返回 (CallWindowProcA (hOldWndProc, hwnd, wMsg, peid, addeax))

.子程序 _按钮start_被单击

start ()

.子程序 start
.局部变量 YYPID, 整数型, , "0"
.局部变量 I
.局部变量 N
.局部变量 ADD, 整数型
.局部变量 PEID, 整数型
.局部变量 bool, 逻辑型

I ＝ 进程_取ID数组 (“YY.EXE”, YYPID, 假)
.如果真 (I ＝ 0)
    log (“YY.exe没有运行”)
    返回 ()
.如果真结束
.' 如果真 (CreateDM () ＝ 假)
    ' 返回 ()
.如果真结束
.计次循环首 (I, N)
    PEID ＝ YYPID [N]
    ADD ＝ Getyyadd (PEID)
    调试输出 (进制_十到十六 (ADD))
    .如果真 (ADD ＞ 0)
        bool ＝ 线程_DLLYY (PEID, 取运行目录 () ＋ “lol.dll”, “Load”, ADD, long, PEID)
    .如果真结束

.计次循环尾 ()
.如果真 (bool ＝ 真)
    时钟1.时钟周期 ＝ 3000
.如果真结束
WORKID ＝ 线程_启动 (&work)

.子程序 work
.局部变量 user, 文本型
.局部变量 pass, 文本型
.局部变量 帐号总数, 整数型
.局部变量 N, 整数型
.局部变量 当前, 整数型

帐号总数 ＝ list.取表项数 ()
.计次循环首 (帐号总数, N)
    当前 ＝ N － 1
    user ＝ list.取标题 (当前, 1)
    pass ＝ list.取标题 (当前, 2)
    kp_登陆帐号 (user, pass)
    调试输出 (user, pass)
.计次循环尾 ()

.子程序 _时钟1_周期事件

读取YY子程序 ()

.子程序 读取YY子程序
.局部变量 addarr, 文本型, , "0"
.局部变量 add总数, 整数型
.局部变量 N, 整数型
.局部变量 PEID, 文本型
.局部变量 YYadd, 文本型
.局部变量 IDYY, 整数型
.局部变量 bzid, 整数型
.局部变量 YY, 文本型

add节点.取全部属性名 (addarr)
add总数 ＝ 取数组成员数 (addarr)
.计次循环首 (add总数, N)
    YYadd ＝ addarr [N]
    add节点.取文本值 (YYadd, PEID)
    .如果真 (读内存YY (到整数 (PEID), 进制_十六到十 (YYadd), IDYY, bzid))
        add节点.删除属性 (YYadd)
        .如果真 (IDYY ＞ 100000 且 bzid ＜ 256)
            YY ＝ 到文本 (IDYY)
            .如果 (选择框过.选中 ＝ 真)
                .如果真 (过滤YY号 (YY) ＝ 假)
                    showYY (YY)
                .如果真结束

            .否则
                showYY (YY)
            .如果结束

        .如果真结束

    .如果真结束

.计次循环尾 ()

.子程序 showYY
.参数 st, 文本型
.局部变量 xx, 整数型
.局部变量 I, 整数型
.局部变量 ARR, 文本型, , "0"
.局部变量 N, 整数型
.局部变量 YYB, 文本型

xx ＝ liveYY.插入表项 (-1, , , , , )
liveYY.置标题 (xx, 0, st)

.子程序 过滤YY颜色, 逻辑型
.参数 bzid, 整数型
.局部变量 bool, 逻辑型

' bool ＝ 假
.判断开始 (bzid ＝ 25)
    .如果真 (选择框白.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 66)
    .如果真 (选择框绿.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 88)
    .如果真 (选择框亮.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 100)
    .如果真 (选择框蓝.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 150)
    .如果真 (选择框粉.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 175)
    .如果真 (选择框红.选中 ＝ 真)
        返回 (真)
    .如果真结束


.判断 (bzid ＝ 200)
    .如果真 (选择框黄.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 230)
    .如果真 (选择框橙.选中 ＝ 真)
        返回 (真)
    .如果真结束

.判断 (bzid ＝ 255)
    .如果真 (选择框紫.选中 ＝ 真)
        返回 (真)
    .如果真结束

.默认
    返回 (假)
.判断结束
返回 (假)

.子程序 _按钮导出_被单击
.局部变量 arr, 文本型, , "0"
.局部变量 I
.局部变量 tFileh
.局部变量 YY, 文本型
.局部变量 N, 整数型

tFileh ＝ 打开文件 (取运行目录 () ＋ “” ＋ 到文本 (取时间部分 (取现行时间 (), 5)) ＋ “未加完.txt”, 5, 1)
I ＝ liveYY.取表项数 ()
.计次循环首 (I, N)
    YY ＝ liveYY.取标题 (N － 1, 0)
    写文本行 (tFileh, YY)
.计次循环尾 ()
关闭文件 (tFileh)
log (“未加完的YY号保存完毕”)