求一个限制多开数量的模块

zy0395

论坛里找了找，大神们给的例子我也封装不成模块~在这里求一个封装好的限制多开数量的模块，不要那种取进程名称改了名字一样多开的模块！



补充内容 (2024-4-3 10:02):
小弟新手，多谢各位

补充内容 (2024-4-3 10:15):
精易模块  程序_禁止重复运行（）这个只能限制一开，但是我想让程序只能3开或者5开，或者其他的数量

qq793359277

塞到精易模块里

  

子程序名	返回值类型	公开	备 注
限制多开数量			禁止当前程序多开运行
参数名	类 型	参考	可空	数组	备 注
标识文本	文本型				尽量输复杂一点的文本！反斜杠字符除外
限制数量	整数型
是否弹出信息框提示	逻辑型				默认为假,不弹出提示;
消息框提示文本	文本型				第二个参数设置为假,该参数则无效
消息框提示图标	整数型				默认为信息图标，如：#信息图标
是否前端显示程序	逻辑型				如果已重复运行,是否将程序在前端显示

变量名	类 型	静态	数组	备 注
局_句柄	整数型
局_数量	整数型
hEvent	整数型
i	整数型
已启动数量	整数型
空闲标识	整数型

如果真 (限制数量 ≤ 0)
限制数量 ＝ 1
如果真 (标识文本 ＝ “”)
标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止

计次循环首 (限制数量, i)
hEvent ＝ OpenEventA (2031619, 假, 标识文本 ＋ “_” ＋ 到文本 (i))
调试输出 (标识文本 ＋ “_” ＋ 到文本 (i), hEvent)
如果 (hEvent ≠ #NULL )
已启动数量 ＝ 已启动数量 ＋ 1
CloseHandle (hEvent)


CreateEvent ( #NULL, 假, 假, 标识文本 ＋ “_” ＋ 到文本 (i))
返回 ()

计次循环尾 ()
如果真 (已启动数量 ＝ 限制数量)
如果真 (是否弹出信息框提示)
如果真 (是否为空 (消息框提示文本))
消息框提示文本 ＝ “多开数量上限”
信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)
如果真 (是否前端显示程序)
局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())
如果真 (IsWindowVisible (局_句柄) ＝ 假)
窗口_强制显示 (局_句柄, 假)
如果真 (窗口_是否最小化 (局_句柄))
窗口_还原 (局_句柄)
窗口_激活 (局_句柄)

结束 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 限制多开数量, , 公开, 禁止当前程序多开运行<br /> .参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本！反斜杠字符除外<br /> .参数 限制数量, 整数型, 可空<br /> .参数 是否弹出信息框提示, 逻辑型, 可空, 默认为假,不弹出提示;<br /> .参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效<br /> .参数 消息框提示图标, 整数型, 可空, 默认为信息图标，如：#信息图标<br /> .参数 是否前端显示程序, 逻辑型, 可空, 如果已重复运行,是否将程序在前端显示<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 局_数量, 整数型<br /> .局部变量 hEvent, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 已启动数量, 整数型<br /> .局部变量 空闲标识, 整数型<br /> <br /> .如果真 (限制数量 ≤ 0)<br />     限制数量 ＝ 1<br /> .如果真结束<br /> .如果真 (标识文本 ＝ “”)<br />     标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止<br /> .如果真结束<br /> <br /> .计次循环首 (限制数量, i)<br />     hEvent ＝ OpenEventA (2031619, 假, 标识文本 ＋ “_” ＋ 到文本 (i))<br />     调试输出 (标识文本 ＋ “_” ＋ 到文本 (i), hEvent)<br />     .如果 (hEvent ≠ #NULL)<br />         已启动数量 ＝ 已启动数量 ＋ 1<br />         CloseHandle (hEvent)<br />     .否则<br /> <br />         CreateEvent (#NULL, 假, 假, 标识文本 ＋ “_” ＋ 到文本 (i))<br />         返回 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果真 (已启动数量 ＝ 限制数量)<br />     .如果真 (是否弹出信息框提示)<br />         .如果真 (是否为空 (消息框提示文本))<br />             消息框提示文本 ＝ “多开数量上限”<br />         .如果真结束<br />         信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)<br />     .如果真结束<br />     .如果真 (是否前端显示程序)<br />         局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())<br />         .如果真 (IsWindowVisible (局_句柄) ＝ 假)<br />             窗口_强制显示 (局_句柄, 假)<br />         .如果真结束<br />         .如果真 (窗口_是否最小化 (局_句柄))<br />             窗口_还原 (局_句柄)<br />         .如果真结束<br />         窗口_激活 (局_句柄)<br />     .如果真结束<br /> <br />     结束 ()<br /> .如果真结束

zy0395

最好有模块源码~多谢多谢

macrokk

程序_禁止重复运行（） 精易模块

wtflxk

精易模块  程序_禁止重复运行（）就是你需要的

zy0395

ncagzs 发表于 2024-4-3 10:03
精易模块  程序_禁止重复运行（）就是你需要的

这个不能限制多开数量，比如说我想让程序能开5个或者3个或者其他数量，

wtflxk

zy0395 发表于 2024-4-3 10:07
这个不能限制多开数量，比如说我想让程序能开5个或者3个或者其他数量，

额 我没看清 这也简单 通过你的窗口标题与类名计次 取句柄 并加到数组里面 最后计算一下这个数组成员数 大于或等于你的限制就关闭

补充内容 (2024-4-3 10:14):
为表歉意我给你写一个 等会

zy0395

macrokk 发表于 2024-4-3 10:02
程序_禁止重复运行（） 精易模块

这个不能限制多开数量，比如说我想让程序能开5个或者3个或者其他数量，

wtflxk

多开限制.e (5.41 KB, 下载次数: 11)

2024-4-3 10:25 上传

点击文件名下载附件

这就么写的。

补充内容 (2024-4-3 10:27):
这玩意就是你怎么改进程名也没用的写法 当然如果人家改你的标题 又能破了

mytiger

  

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

变量名	类 型	静态	数组	备 注
互斥标识	文本型		0
i	整数型
逻辑	逻辑型

互斥标识 ＝ { “标识1”, “标识2”, “标识3” }
计次循环首 (取数组成员数 (互斥标识), i)
如果真 (OpenEventA (2031619, 假, 互斥标识 [i]) ＝ 0)
CreateEventA (0, 假, 假, 互斥标识 [i])
逻辑 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (逻辑 ＝ 假)
信息框 (“超过多开限制”, 0, , )
结束 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕, , 公开<br /> .局部变量 互斥标识, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 逻辑, 逻辑型<br /> <br /> 互斥标识 ＝ { “标识1”, “标识2”, “标识3” }<br /> .计次循环首 (取数组成员数 (互斥标识), i)<br />     .如果真 (OpenEventA (2031619, 假, 互斥标识 <i>) ＝ 0)<br />         CreateEventA (0, 假, 假, 互斥标识 <i>)<br />         逻辑 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (逻辑 ＝ 假)<br />     信息框 (“超过多开限制”, 0, , )<br />     结束 ()