多线程框架源码

by；搜百度

  

子程序名	返回值类型	公开	备 注
_工作线程池

变量名	类 型	静态	数组	备 注
bool	逻辑型
int	整数型
保存代理文本	鱼刺类_输出文本
代理信息	文本型
代理智能提取信息	代理智能提取信息
文件尺寸	整数型
快速文本	快速文本对象
文本数组	文本型		0
i	整数型

主窗口.按钮_启动.标题 ＝ “启动中..”
' 控制工作并发线程 防止超限派发任务
如果真 (到整数 (主窗口.编辑框_工作并发线程.内容) ＞ 到整数 (主窗口.编辑框_运行限制.内容) 且 到整数 (主窗口.编辑框_运行限制.内容) ≠ 0)
主窗口.编辑框_工作并发线程.内容 ＝ 主窗口.编辑框_运行限制.内容

如果真 (_配置更新 () ＝ 假)
_输出运行日志 (“配置参数异常！”, 2)
主窗口.按钮_启动.标题 ＝ “启动”
主窗口.按钮_启动.禁止 ＝ 假
返回 ()

如果真 (配置_智能代理提取 ＝ 真)
如果真 (文件是否存在 (取运行目录 () ＋ “\Config_Proxy.ini”) ＝ 假)
写到文件 (取运行目录 () ＋ “\Config_Proxy.ini”, 到字节集 ( #proxy ))

写配置项 (取运行目录 () ＋ “\Config_Proxy.ini”, “Proxy_Bints”, “提取地址”, 配置_代理提取地址)
bool ＝ 代理智能提取_创建 ()
如果真 (bool ＝ 假 且 代理智能提取_取状态 () ≠ 1)
主窗口.画板_运行日志.文本颜色 ＝ #红色
主窗口.画板_运行日志.滚动写行 (_文本取时分秒 () ＋ “ ” ＋ “初始化Config_Proxy.ini失败！”)
主窗口.按钮_启动.标题 ＝ “启动”
主窗口.按钮_启动.禁止 ＝ 假
返回 ()

' 读取上次保存的代理
如果真 (文件是否存在 (取运行目录 () ＋ “\proxy.log”) ＝ 真)
文件尺寸 ＝ 取文件尺寸 (取运行目录 () ＋ “\proxy.log”)
快速文本.置可用内存 (文件尺寸 × 3, 文件尺寸 × 3)  ' 置可用内存 多过文本的3倍 分割速度更快
快速文本.从文件读 (取运行目录 () ＋ “\proxy.log”)
文本数组 ＝ 快速文本.分割文本 ( #换行符, )
快速文本.清除文本 ()
计次循环首 (取数组成员数 (文本数组), i)
代理智能提取_自压入代理 (文本数组 [i], , )
_延时 (配置_全局延时)
计次循环尾 ()
删除文件 (取运行目录 () ＋ “\proxy.log”)


bool ＝ 工作线程池.创建 (配置_工作并发线程, 配置_工作并发线程, , , 1024 × 128)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 _工作线程池<br /> .局部变量 bool, 逻辑型<br /> .局部变量 int, 整数型<br /> .局部变量 保存代理文本, 鱼刺类_输出文本<br /> .局部变量 代理信息, 文本型<br /> .局部变量 代理智能提取信息, 代理智能提取信息<br /> .局部变量 文件尺寸, 整数型<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 主窗口.按钮_启动.标题 ＝ “启动中..”<br /> <br /> ' 控制工作并发线程 防止超限派发任务<br /> .如果真 (到整数 (主窗口.编辑框_工作并发线程.内容) ＞ 到整数 (主窗口.编辑框_运行限制.内容) 且 到整数 (主窗口.编辑框_运行限制.内容) ≠ 0)<br />     主窗口.编辑框_工作并发线程.内容 ＝ 主窗口.编辑框_运行限制.内容<br /> .如果真结束<br /> <br /> .如果真 (_配置更新 () ＝ 假)<br />     _输出运行日志 (“配置参数异常！”, 2)<br />     主窗口.按钮_启动.标题 ＝ “启动”<br />     主窗口.按钮_启动.禁止 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (配置_智能代理提取 ＝ 真)<br />     .如果真 (文件是否存在 (取运行目录 () ＋ “\Config_Proxy.ini”) ＝ 假)<br />         写到文件 (取运行目录 () ＋ “\Config_Proxy.ini”, 到字节集 (#proxy))<br />     .如果真结束<br /> <br />     写配置项 (取运行目录 () ＋ “\Config_Proxy.ini”, “Proxy_Bints”, “提取地址”, 配置_代理提取地址)<br /> <br />     bool ＝ 代理智能提取_创建 ()<br /> <br />     .如果真 (bool ＝ 假 且 代理智能提取_取状态 () ≠ 1)<br />         主窗口.画板_运行日志.文本颜色 ＝ #红色<br />         主窗口.画板_运行日志.滚动写行 (_文本取时分秒 () ＋ “ ” ＋ “初始化Config_Proxy.ini失败！”)<br />         主窗口.按钮_启动.标题 ＝ “启动”<br />         主窗口.按钮_启动.禁止 ＝ 假<br />         返回 ()<br />     .如果真结束<br /> <br />     ' 读取上次保存的代理<br />     .如果真 (文件是否存在 (取运行目录 () ＋ “\proxy.log”) ＝ 真)<br />         文件尺寸 ＝ 取文件尺寸 (取运行目录 () ＋ “\proxy.log”)<br />         快速文本.置可用内存 (文件尺寸 × 3, 文件尺寸 × 3)  ' 置可用内存 多过文本的3倍 分割速度更快<br />         快速文本.从文件读 (取运行目录 () ＋ “\proxy.log”)<br />         文本数组 ＝ 快速文本.分割文本 (#换行符, )<br />         快速文本.清除文本 ()<br />         .计次循环首 (取数组成员数 (文本数组), i)<br />             代理智能提取_自压入代理 (文本数组 <i>, , )<br />             _延时 (配置_全局延时)<br />         .计次循环尾 ()<br />         删除文件 (取运行目录 () ＋ “\proxy.log”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> bool ＝ 工作线程池.创建 (配置_工作并发线程, 配置_工作并发线程, , , 1024 × 128)

[南方]

你这不是搬运鱼刺的吗

﹎z°

下来看看。

xj1314520

模块可以放一起么。。

xiaohuan

虽然现在还是看不懂，不过还是先收藏一下吧，方便以后学习用到

qjw520

模块能放一起？

bbs592

模块能放一起？

sampo

鱼刺类似好像不少啊。话说，你分开这么多包，哪有那么多精币啊@！

sostemp

支持开源~！感谢分享

toshiteru

支持开源~！感谢分享