[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

dhwc · 发表于 2025-12-26 19:34:08

527104427 发表于 2025-12-26 18:48
用API试试：SetLayeredWindowAttributes(hwnd, 0, 255, LWA_ALPHA);

谢谢，我试试

红毛樱木 · 发表于 2025-12-28 05:00:39

本帖最后由红毛樱木于 2025-12-28 05:03 编辑

Zap 发表于 2025-11-6 00:40
是哦以C:\Windows\explorer.exe为例第一个是名称ICO_MYCOMPUTER 应该转换为字符

//LOGS * %&CurDir%\log.log
ENVI^ ENVIMODE=1
SET$ NL=0d 0a
// PECMD2012 内部本身就是宽字符Unicode。路径\\可以直接写真实路径\，自动转义。
//ENVI &exePath=%&CurDir%\Photoshop.exe
//ENVI &exePath=%&CurDir%\sti_ci.dll
ENVI &exePath=%&SystemROOT%\explorer.exe
//ENVI &exePath=%&CurDir%\explorerx64.exe
//ENVI &exePath=%&CurDir%\explorerx86.exe
//ENVI &exePath=%&CurDir%\explorer.exe
CALL GetFirstIconGroupID "%&exePath%" &iconId
MESS. 是否获取成功(0为失败，1为成功)：%&error%%&NL%%&NL%第一个图标ID: %&iconId%@
_SUB GetFirstIconGroupID
EXIT= 0
ENVI-ret %~2=0
ENVI &&exePath=%~1
ENVI &&GENERIC_READ=0x80000000
ENVI &&FILE_SHARE_READ=0x00000001
ENVI &&OPEN_EXISTING=3
ENVI &&INVALID_HANDLE_VALUE=-1
CALL$--qd --ret:&&hFile Kernel32.dll,CreateFileW,$%&exePath%,#%&GENERIC_READ%,#%&FILE_SHARE_READ%,#0,#%&OPEN_EXISTING%,#0,#0 // C中的NULL就是0，在PECMD中用数值 #0
IFEX #%&hFile%=%&INVALID_HANDLE_VALUE%,
{*
ENVI-ret %~2=0
EXIT _SUB
}
CALL$--qd --ret:&&fileSize Kernel32.dll,GetFileSize,#%&hFile%,#0
ENVI &&PAGE_READONLY=0x02
CALL$--qd --ret:&&hMap Kernel32.dll,CreateFileMappingW,#%&hFile%,#0,#%&PAGE_READONLY%,#0,#%&fileSize%,0 //CreateFileMapping 要用实际的 CreateFileMappingW
ENVI &&FILE_MAP_READ=0x0004
CALL$--qd --16 --ret:&&pBase Kernel32.dll,MapViewOfFile,#%&hMap%,#%&FILE_MAP_READ%,#0,#0,#0
//MESS. %&pBase%@&pBase
IFEX #%&pBase%=0,
{*
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
ENVI-ret %~2=0
EXIT _SUB
}
// PIMAGE_DOS_HEADER 的结构体 IMAGE_DOS_HEADER 64字节
//SET$# &dos=*64 0
SET-mkfixdummy &dos=%&pBase%@0;*64
SET?longs dos=&&dos.e_lfanew:60
//MESS. %&dos.e_lfanew%@&dos.e_lfanew
// PIMAGE_NT_HEADERS 的结构体(64位为 IMAGE_NT_HEADERS64 大小 264字节)(32位为 IMAGE_NT_HEADERS32 大小 248字节)
IFEX #0, //判断错误，应该直接判断PE文件头是32位还是64位。
{*
IFEX #%&bX64%=3,
{*
//SET$# &nt=*264 0
SET-mkfixdummy &nt=(%&pBase%+%&dos.e_lfanew%)@0;*264
}!
{*
//SET$# &nt=*248 0
SET-mkfixdummy &nt=(%&pBase%+%&dos.e_lfanew%)@0;*248
}
}
ENVI &&IMAGE_NT_OPTIONAL_HDR32_MAGIC=0x10b //32位
ENVI &&IMAGE_NT_OPTIONAL_HDR64_MAGIC=0x20b //64位
SET?short (%&pBase%+%&dos.e_lfanew%)=&&nt.OptionalHeader.Magic:24
//MESS. %&nt.OptionalHeader.Magic%@&nt.OptionalHeader.Magic
IFEX #%&nt.OptionalHeader.Magic%=%&IMAGE_NT_OPTIONAL_HDR32_MAGIC%,
{*
SET-mkfixdummy &nt=(%&pBase%+%&dos.e_lfanew%)@0;*248
}!
{*
IFEX #%&nt.OptionalHeader.Magic%=%&IMAGE_NT_OPTIONAL_HDR64_MAGIC%,
{*
SET-mkfixdummy &nt=(%&pBase%+%&dos.e_lfanew%)@0;*264
}!
{*
CALL$--qd --bool --ret:&&UnmapViewOfFileRet Kernel32.dll,UnmapViewOfFile,#%&pBase%;
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
ENVI-ret %~2=0
EXIT _SUB
}
}
//GETF &nt,0#*,&&nt_Hex
//MESS. %&nt_Hex%@&nt_Hex
SET?long nt=&&nt.Signature:0
//MESS. %&nt.Signature%@&nt.Signature
ENVI &&IMAGE_NT_SIGNATURE=0x00004550 // PE00
IFEX #%&nt.Signature%<>%&IMAGE_NT_SIGNATURE%,
{*
CALL$--qd --bool --ret:&&UnmapViewOfFileRet Kernel32.dll,UnmapViewOfFile,#%&pBase%;
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
ENVI-ret %~2=0
EXIT _SUB
}
// 定位资源目录
// auto& resDir = nt->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE];
ENVI &&IMAGE_DIRECTORY_ENTRY_RESOURCE=2 // Resource Directory
//ENVI &&IMAGE_DIRECTORY_ENTRY_RESOURCE=0 // 测试
IFEX #0,
{*
IFEX #%&bX64%=3,
{*
SET-mkfixdummy &resDir=&nt@(4+20+112+(8*%&IMAGE_DIRECTORY_ENTRY_RESOURCE%));*8
}!
{*
SET-mkfixdummy &resDir=&nt@(4+20+96+(8*%&IMAGE_DIRECTORY_ENTRY_RESOURCE%));*8
}
}
IFEX #%&nt.OptionalHeader.Magic%=%&IMAGE_NT_OPTIONAL_HDR32_MAGIC%,
{*
SET-mkfixdummy &resDir=&nt@(4+20+96+(8*%&IMAGE_DIRECTORY_ENTRY_RESOURCE%));*8
}!
{*
IFEX #%&nt.OptionalHeader.Magic%=%&IMAGE_NT_OPTIONAL_HDR64_MAGIC%,
{*
SET-mkfixdummy &resDir=&nt@(4+20+112+(8*%&IMAGE_DIRECTORY_ENTRY_RESOURCE%));*8
}!
{*
CALL$--qd --bool --ret:&&UnmapViewOfFileRet Kernel32.dll,UnmapViewOfFile,#%&pBase%;
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
ENVI-ret %~2=0
EXIT _SUB
}
}
//GETF &resDir,0#*,&&resDir_Hex
//MESS. %&resDir_Hex%@&resDir_Hex
SET?long resDir=&&resDir.VirtualAddress:0
//MESS. %&resDir.VirtualAddress%@&resDir.VirtualAddress
// 定位资源节（.rsrc）
ENVI &&i=0
SET?shorts nt=&&nt.FileHeader.NumberOfSections:(4+2) //WORD 2 字节，用short和wchar都可以
//MESS. %&nt.FileHeader.NumberOfSections%@&nt.FileHeader.NumberOfSections
SET?shorts nt=&&nt.FileHeader.SizeOfOptionalHeader:(4+2+2+4+4+4)
//MESS. %&nt.FileHeader.SizeOfOptionalHeader%@&nt.FileHeader.SizeOfOptionalHeader
//SET-mkfixdummy &section=&nt
LOOP #%&i%<%&nt.FileHeader.NumberOfSections%,
{*
//#define IMAGE_FIRST_SECTION( ntheader ) ((PIMAGE_SECTION_HEADER) ((ULONG_PTR)(ntheader) + FIELD_OFFSET( IMAGE_NT_HEADERS, OptionalHeader ) + ((ntheader))->FileHeader.SizeOfOptionalHeader ))
SET-mkfixdummy &section=(%&pBase%+%&dos.e_lfanew%+(4+20+%&nt.FileHeader.SizeOfOptionalHeader%))@(40*%&i%);*40 // 相当于 section++
//GETF &section,0#40,&&section_Hex
//MESS. %&section_Hex%@&section_Hex
SET?long section=&&section.VirtualAddress:12
//MESS. &section.VirtualAddress:%&section.VirtualAddress%@%&i%
SET?long section=&&section.Misc.VirtualSize:8
//MESS. IFEX #[ ( %&resDir.VirtualAddress% >= %&section.VirtualAddress% ) & ( %&resDir.VirtualAddress% < ( %&section.VirtualAddress% + %&section.Misc.VirtualSize% ) ) ],@%&i%
//IFEX #[ ( %&resDir.VirtualAddress% >= %&section.VirtualAddress% ) & ( %&resDir.VirtualAddress% < ( %&section.VirtualAddress% + %&section.Misc.VirtualSize% ) ) ], // IFEX 存在BUG，不能这样嵌套使用，先算出来吧。
IFEX #%&resDir.VirtualAddress% >= %&section.VirtualAddress%,
{*
CALC &&Fix=%&section.VirtualAddress% + %&section.Misc.VirtualSize%
IFEX #%&resDir.VirtualAddress% < %&Fix%,
{*
EXIT LOOP
}
}
CALC #&i=%&i% + 1
}
// 计算资源目录在文件中的实际偏移
SET?long section=&&section.PointerToRawData:20
CALC #&&resOffset=%&resDir.VirtualAddress% - %&section.VirtualAddress% + %&section.PointerToRawData%
//MESS. %&resOffset%<&i:%&i%><CALC #&&resOffset=%&resDir.VirtualAddress% - %&section.VirtualAddress% + %&section.PointerToRawData%>@&resOffset
SET-mkfixdummy &rootDir=(%&pBase%+%&resOffset%)@0;*16
SET?short rootDir=&&rootDir.NumberOfIdEntries:(4+4+2+2+2)
//MESS. %&rootDir.NumberOfIdEntries%@&rootDir.NumberOfIdEntries
// 遍历资源类型，找到 RT_GROUP_ICON（ID=14）
//SET-mkfixdummy &typeEntry=(%&pBase%+%&resOffset%)@16;*8
//GETF &typeEntry,0#8,&&typeEntry_Hex
//MESS. %&typeEntry_Hex%@&typeEntry_Hex
ENVI &&i=0
LOOP #%&i%<%&rootDir.NumberOfIdEntries%,
{*
SET-mkfixdummy &typeEntry=(%&pBase%+%&resOffset%)@(16+(8*%&i%));*8
SET?short typeEntry=&&typeEntry.Id:0
//MESS. %&typeEntry.Id%@%&i%
IFEX #%&typeEntry.Id%=14, // RT_GROUP_ICON = 14
{*
// 获取第一个图标ID（进入ID目录的第一个条目）
SET?long typeEntry=&&typeEntry.OffsetToDirectory:4
CALC #&typeEntry.OffsetToDirectory=%&typeEntry.OffsetToDirectory% & 0x7FFFFFFF
SET-mkfixdummy &iconDir=(%&pBase%+%&resOffset%)@%&typeEntry.OffsetToDirectory%;*16
SET-mkfixdummy &iconIdEntry=(%&pBase%+%&resOffset%)@(%&typeEntry.OffsetToDirectory%+16);*8
SET?long iconIdEntry=&&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME:0
//CALC &&NameIsString=shr(%&iconIdEntry?long%,31) // 可以
CALC #&&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME.NameIsString=shr(%&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME%,31) & 0x1
//MESS. %&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME.NameIsString%@
IFEX #%&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME.NameIsString%=1, //判断是否为字符串
{*
//CALC -base=16 &&NameOffset=shl(%&iconIdEntry?long%,1) // 不行
//CALC -base=16 &&NameOffset=%&iconIdEntry?long% & 0x7FFFFFFF // 可以
CALC -base=16 &&NameOffset=%&iconIdEntry.DUMMYUNIONNAME.DUMMYSTRUCTNAME% & 0x7FFFFFFF // 可以
SET?short (%&pBase%+%&resOffset%+%&NameOffset%)=&&pIMAGE_RESOURCE_DIR_STRING_U.Length
//SET-make &pIMAGE_RESOURCE_DIR_STRING_U.NameString=(%&pBase%+%&resOffset%+%&NameOffset%)@2;$%&pIMAGE_RESOURCE_DIR_STRING_U.Length% 或者下面的更直接
SET-make &pIMAGE_RESOURCE_DIR_STRING_U.NameString=(%&pBase%+%&resOffset%+%&NameOffset%+2);$%&pIMAGE_RESOURCE_DIR_STRING_U.Length%
ENVI-ret~ %~2=&pIMAGE_RESOURCE_DIR_STRING_U.NameString
EXIT= 1
}!
{*
SET?short iconIdEntry=&&iconIdEntry.Id:0
CALC &&firstIconId=%&iconIdEntry.Id% // 不知道源码这里为什么用DWORD计算WORD
ENVI-ret~ %~2=&firstIconId
EXIT= 1
}
//MESS. %&firstIconId%@
CALL$--qd --bool --ret:&&UnmapViewOfFileRet Kernel32.dll,UnmapViewOfFile,#%&pBase%;
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
//ENVI-ret~ %~2=&firstIconId
EXIT _SUB
}
CALC #&i=%&i% + 1
}
CALL$--qd --bool --ret:&&UnmapViewOfFileRet Kernel32.dll,UnmapViewOfFile,#%&pBase%;
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hMap%
CALL$--qd --bool --ret:&&CloseHandleRet Kernel32.dll,CloseHandle,#%&hFile%
ENVI-ret %~2=0
_END

复制代码

试试看。应该可以了。最近修行的快成仙了

Zap · 发表于 2025-12-30 10:59:26

BUG反馈

TEAM set^ EnviMode=1|set^ ForceLocal=1
HOTK Ctrl+Q,D:\软件\MusicPlayer\MusicPlayer2.exe
WALL D:\壁纸\085.jpg

复制代码

之后使用系统自带切换壁纸时，会因HOTK挂后台而卡到D:\壁纸\085.jpg上

红毛樱木 · 发表于 2025-12-30 11:04:36

Zap 发表于 2025-12-30 10:59
BUG反馈之后使用系统自带切换壁纸时，会因HOTK挂后台而卡到D:\壁纸\085.jpg上

HOTK Ctrl+Q,EXEC D:\软件\MusicPlayer\MusicPlayer2.exe

复制代码

不等待模式执行

win98se · 发表于 2026-1-2 07:46:29

我是来怀旧的

201 · 发表于 2026-1-2 14:22:09

谢谢！

Zap · 发表于 2026-1-2 14:26:18

本帖最后由 Zap 于 2026-1-2 14:33 编辑

红毛樱木发表于 2025-12-30 11:04
不等待模式执行

TEAM set^ EnviMode=1|set^ ForceLocal=1
HOTK Ctrl+Q, EXEC D:\软件\MusicPlayer\MusicPlayer2.exe
exec*- -err+ -incmd &a=pecmd WALL D:\壁纸\085.jpg

复制代码

TEAM set^ EnviMode=1|set^ ForceLocal=1
HOTK Ctrl+Q,exec*- -err+ -incmd &a=pecmd EXEC D:\软件\MusicPlayer\MusicPlayer2.exe
WALL D:\壁纸\085.jpg

复制代码

TEAM set^ EnviMode=1|set^ ForceLocal=1
HOTK Ctrl+Q,EXEC D:\软件\MusicPlayer\MusicPlayer2.exe
exec*- -err+ -incmd &a=pecmd WALL D:\壁纸\085.jpg

复制代码

之后使用系统自带切换壁纸或其它切换方式切换壁纸，会因HOTK挂后台而重新卡到D:\壁纸\085.jpg上
但继续使用PECMD的WALL切换壁纸则正常

红毛樱木 · 发表于 2026-1-2 20:20:55

Zap 发表于 2026-1-2 14:26
之后使用系统自带切换壁纸或其它切换方式切换壁纸，会因HOTK挂后台而重新卡到D:\壁纸\085.jpg上
...

WALL 有进程锁，自己结束PECMD.EXE进程就行。这个之前好像M为了解决PE下一个奇怪问题加的默认锁定

Zap · 发表于 2026-1-5 09:03:06

本帖最后由 Zap 于 2026-1-5 09:19 编辑

红毛樱木发表于 2026-1-2 20:20
WALL 有进程锁，自己结束PECMD.EXE进程就行。这个之前好像M为了解决PE下一个奇怪问题加的默认锁定

TEAM set^ EnviMode=1|set^ ForceLocal=1
exec -incmd =pecmd HOTK Ctrl+Q,D:\软件\MusicPlayer\MusicPlayer2.exe
WALL D:\壁纸\085.jpg

复制代码

哦，HOTK有进程锁，这样另开线程，可以了，之后使用各种方式切换壁纸都不影响了

Anson4 · 发表于 2026-1-7 20:32:51

红毛樱木发表于 2025-12-28 05:00
试试看。应该可以了。最近修行的快成仙了

看不懂，可是为什么会觉得很高级呢？

welixin · 发表于 2026-1-13 22:31:56

牛啊

cncecpcy · 发表于 2026-1-14 11:33:35

好。。。。。。。。

孤山飞雪 · 发表于 2026-2-6 21:10:14

//有些中间弹出错误，但即使运行，logs看不出来。方法1：弹出错误时，根据最后的LOGS，定位错误在哪儿。方法2：可以在主程序中加【MESS标志串】。根据弹出错误前的标志串，定位错误在哪儿。

martin313 · 发表于 2026-2-19 08:09:30

请问大佬：“编辑内置资源.EXE”在哪下载啊

kangaroo7758 · 发表于 2026-2-23 13:11:27

很给力!无忧因你更精彩！

hhh333 · 发表于 2026-3-11 20:46:09

目前新版有一个小问题，就是系统级变量不刷新。就是譬如：进桌面前envi $abc=2，进桌面后你再envi $abc=6。再进CMD里面看abc还是等于2，注册表中看已经为新的值了，这个时候kill explorer一下，再进CMD看abc的值已经为6了

红毛樱木 · 发表于 2026-3-11 21:06:21

hhh333 发表于 2026-3-11 20:46
目前新版有一个小问题，就是系统级变量不刷新。就是譬如：进桌面前envi $abc=2，进桌面后你再envi $abc=6。 ...

需要广播吧，我记得。
ENVI $
这样空执行一下还是啥格式，你看下说明书里有。我手机不好看

hhh333 · 发表于 2026-3-11 21:51:30

红毛樱木发表于 2026-3-11 21:06
需要广播吧，我记得。
ENVI $
这样空执行一下还是啥格式，你看下说明书里有。我手机不好看

试过了，没用，应该是ENVI不带任何参数。必须kill explorer才有用

hhh333 · 发表于 2026-3-11 21:53:33

不知是从哪个时候开始的

红毛樱木 · 发表于 2026-3-12 01:54:38

envi $abc=2
改成
envi $#abc=2

这样子吧，系统级、用户级一并设置了。
-----------------
我测试单独 envi $abc=2 确实没有生效。

allegrox · 发表于 2026-3-12 09:00:31

这门好的项目，有没有开源啊，众人拾柴火焰高嘛

17777925337 · 发表于 2026-3-19 19:09:06

谢谢辛苦分享

dr485702882 · 发表于 2026-3-30 10:04:27

是好东西谢谢分享了

yvianfgef · 发表于 2026-4-10 16:16:11

楼主威武

xzf361 · 发表于 2026-4-21 16:32:21

很强，学谢谢！！！

hhh333 · 发表于 2026-5-13 17:10:19

红毛樱木发表于 2026-3-12 01:54
envi $abc=2
改成
envi $#abc=2

老的版本是可以即时生效的

红毛樱木 · 发表于 2026-5-13 17:26:22

hhh333 发表于 2026-5-13 17:10
老的版本是可以即时生效的

具体哪个版本，我也试试。

hhh333 · 发表于 2026-5-13 17:51:27

红毛樱木发表于 2026-5-13 17:26
具体哪个版本，我也试试。

记得以前是可以的，我找一下，不好设定测试环境

yyz219195888 · 发表于 2026-5-13 18:03:32

赞一个，谢谢

hhh333 · 发表于 2026-5-13 18:06:23

本帖最后由 hhh333 于 2026-5-13 18:18 编辑

红毛樱木发表于 2026-5-13 17:26
具体哪个版本，我也试试。

PECMD2012.1.88.05.94Stable-230422这个就可以

PECMD2012.1.88.05.94Stable-240512测试G，也可以，GB就不行了

		自动登录	找回密码
密码			注册

[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

评分

点评