易语言怎么通过句柄名来关闭互斥体实现游戏多开(易语言,编程语言)

DLL命令代码

.版本2.DLL命令GetProcessHandleCount,逻辑型.参数hProcess,整数型.参数pdwHandleCount,整数型,传址.DLL命令DuplicateHandle,逻辑型.参数hSourceProcessHandle,整数型.参数hSourceHandle,整数型.参数hTargetProcessHandle,整数型.参数lpTargetHandle,整数型,传址.参数dwDesiredAccess,整数型.参数bInheritHandle,逻辑型.参数dwOptions,整数型.DLL命令GetCurrentProcess,整数型.DLL命令ZwQueryObject,整数型,"ntdll.dll".参数ObjectHandle,整数型.参数ObjectInformationClass,整数型.参数ObjectInformation,字节集,传址.参数Length,整数型.参数ResultLength,整数型,传址.DLL命令CloseHandle,逻辑型.参数hObject,整数型.DLL命令WideCharToMultiByte,整数型.参数CodePage,整数型.参数dwFlags,整数型.参数lpWideCharStr,字节集.参数cchWideChar,整数型.参数lpMultiByteStr,文本型.参数cchMultiByte,整数型.参数lpDefaultChar,文本型.参数lpUsedDefaultChar,整数型.DLL命令OpenProcess,整数型.参数dwDesiredAccess,整数型.参数bInheritHandle,逻辑型.参数dwProcessId,整数型.DLL命令CreateToolhelp32Snapshot,整数型.参数dwFlags,整数型.参数th42ProcessID,整数型.DLL命令Process32First,整数型.参数hSnapshot,整数型.参数lppe,LPPROCESSENTRY32.DLL命令Process32Next,整数型.参数hSnapshot,整数型.参数lppe,LPPROCESSENTRY32

自定义数据类型表

.版本2.数据类型句柄信息.成员句柄,整数型.成员对象名,文本型.数据类型LPPROCESSENTRY32.成员dwSize,整数型.成员cntUsage,整数型.成员th42ProcessID,整数型.成员th42DefaultHeapID,整数型.成员th42ModuleID,整数型.成员cntThreads,整数型.成员th42ParentProcessID,整数型.成员pcPriClassBase,整数型.成员dwFlags,整数型.成员szExeFile,字节型,,"260"

关闭互斥体游戏多开的代码

.版本2.程序集窗口程序集_启动窗口.程序集变量记录句柄,整数型.子程序_开启按钮_被单击时钟1.时钟周期＝200.子程序启动多开.局部变量句柄列表,句柄信息,,"0".局部变量计次,整数型.局部变量进程句柄,整数型,,"0".局部变量l1,整数型取进程句柄(“shiqiee.exe”,进程句柄).计次循环首(取数组成员数(进程句柄),l1)枚举句柄(进程句柄[l1],句柄列表).计次循环首(取数组成员数(句柄列表),计次).如果真(句柄列表[计次].对象名＝“\Device\HarddiskVolume4\Windows\eelock1.txt”或句柄列表[计次].对象名＝“\Device\HarddiskVolume4\Windows\eelock0.txt”或句柄列表[计次].对象名＝“\Sessions\1\BaseNamedObjects\SA_MUTE0”或句柄列表[计次].对象名＝“\Sessions\1\BaseNamedObjects\SA_MUTE1”)关闭句柄(进程句柄[l1],句柄列表[计次].句柄).如果真结束.计次循环尾().计次循环尾().子程序枚举句柄,整数型.参数进程句柄,整数型.参数句柄列表,句柄信息,数组.局部变量句柄信息,句柄信息.局部变量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)÷2ansi_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＝296j＝Process32First(hSnapshot,LPPROCESSENTRY32).判断循环首(j≠0).如果真(到小写(进程名)＝到小写(到文本(LPPROCESSENTRY32.szExeFile)))hProcess＝OpenProcess(2035711,假,LPPROCESSENTRY32.th42ProcessID)加入成员(进程句柄,hProcess).如果真结束j＝Process32Next(hSnapshot,LPPROCESSENTRY32).判断循环尾()CloseHandle(hSnapshot)返回(hProcess).如果真结束返回(0).子程序_时钟1_周期事件启动多开().子程序_关闭按钮_被单击时钟1.时钟周期＝0

运行结果：