帮简单修改下

360云盘

大佬们 附件中的代码是禁止重复运行，哪位大佬帮改成 发现重复运行时候结束掉旧版本，运行新版本（不能按程序名 因为可能不一样）

baitso

把窗口类名改一下

  

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

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

hwnd ＝ FindWindowA (“QinFenJiaoXie”, “清风教学”)
如果真 (hwnd ＞ 0)
pid ＝ 0
GetWindowThreadProcessId (hwnd, pid)
如果真 (pid ＞ 0)
进程_结束 (pid)

子程序名	返回值类型	公开	备 注
进程_结束	逻辑型		结束指定进程。成功返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型				欲结束的进程ID,如果为空将结束自己

如果真 (是否为空 (进程ID))
进程ID ＝ 进程_取自进程ID ()
返回 (TerminateProcess (OpenProcess (1, 假, 进程ID), 0) ＝ 1)

子程序名	返回值类型	公开	备 注
进程_取自进程ID	整数型		取自身的进程ID，成功返回进程ID；失败返回0。

返回 (GetCurrentProcessId ())

.版本 2<br /> <br /> .子程序 Initialization2<br /> .局部变量 hwnd, 整数型<br /> .局部变量 pid, 整数型<br /> <br /> hwnd ＝ FindWindowA (“QinFenJiaoXie”, “清风教学”)<br /> .如果真 (hwnd ＞ 0)<br />     pid ＝ 0<br />     GetWindowThreadProcessId (hwnd, pid)<br />     .如果真 (pid ＞ 0)<br />         进程_结束 (pid)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 进程_结束, 逻辑型, 公开, 结束指定进程。成功返回真，失败返回假<br /> .参数 进程ID, 整数型, 可空, 欲结束的进程ID,如果为空将结束自己<br /> <br /> .如果真 (是否为空 (进程ID))<br />     进程ID ＝ 进程_取自进程ID ()<br /> .如果真结束<br /> 返回 (TerminateProcess (OpenProcess (1, 假, 进程ID), 0) ＝ 1)<br /> <br /> .子程序 进程_取自进程ID, 整数型, 公开, 取自身的进程ID，成功返回进程ID；失败返回0。<br /> <br /> 返回 (GetCurrentProcessId ())

360云盘

附件怎么设置不要精币。。

黑咖啡

那你怎么区分，你现在新打开的是旧版还是新版呢

圆圈

整个论坛没找到百分百防止多开的源码，不知道楼主的行不行

我试了四五个，基本存在以下问题就失效了
1.窗口隐藏至托盘
2.窗口靠边隐藏
3.窗口拖至分屏
4.主窗口隐藏，子窗口显示
5.所有窗口隐藏

baitso

防止多开【互斥量版】.e (8.84 KB, 下载次数: 1)

2025-10-30 11:36 上传

点击文件名下载附件

360云盘

baitso 发表于 2025-10-30 11:41
把窗口类名改一下
[e=0].版本 2

编译后  运行不起来啊 大佬

baitso

360云盘 发表于 2025-10-30 11:47
编译后  运行不起来啊 大佬

.版本 2

.子程序 Initialization2
.局部变量 hwnd, 整数型
.局部变量 pid, 整数型

hwnd ＝ FindWindowA (“QinFenJiaoXie”, “清风教学”)
.如果真 (hwnd ＞ 0 且 hwnd ≠ 取窗口句柄 ())
    pid ＝ 0
    GetWindowThreadProcessId (hwnd, pid)
    .如果真 (pid ＞ 0)
        进程_结束 (pid)


把自己都干掉了

补充内容 (2025-10-30 12:05):
.如果真 (hwnd ＞ 0 且 hwnd ≠ 取窗口句柄 ())

259504

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

baitso

用这份吧，之前的有问题
防止多开【互斥量版】.e (964.13 KB, 下载次数: 1)

2025-10-30 12:14 上传

点击文件名下载附件