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

sphinxes

多副本.e (626.27 KB, 下载次数: 104)

2018-8-21 13:01 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
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 /> 线程_删除许可证 (计次许可证)

cgkj888

给里不错！！！！！！！！！！！！

凌哥

很捞

sphinxes

凌哥 发表于 2018-8-21 13:20
很捞

其实我发帖是想让你们帮我看看哪里还有问题

sampo

感谢楼主分享

易小黑编程

感谢楼主分享

carter09

支持开源，感谢分享~~

小观众

干什么用？？？

纯真少女

感谢楼主分享

mogenle

感谢分享，很给力！