关闭互斥体（已知道句柄名）

catxiq

各位大牛，我想写个钉钉多开已找到方法
可不知道如何写

常规程序防止多开，会使用Mutex。
钉订使用的也是Mutex

验证结果为如下两个Mutex需要关闭：

\Sessions\1\BaseNamedObjects{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk
\Sessions\1\BaseNamedObjects{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk_loginframe

以上两个是句柄名

求写法

1185384801

https://bbs.125.la/forum.php?mod=viewthread&tid=14360662
了解一下

catxiq

1185384801 发表于 2020-4-7 20:13
https://bbs.125.la/forum.php?mod=viewthread&tid=14360662
了解一下

恕我小白，没看懂

catxiq

已找到自行解决方式。贴上 希望对易友有帮助

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

启动多开 (“DingTalk.exe”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
启动多开
参数名	类 型	参考	可空	数组	备 注
进程名	文本型

变量名	类 型	静态	数组	备 注
句柄列表	句柄信息		0
计次	整数型
进程句柄	整数型		0
l1	整数型

取进程句柄 (进程名, 进程句柄)
计次循环首 (取数组成员数 (进程句柄), l1)
枚举句柄 (进程句柄 [l1], 句柄列表)
计次循环首 (取数组成员数 (句柄列表), 计次)
如果真 (句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk_loginframe” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\SA_MUTE0” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\SA_MUTE1”)
关闭句柄 (进程句柄 [l1], 句柄列表 [计次].句柄)

计次循环尾 ()
计次循环尾 ()
运行 (“D:\DingDing\DingtalkLauncher.exe”, 假, )

子程序名	返回值类型	公开	备 注
枚举句柄	整数型
参数名	类 型	参考	可空	数组	备 注
进程句柄	整数型
句柄列表	句柄信息

变量名	类 型	静态	数组	备 注
句柄信息	句柄信息
HandleCount	整数型
sHandle	整数型
tHandle	整数型
i	整数型
Buf	字节集
len	整数型

如果真 (GetProcessHandleCount (进程句柄, HandleCount))
判断循环首 (HandleCount ＞ i 且 sHandle ＜ 65536)
sHandle ＝ sHandle ＋ 4
如果真 (DuplicateHandle (进程句柄, sHandle, GetCurrentProcess (), tHandle, 0, 假, 2))
i ＝ i ＋ 1
句柄信息.句柄 ＝ sHandle
句柄信息.对象名 ＝ “”
Buf ＝ 取空白字节集 (8192)
如果真 (ZwQueryObject (tHandle, 1, Buf, 8192, 0) ＝ 0)
len ＝ 取字节集数据 (Buf, 2, )
Buf ＝ 取字节集中间 (Buf, 9, len)
句柄信息.对象名 ＝ UnicodeToAnsi (Buf)
CloseHandle (tHandle)
加入成员 (句柄列表, 句柄信息)

判断循环尾 ()
返回 (i)

子程序名	返回值类型	公开	备 注
UnicodeToAnsi	文本型
参数名	类 型	参考	可空	数组	备 注
Unicode	字节集

变量名	类 型	静态	数组	备 注
ansi_len	整数型
unicode_len	整数型
ansi	文本型

unicode_len ＝ 取字节集长度 (Unicode) ÷ 2
ansi_len ＝ WideCharToMultiByte (936, 0, Unicode, unicode_len, ansi, 0, “”, 0)
ansi ＝ 取空白文本 (ansi_len)
WideCharToMultiByte (936, 0, Unicode, unicode_len, ansi, ansi_len, “”, 0)
返回 (ansi)

子程序名	返回值类型	公开	备 注
关闭句柄	逻辑型
参数名	类 型	参考	可空	数组	备 注
进程句柄	整数型
对象句柄	整数型

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

如果 (DuplicateHandle (进程句柄, 对象句柄, GetCurrentProcess (), Handle, 0, 假, 1))
CloseHandle (Handle)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
取进程句柄	整数型
参数名	类 型	参考	可空	数组	备 注
进程名	文本型
进程句柄	整数型

变量名	类 型	静态	数组	备 注
LPPROCESSENTRY32	LPPROCESSENTRY32
hSnapshot	整数型
hProcess	整数型
j	整数型

hSnapshot ＝ CreateToolhelp32Snapshot (2, 0)
如果真 (hSnapshot ≠ -1)
LPPROCESSENTRY32.dwSize ＝ 296
j ＝ Process32First (hSnapshot, LPPROCESSENTRY32)
判断循环首 (j ≠ 0)
如果真 (到小写 (进程名) ＝ 到小写 (到文本 (LPPROCESSENTRY32.szExeFile)))
hProcess ＝ OpenProcess (2035711, 假, LPPROCESSENTRY32.th32ProcessID)
加入成员 (进程句柄, hProcess)
j ＝ Process32Next (hSnapshot, LPPROCESSENTRY32)
判断循环尾 ()
CloseHandle (hSnapshot)
返回 (hProcess)
返回 (0)

DLL命令名	返回值类型	公开	备 注
GetProcessHandleCount	逻辑型
DLL库文件名:
在DLL库中对应命令名:
GetProcessHandleCount
参数名	类 型	传址	数组	备 注
hProcess	整数型
pdwHandleCount	整数型

DLL命令名	返回值类型	公开	备 注
DuplicateHandle	逻辑型
DLL库文件名:
在DLL库中对应命令名:
DuplicateHandle
参数名	类 型	传址	数组	备 注
hSourceProcessHandle	整数型
hSourceHandle	整数型
hTargetProcessHandle	整数型
lpTargetHandle	整数型
dwDesiredAccess	整数型
bInheritHandle	逻辑型
dwOptions	整数型

DLL命令名	返回值类型	公开	备 注
GetCurrentProcess	整数型
DLL库文件名:
在DLL库中对应命令名:
GetCurrentProcess
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
ZwQueryObject	整数型
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
ZwQueryObject
参数名	类 型	传址	数组	备 注
ObjectHandle	整数型
ObjectInformationClass	整数型
ObjectInformation	字节集
Length	整数型
ResultLength	整数型

DLL命令名	返回值类型	公开	备 注
CloseHandle	逻辑型
DLL库文件名:
在DLL库中对应命令名:
CloseHandle
参数名	类 型	传址	数组	备 注
hObject	整数型

DLL命令名	返回值类型	公开	备 注
WideCharToMultiByte	整数型
DLL库文件名:
在DLL库中对应命令名:
WideCharToMultiByte
参数名	类 型	传址	数组	备 注
CodePage	整数型
dwFlags	整数型
lpWideCharStr	字节集
cchWideChar	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpDefaultChar	文本型
lpUsedDefaultChar	整数型

DLL命令名	返回值类型	公开	备 注
OpenProcess	整数型
DLL库文件名:
在DLL库中对应命令名:
OpenProcess
参数名	类 型	传址	数组	备 注
dwDesiredAccess	整数型
bInheritHandle	逻辑型
dwProcessId	整数型

DLL命令名	返回值类型	公开	备 注
CreateToolhelp32Snapshot	整数型
DLL库文件名:
在DLL库中对应命令名:
CreateToolhelp32Snapshot
参数名	类 型	传址	数组	备 注
dwFlags	整数型
th32ProcessID	整数型

DLL命令名	返回值类型	公开	备 注
Process32First	整数型
DLL库文件名:
在DLL库中对应命令名:
Process32First
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lppe	LPPROCESSENTRY32

DLL命令名	返回值类型	公开	备 注
Process32Next	整数型
DLL库文件名:
在DLL库中对应命令名:
Process32Next
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lppe	LPPROCESSENTRY32

数据类型名	公开	备 注
句柄信息
成员名	类 型	传址	数组	备 注
句柄	整数型
对象名	文本型

数据类型名	公开	备 注
LPPROCESSENTRY32
成员名	类 型	传址	数组	备 注
dwSize	整数型
cntUsage	整数型
th32ProcessID	整数型
th32DefaultHeapID	整数型
th32ModuleID	整数型
cntThreads	整数型
th32ParentProcessID	整数型
pcPriClassBase	整数型
dwFlags	整数型
szExeFile	字节型		260

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 启动多开 (“DingTalk.exe”)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 启动多开<br /> .参数 进程名, 文本型<br /> .局部变量 句柄列表, 句柄信息, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 进程句柄, 整数型, , "0"<br /> .局部变量 l1, 整数型<br /> <br /> 取进程句柄 (进程名, 进程句柄)<br /> .计次循环首 (取数组成员数 (进程句柄), l1)<br />     枚举句柄 (进程句柄 [l1], 句柄列表)<br />     .计次循环首 (取数组成员数 (句柄列表), 计次)<br />         .如果真 (句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\{{239B7D43-86D5-4E5C-ADE6-CEC42155B475}}DingTalk_loginframe” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\SA_MUTE0” 或 句柄列表 [计次].对象名 ＝ “\Sessions\1\BaseNamedObjects\SA_MUTE1”)<br />             关闭句柄 (进程句柄 [l1], 句柄列表 [计次].句柄)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 运行 (“D:\DingDing\DingtalkLauncher.exe”, 假, )<br /> <br /> <br /> .子程序 枚举句柄, 整数型<br /> .参数 进程句柄, 整数型<br /> .参数 句柄列表, 句柄信息, 数组<br /> .局部变量 句柄信息, 句柄信息<br /> .局部变量 HandleCount, 整数型<br /> .局部变量 sHandle, 整数型<br /> .局部变量 tHandle, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 Buf, 字节集<br /> .局部变量 len, 整数型<br /> <br /> .如果真 (GetProcessHandleCount (进程句柄, HandleCount))<br />     .判断循环首 (HandleCount ＞ i 且 sHandle ＜ 65536)<br />         sHandle ＝ sHandle ＋ 4<br />         .如果真 (DuplicateHandle (进程句柄, sHandle, GetCurrentProcess (), tHandle, 0, 假, 2))<br />             i ＝ i ＋ 1<br />             句柄信息.句柄 ＝ sHandle<br />             句柄信息.对象名 ＝ “”<br />             Buf ＝ 取空白字节集 (8192)<br />             .如果真 (ZwQueryObject (tHandle, 1, Buf, 8192, 0) ＝ 0)<br />                 len ＝ 取字节集数据 (Buf, 2, )<br />                 Buf ＝ 取字节集中间 (Buf, 9, len)<br />                 句柄信息.对象名 ＝ UnicodeToAnsi (Buf)<br />             .如果真结束<br />             CloseHandle (tHandle)<br />             加入成员 (句柄列表, 句柄信息)<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (i)<br /> <br /> .子程序 UnicodeToAnsi, 文本型<br /> .参数 Unicode, 字节集<br /> .局部变量 ansi_len, 整数型<br /> .局部变量 unicode_len, 整数型<br /> .局部变量 ansi, 文本型<br /> <br /> unicode_len ＝ 取字节集长度 (Unicode) ÷ 2<br /> ansi_len ＝ WideCharToMultiByte (936, 0, Unicode, unicode_len, ansi, 0, “”, 0)<br /> ansi ＝ 取空白文本 (ansi_len)<br /> WideCharToMultiByte (936, 0, Unicode, unicode_len, ansi, ansi_len, “”, 0)<br /> 返回 (ansi)<br /> <br /> .子程序 关闭句柄, 逻辑型<br /> .参数 进程句柄, 整数型<br /> .参数 对象句柄, 整数型<br /> .局部变量 Handle, 整数型<br /> <br /> .如果 (DuplicateHandle (进程句柄, 对象句柄, GetCurrentProcess (), Handle, 0, 假, 1))<br />     CloseHandle (Handle)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 取进程句柄, 整数型<br /> .参数 进程名, 文本型<br /> .参数 进程句柄, 整数型, 可空 数组<br /> .局部变量 LPPROCESSENTRY32, LPPROCESSENTRY32<br /> .局部变量 hSnapshot, 整数型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 j, 整数型<br /> <br /> hSnapshot ＝ CreateToolhelp32Snapshot (2, 0)<br /> .如果真 (hSnapshot ≠ -1)<br />     LPPROCESSENTRY32.dwSize ＝ 296<br />     j ＝ Process32First (hSnapshot, LPPROCESSENTRY32)<br />     .判断循环首 (j ≠ 0)<br />         .如果真 (到小写 (进程名) ＝ 到小写 (到文本 (LPPROCESSENTRY32.szExeFile)))<br />             hProcess ＝ OpenProcess (2035711, 假, LPPROCESSENTRY32.th32ProcessID)<br />             加入成员 (进程句柄, hProcess)<br />         .如果真结束<br />         j ＝ Process32Next (hSnapshot, LPPROCESSENTRY32)<br />     .判断循环尾 ()<br />     CloseHandle (hSnapshot)<br />     返回 (hProcess)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .版本 2<br /> <br /> .DLL命令 GetProcessHandleCount, 逻辑型<br />     .参数 hProcess, 整数型<br />     .参数 pdwHandleCount, 整数型, 传址<br /> <br /> .DLL命令 DuplicateHandle, 逻辑型<br />     .参数 hSourceProcessHandle, 整数型<br />     .参数 hSourceHandle, 整数型<br />     .参数 hTargetProcessHandle, 整数型<br />     .参数 lpTargetHandle, 整数型, 传址<br />     .参数 dwDesiredAccess, 整数型<br />     .参数 bInheritHandle, 逻辑型<br />     .参数 dwOptions, 整数型<br /> <br /> .DLL命令 GetCurrentProcess, 整数型<br /> <br /> .DLL命令 ZwQueryObject, 整数型, "ntdll.dll"<br />     .参数 ObjectHandle, 整数型<br />     .参数 ObjectInformationClass, 整数型<br />     .参数 ObjectInformation, 字节集, 传址<br />     .参数 Length, 整数型<br />     .参数 ResultLength, 整数型, 传址<br /> <br /> .DLL命令 CloseHandle, 逻辑型<br />     .参数 hObject, 整数型<br /> <br /> .DLL命令 WideCharToMultiByte, 整数型<br />     .参数 CodePage, 整数型<br />     .参数 dwFlags, 整数型<br />     .参数 lpWideCharStr, 字节集<br />     .参数 cchWideChar, 整数型<br />     .参数 lpMultiByteStr, 文本型<br />     .参数 cchMultiByte, 整数型<br />     .参数 lpDefaultChar, 文本型<br />     .参数 lpUsedDefaultChar, 整数型<br /> <br /> .DLL命令 OpenProcess, 整数型<br />     .参数 dwDesiredAccess, 整数型<br />     .参数 bInheritHandle, 逻辑型<br />     .参数 dwProcessId, 整数型<br /> <br /> .DLL命令 CreateToolhelp32Snapshot, 整数型<br />     .参数 dwFlags, 整数型<br />     .参数 th32ProcessID, 整数型<br /> <br /> .DLL命令 Process32First, 整数型<br />     .参数 hSnapshot, 整数型<br />     .参数 lppe, LPPROCESSENTRY32<br /> <br /> .DLL命令 Process32Next, 整数型<br />     .参数 hSnapshot, 整数型<br />     .参数 lppe, LPPROCESSENTRY32<br /> .版本 2<br /> <br /> .数据类型 句柄信息<br />     .成员 句柄, 整数型<br />     .成员 对象名, 文本型<br /> <br /> .数据类型 LPPROCESSENTRY32<br />     .成员 dwSize, 整数型<br />     .成员 cntUsage, 整数型<br />     .成员 th32ProcessID, 整数型<br />     .成员 th32DefaultHeapID, 整数型<br />     .成员 th32ModuleID, 整数型<br />     .成员 cntThreads, 整数型<br />     .成员 th32ParentProcessID, 整数型<br />     .成员 pcPriClassBase, 整数型<br />     .成员 dwFlags, 整数型<br />     .成员 szExeFile, 字节型, , "260"

参考文献：多开思路 多开例子

ucxvkwfn

帮到我了，谢谢

a540073041

看看看看看看看看看看看看看

327607501

感谢楼主的好心分享，测试有用的。正在修改自行适配

linglong

6666666666666666666666

qq904266932

这个怎么用啊？

9638594

感谢分享 ，正好需要。
大赞