100块钱订做的多线程提交分享给大家欢迎指出错误优化 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
SubHwnd	整数型		主线程句柄
ChildHwnd	整数型	0	子线程句柄
TheardNum	整数型		线程数
TaskNum_Start	整数型		任务起始数
TaskNum_End	整数型		任务结束数
Index	整数型		任务索引
许可证	线程许可证
Task_Ok	整数型		已完成任务
计次许可证	线程许可证

子程序名	返回值类型	公开	备注
_按钮1_被单击

按钮1.禁止＝真
时钟1.时钟周期＝ 1000
TaskNum_Start ＝到整数 (编辑框4.内容)
TaskNum_End ＝到整数 (编辑框5.内容)
TheardNum ＝到整数 (编辑框6.内容)
Task_Ok ＝ 0

如果真 (TheardNum ≤ 0)

信息框 (“线程数不能小于0”, 0, , )

返回 ()

如果真 (TaskNum_End ≤ TaskNum_Start)

信息框 (“任务结束值不能小于等于起始值”, 0, , )

返回 ()
重定义数组 (ChildHwnd, 假, TheardNum)
许可证＝线程_创建许可证 ()
计次许可证＝线程_创建许可证 ()
SubHwnd ＝线程_启动 (&主线程)

子程序名	返回值类型	公开	备注
主线程

变量名	类型	静态	数组	备注
i	整数型
startTime	长整数型

Index ＝ TaskNum_Start － 1
startTime ＝取启动时间 ()

计次循环首 (TheardNum, i)

ChildHwnd [i] ＝线程_启动 (&子线程)

处理事件 ()

计次循环尾 ()

判断循环首 (Task_Ok ＜ TaskNum_End － TaskNum_Start)

程序_延时 (1000)

判断循环尾 ()
线程_删除许可证 (许可证)
线程_删除许可证 (计次许可证)
信息框 (“全部完成，用时：” ＋到文本 (取启动时间 () － startTime) ＋ “毫秒”, 0, , )

子程序名	返回值类型	公开	备注
子线程

变量名	类型	静态	数组	备注
lin_Index	整数型
url	文本型
body	文本型
str	文本型
message	文本型
验证码	文本型
提交数据	文本型
sy	整数型

url ＝删全部空 (编辑框1.内容)

判断循环首 (真)

线程_进入许可区 (许可证)

Index ＝ Index ＋ 1

lin_Index ＝ Index

线程_退出许可区 (许可证)

如果真 (lin_Index ＞ TaskNum_End 或 Task_Ok ＞ TaskNum_End － TaskNum_Start)

跳出循环 ()

提交数据＝编辑框2.内容

验证码＝到文本 (lin_Index)

body ＝提交数据＋验证码

str ＝编码_Utf8到Ansi (网页_访问 (url, 1, body))

' 调试输出 (str)

message ＝文本_取出中间文本 (str, “span style=” ＋ #引号＋ “color:red” ＋ #引号＋ “>”, “”, )

调试输出 (“当前数据：第” ＋到文本 (lin_Index) ＋ “条，验证码：” ＋验证码＋ “，返回结果：” ＋ message)

如果 (message ＝ “校验码失效，请重新获取”)

线程_进入许可区 (计次许可证)

Task_Ok ＝ TaskNum_End － TaskNum_Start

线程_退出许可区 (计次许可证)

跳出循环 ()

线程_进入许可区 (计次许可证)

Task_Ok ＝ Task_Ok ＋ 1

编辑框3.内容＝验证码

编辑框7.内容＝ message

线程_退出许可区 (计次许可证)

处理事件 ()

判断循环尾 ()

子程序名	返回值类型	公开	备注
_时钟1_周期事件

处理事件 ()
编辑框8.内容＝到文本 (到整数 (编辑框8.内容) ＋ 1)

子程序名	返回值类型	公开	备注
_按钮2_被单击

变量名	类型	静态	数组	备注
i	整数型

如果 (按钮2.标题＝ “暂停提交”)

按钮2.标题＝ “继续提交”

线程_挂起 (SubHwnd)

计次循环首 (TheardNum, i)

线程_挂起 (ChildHwnd [i])

计次循环尾 ()

按钮2.标题＝ “暂停提交”

线程_恢复 (SubHwnd)

计次循环首 (TheardNum, i)

线程_恢复 (ChildHwnd [i])

计次循环尾 ()

子程序名	返回值类型	公开	备注
_按钮3_被单击

变量名	类型	静态	数组	备注
i	整数型

连续赋值 (真, 按钮1.禁止, 按钮2.禁止, 按钮3.禁止)
线程_销毁 (SubHwnd)

计次循环首 (TheardNum, i)

线程_销毁 (ChildHwnd [i])

计次循环尾 ()
线程_删除许可证 (许可证)
线程_删除许可证 (计次许可证)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 SubHwnd, 整数型, , , 主线程句柄<br />
.程序集变量 ChildHwnd, 整数型, , "0", 子线程句柄<br />
.程序集变量 TheardNum, 整数型, , , 线程数<br />
.程序集变量 TaskNum_Start, 整数型, , , 任务起始数<br />
.程序集变量 TaskNum_End, 整数型, , , 任务结束数<br />
.程序集变量 Index, 整数型, , , 任务索引<br />
.程序集变量 许可证, 线程许可证<br />
.程序集变量 Task_Ok, 整数型, , , 已完成任务<br />
.程序集变量 计次许可证, 线程许可证<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
按钮1.禁止 ＝ 真<br />
时钟1.时钟周期 ＝ 1000<br />
TaskNum_Start ＝ 到整数 (编辑框4.内容)<br />
TaskNum_End ＝ 到整数 (编辑框5.内容)<br />
TheardNum ＝ 到整数 (编辑框6.内容)<br />
Task_Ok ＝ 0<br />
.如果真 (TheardNum ≤ 0)<br />
    信息框 (“线程数不能小于0”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (TaskNum_End ≤ TaskNum_Start)<br />
    信息框 (“任务结束值不能小于等于起始值”, 0, , )<br />
    返回 ()<br />
<br />
.如果真结束<br />
重定义数组 (ChildHwnd, 假, TheardNum)<br />
许可证 ＝ 线程_创建许可证 ()<br />
计次许可证 ＝ 线程_创建许可证 ()<br />
SubHwnd ＝ 线程_启动 (&主线程)<br />
<br />
.子程序 主线程<br />
.局部变量 i, 整数型<br />
.局部变量 startTime, 长整数型<br />
<br />
Index ＝ TaskNum_Start － 1<br />
startTime ＝ 取启动时间 ()<br />
.计次循环首 (TheardNum, i)<br />
    ChildHwnd <i> ＝ 线程_启动 (&子线程)<br />
    处理事件 ()<br />
.计次循环尾 ()<br />
.判断循环首 (Task_Ok ＜ TaskNum_End － TaskNum_Start)<br />
    程序_延时 (1000)<br />
.判断循环尾 ()<br />
线程_删除许可证 (许可证)<br />
线程_删除许可证 (计次许可证)<br />
信息框 (“全部完成，用时：” ＋ 到文本 (取启动时间 () － startTime) ＋ “毫秒”, 0, , )<br />
<br />
<br />
.子程序 子线程<br />
.局部变量 lin_Index, 整数型<br />
.局部变量 url, 文本型<br />
.局部变量 body, 文本型<br />
.局部变量 str, 文本型<br />
.局部变量 message, 文本型<br />
.局部变量 验证码, 文本型<br />
.局部变量 提交数据, 文本型<br />
.局部变量 sy, 整数型<br />
<br />
url ＝ 删全部空 (编辑框1.内容)<br />
.判断循环首 (真)<br />
    线程_进入许可区 (许可证)<br />
    Index ＝ Index ＋ 1<br />
    lin_Index ＝ Index<br />
    线程_退出许可区 (许可证)<br />
    .如果真 (lin_Index ＞ TaskNum_End 或 Task_Ok ＞ TaskNum_End － TaskNum_Start)<br />
        跳出循环 ()<br />
    .如果真结束<br />
<br />
    提交数据 ＝ 编辑框2.内容<br />
    验证码 ＝ 到文本 (lin_Index)<br />
    body ＝ 提交数据 ＋ 验证码<br />
    str ＝ 编码_Utf8到Ansi (网页_访问 (url, 1, body))<br />
<br />
    ' 调试输出 (str)<br />
    message ＝ 文本_取出中间文本 (str, “span style=” ＋ #引号 ＋ “color:red” ＋ #引号 ＋ “>”, “”, )<br />
<br />
    调试输出 (“当前数据：第” ＋ 到文本 (lin_Index) ＋ “条，验证码：” ＋ 验证码 ＋ “，返回结果：” ＋ message)<br />
    .如果 (message ＝ “校验码失效，请重新获取”)<br />
        线程_进入许可区 (计次许可证)<br />
        Task_Ok ＝ TaskNum_End － TaskNum_Start<br />
        线程_退出许可区 (计次许可证)<br />
        跳出循环 ()<br />
<br />
    .否则<br />
        线程_进入许可区 (计次许可证)<br />
        Task_Ok ＝ Task_Ok ＋ 1<br />
        编辑框3.内容 ＝ 验证码<br />
        编辑框7.内容 ＝ message<br />
        线程_退出许可区 (计次许可证)<br />
    .如果结束<br />
<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
处理事件 ()<br />
编辑框8.内容 ＝ 到文本 (到整数 (编辑框8.内容) ＋ 1)<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 i, 整数型<br />
<br />
.如果 (按钮2.标题 ＝ “暂停提交”)<br />
    按钮2.标题 ＝ “继续提交”<br />
    线程_挂起 (SubHwnd)<br />
    .计次循环首 (TheardNum, i)<br />
        线程_挂起 (ChildHwnd <i>)<br />
    .计次循环尾 ()<br />
.否则<br />
    按钮2.标题 ＝ “暂停提交”<br />
    线程_恢复 (SubHwnd)<br />
    .计次循环首 (TheardNum, i)<br />
        线程_恢复 (ChildHwnd <i>)<br />
    .计次循环尾 ()<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮3_被单击<br />
.局部变量 i, 整数型<br />
<br />
连续赋值 (真, 按钮1.禁止, 按钮2.禁止, 按钮3.禁止)<br />
线程_销毁 (SubHwnd)<br />
.计次循环首 (TheardNum, i)<br />
    线程_销毁 (ChildHwnd <i>)<br />
.计次循环尾 ()<br />
线程_删除许可证 (许可证)<br />
线程_删除许可证 (计次许可证)