exe程序多开问题

fire9

就是我用e整一个exe，如何不能让它双开或躲开（就跟VX一样）。请教一下大佬们

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=13944899

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
hs	整数型
jg	整数型

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

hs ＝ OpenSemaphore (2031619, 假, “限制多开”)
如果真 (hs ＝ 0)
hs ＝ CreateSemaphore (0, 5, 5, “限制多开”)  ' 多开数量2，2
jg ＝ WaitForSingleObject (hs, 0)
如果真 (jg ≠ 0)
信息框 (“程序只能打开两个”, 0, , )
结束 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

ReleaseSemaphore (hs, 1, 0)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 hs, 整数型<br /> .程序集变量 jg, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> hs ＝ OpenSemaphore (2031619, 假, “限制多开”)<br /> .如果真 (hs ＝ 0)<br />     hs ＝ CreateSemaphore (0, 5, 5, “限制多开”)  ' 多开数量2，2<br /> .如果真结束<br /> jg ＝ WaitForSingleObject (hs, 0)<br /> .如果真 (jg ≠ 0)<br />     信息框 (“程序只能打开两个”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> ReleaseSemaphore (hs, 1, 0)

补充内容 (2024-4-11 18:13):
hs ＝ CreateSemaphore (0, 2, 2, “限制多开”)  ' 多开数量2，2

Marvin

程序_禁止重复运行 (“5e3da7c60b59cbfac5e40516064a3262”, 真, “请勿重复启动程序”)



或是这个也可以

SK在线

互斥体！！！