快手号批量转快手ID源码

.版本 2
.支持库 iext
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 许可, 整数型
.程序集变量 信号量, 整数型
.程序集变量 主线程句柄, 整数型
.程序集变量 状态, 整数型

.子程序 _按钮1_被单击
.局部变量 数据, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 分隔符, 文本型
.局部变量 位置a, 整数型
.局部变量 帐号, 文本型
.局部变量 密码, 文本型
.局部变量 数量, 整数型
.局部变量 索引, 整数型

.如果真 (通用对话框1.打开 ())
    数据 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    文本 ＝ 分割文本 (数据, #换行符, )
    .计次循环首 (取数组成员数 (文本), 计次)
        .如果真 (文本 [计次] ≠ “”)
            数量 ＝ 数量 ＋ 1

            帐号 ＝ 文本 [计次]
            索引 ＝ 超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (索引, 0, 到文本 (超级列表框1.取表项数 ()))
            超级列表框1.置标题 (索引, 1, 帐号)
        .如果真结束
        处理事件 ()
    .计次循环尾 ()
.如果真结束


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

状态 ＝ 1
启动线程 (&开始执行, , 主线程句柄)
许可 ＝ 创建进入许可证 ()
' 启动线程 (&开始, , )

.子程序 开始
.局部变量 i, 整数型
.局部变量 t, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    查询 (i － 1)
.计次循环尾 ()

.子程序 开始执行
.局部变量 计次, 整数型
.局部变量 句柄, 整数型

信号量 ＝ 信号量_申请 (到整数 (1), 到整数 (1))
.计次循环首 (超级列表框1.取表项数 (), 计次)
    信号量_递减 (信号量)
    启动线程 (&查询, 计次, 句柄)

    延时_ (3000)

    关闭线程句柄 (句柄)
    延时 (0)
    优化内存 ()
.计次循环尾 ()
延时_ (1000)
信号量_释放 (信号量)


.子程序 查询
.参数 索引, 整数型
.局部变量 快手号码, 文本型
.局部变量 返回ID, 文本型

快手号码 ＝ 超级列表框1.取标题 (索引 － 1, 1)
.如果真 (状态 ＝ 1)
    取QQ资料 (快手号码, 返回ID)
    .如果真 (返回ID ≠ “”)
        超级列表框1.置标题 (索引 － 1, 2, 返回ID)
    .如果真结束

    进入许可区 (许可)
    退出许可区 (许可)
    信号量_递增 (信号量)

.如果真结束
.如果真 (状态 ＝ 0)
    取QQ资料 (编辑框2.内容, 返回ID)
    编辑框3.内容 ＝ 返回ID
.如果真结束


.子程序 取QQ资料, , 公开
.参数 快手号码, 文本型
.参数 返回ID, 文本型
.局部变量 网址参数, 文本型
.局部变量 提交数据, 文本型
.局部变量 采集ID, 文本型
.局部变量 返回文本, 文本型

返回文本 ＝ 网页_访问S (“http://gifshow.3agzs.com/rest/n/user/search?&token=0-0&count=10&user_name=” ＋ 快手号码)

返回ID ＝ 文本_取出中间文本 (返回文本, #数字前, #数字后)
调试输出 (返回文本)
调试输出 (快手号码 ＋ “----” ＋ 返回ID)

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



.子程序 _按钮3_被单击
.局部变量 i, 整数型
.局部变量 文本, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)
    文本 ＝ 文本 ＋ 超级列表框1.取标题 (i, 1) ＋ “----” ＋ 超级列表框1.取标题 (i, 2) ＋ #换行符
.计次循环尾 ()

写到文件 (取运行目录 () ＋ “” ＋ 到文本 (取现行时间 ()) ＋ “text.txt”, 到字节集 (文本))

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

状态 ＝ 0
启动线程 (&查询, , )

@三叶资源网