.版本 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, 整數型  .參數 th32ProcessID, 整數型.DLL命令 Process32First, 整數型  .參數 hSnapshot, 整數型  .參數 lppe, LPPROCESSENTRY32.DLL命令 Process32Next, 整數型  .參數 hSnapshot, 整數型  .參數 lppe, LPPROCESSENTRY32

.版本 2.數據類型 句柄信息  .成員 句柄, 整數型  .成員 對象名, 文本型.數據類型 LPPROCESSENTRY32  .成員 dwSize, 整數型  .成員 cntUsage, 整數型  .成員 th32ProcessID, 整數型  .成員 th32DefaultHeapID, 整數型  .成員 th32ModuleID, 整數型  .成員 cntThreads, 整數型  .成員 th32ParentProcessID, 整數型  .成員 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 ＝ 296  j ＝ Process32First (hSnapshot, LPPROCESSENTRY32)  .判斷循環首 (j ≠ 0)    .如果真 (到小寫 (進程名) ＝ 到小寫 (到文本 (LPPROCESSENTRY32.szExeFile)))      hProcess ＝ OpenProcess (2035711, 假, LPPROCESSENTRY32.th32ProcessID)      加入成員 (進程句柄, hProcess)    .如果真結束    j ＝ Process32Next (hSnapshot, LPPROCESSENTRY32)  .判斷循環尾 ()  CloseHandle (hSnapshot)  返回 (hProcess).如果真結束返回 (0).子程序 _時鐘1_周期事件啟動多開 ().子程序 _關閉按鈕_被單擊時鐘1.時鐘周期 ＝ 0