麻烦各位大佬帮我优化一下这个程序，一个简单的签到程序

gzzsk1

感觉自己写的定时比较简陋，还有就是程序有点多 感觉多个程序都可以合并到一起，奈何自己没文化没办法进行那一步，麻烦各位大佬帮忙修改，非常感谢！！！
源码奉上
签到.e (974.47 KB, 下载次数: 16)

2024-2-15 03:10 上传

点击文件名下载附件
源码



麻烦不要修改我的多线程程序，因为我只懂这个 非常感谢 麻烦各位大佬了！

补充内容 (2024-2-15 03:15):
顶一下

喵藏

去安装一个 扩展界面支持库一Ex  支持库
把超级列表框用虚表，提高刷新效率
超级列表框的内容修改  改成修改全局变量  再单独开一个线程 把变量  置标题到超级列表框

gzzsk1

顶错了，重新顶一下

喵藏

我又来了，用鱼刺吧，简单好上手，直接全部投递任务就不用管了

qcby

地板说得对，整个鱼刺或者其他什么的直接多线程投递一两个子程序就写完了。

lzx5460

我就帮忙顶一下

gzzsk1

喵藏 发表于 2024-2-15 03:47
去安装一个 扩展界面支持库一Ex  支持库
把超级列表框用虚表，提高刷新效率
超级列表框的内容修改  改成修 ...

那个好像收费吧、

gzzsk1

喵藏 发表于 2024-2-15 03:44
我又来了，用鱼刺吧，简单好上手，直接全部投递任务就不用管了

鱼刺感觉比用许可证要难啊

补充内容 (2024-2-15 21:36):
我不会。。。。

喵藏

gzzsk1 发表于 2024-2-15 21:35
那个好像收费吧、

不用，少数功能用而已，大部分都不用

喵藏

gzzsk1 发表于 2024-2-15 21:36
鱼刺感觉比用许可证要难啊

补充内容 (2024-2-15 21:36):

鱼刺还是很简单的，
初始化一下   (一行代码)
然后投递任务就OK     (一行代码)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

初始化一鱼刺 ()

子程序名	返回值类型	公开	备 注
初始化一鱼刺

变量名	类 型	静态	数组	备 注
最小线程数	整数型
最大线程数	整数型

最小线程数 ＝ 5  ' 我一般默认
最大线程数 ＝ 10
线程池句柄 ＝ 线程池Ex_创建 (最小线程数, 最大线程数, , , , , , , , , , , , , , )

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

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

计次循环首 (20, 索引)  ' 20个任务
线程池Ex_投递任务 (线程池句柄, &要执行的线程, 索引, )
' 如果超过  初始化 设置的 最大线程数
' 会在后面排队
' 也可以通过调用 `线程池Ex_置_最大线程数()`来动态调整最大线程数
计次循环尾 ()

子程序名	返回值类型	公开	备 注
要执行的线程
参数名	类 型	参考	可空	数组	备 注
索引	整数型

' 线程内容

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 初始化一鱼刺 ()<br /> <br /> .子程序 初始化一鱼刺<br /> .局部变量 最小线程数, 整数型<br /> .局部变量 最大线程数, 整数型<br /> <br /> 最小线程数 ＝ 5  ' 我一般默认<br /> 最大线程数 ＝ 10<br /> 线程池句柄 ＝ 线程池Ex_创建 (最小线程数, 最大线程数, , , , , , , , , , , , , , )<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (20, 索引)  ' 20个任务<br />     线程池Ex_投递任务 (线程池句柄, &要执行的线程, 索引, )<br />     ' 如果超过  初始化 设置的 最大线程数<br />     ' 会在后面排队<br />     ' 也可以通过调用 `线程池Ex_置_最大线程数()`来动态调整最大线程数<br /> .计次循环尾 ()<br /> <br /> .子程序 要执行的线程<br /> .参数 索引, 整数型<br /> <br /> ' 线程内容