运行时出错,分配1048584字节出错
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 json, zyJsonValue
.程序集变量 QQAPI, 类_CQAPI
.程序集变量 Y_XC, 鱼刺类_线程池Ex
.程序集变量 Y_LJ, 鱼刺类_临界许可
.程序集变量 线程句柄, 整数型
.子程序 _开始监控_被单击
启动线程 (&线程控制, , 线程句柄)
.子程序 线程控制
.局部变量 线程数量, 整数型
线程_置处理器关系 (线程句柄, )
线程数量 = 1
.如果真 (Y_XC.创建 (线程数量, 线程数量, , , , , ) ≠ 真)
log (“线程创建失败,请重新开始”)
返回 ()
.如果真结束
.判断循环首 (线程数量 > 0)
.如果真 (Y_XC.取_空闲线程数 () > 0)
Y_XC.投递任务 (&主程序, , )
.如果真结束
_延时 (1000)
_处理事件 ()
.判断循环尾 ()
Y_XC.销毁 (1, )
.子程序 主程序
.局部变量 url, 文本型
.局部变量 post, 文本型
.局部变量 返回, 文本型
.局部变量 IP, 文本型
.局部变量 代理, 文本型
.局部变量 协议头, 文本型
.局部变量 内容, 文本型
post = “{}”
url =
返回 = 编码_Utf8到Ansi (网页_访问_对象 (url, 1, post, , , #协议头, , , , , , , , , , , , , ))
调试输出 (返回)
QQAPI.发送消息 (“group ”, , “804446513”, “可登陆” + 时间_到文本 (, , 3), , )
.如果 (寻找文本 (返回, “true”, , 假) ≠ -1)
log (“成功” + 时间_到文本 (, , 3) + #换行符)
.否则
.如果结束
_延时 (300000)
处理事件 ()
|