.版本 2
.支持库 CommonSupport
re = 线程池.创建 (&Main, &回调函数, 5, 10)
.如果真 (re = 假)
Log (“创建线程池失败,请重试”)
SQL连接池.销毁连接池 ()
返回 ()
变量名 | 类 型 | 静态 | 数组 | 备 注 | u | 整数型 | | | re | 逻辑型 | | | c | 文本型 | | | Log (“进入预执行子程序”)如果真 (Select_info (Now_time, index ) = 假)Log (“预执行失败”)返回 ()计次循环首 (index, u )re = 线程池. 投递任务 (u )如果真 (re = 假)调试输出 (“请先创建线程池”)跳出循环 ()处理事件 ()计次循环尾 ()Log (“等待任务完成”)判断循环首 (线程池. 取状态 () ≠ 2 )如果真 (线程池. 取状态 () = 2 )跳出循环 ()处理事件 ()判断循环尾 ()重定义数组 (Server_user, 假, 0 )c = 时间_到文本 (时间_取北京时间 (), 1, 4 )判断循环首 (c = Now_time )c = 时间_到文本 (时间_取北京时间 (), 1, 4 )如果真 (c ≠ Now_time )跳出循环 ()处理事件 ()判断循环尾 ()Log (“此次任务已全部完成,准备下一次任务”)heart_time = 0 判断循环首 (定时器. 创建 (&定时器周期事件, 1000 ) = 假)如果真 (定时器. 创建 (&定时器周期事件, 1000 ) = 真)跳出循环 ()处理事件 ()判断循环尾 ()
东西有点大 关联部分也就这点代码。。。
|