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

蓝精灵33 · 发表于 2025-11-20 16:54:05

学习学习

蓝精灵33 · 发表于 2025-11-20 16:54:19

学习学习

蓝精灵33 · 发表于 2025-11-20 16:54:31

学习学习

蓝精灵33 · 发表于 2025-11-20 16:54:44

学习学习

jszw666 · 发表于 2025-11-26 12:07:23

感谢楼主分享，感谢！！！！

尽善尽美 · 发表于 2025-12-4 21:04:29

用PECMD怎么调用CMD把INI文件打包成EXE，具体用什么参数命令，哪个版本才有这个功能。哪位大婶指点指点。

dhwc · 发表于 2025-12-6 19:44:52

写了个软件安装管理器，根据列表文件list.ini文件里的内容自动创建复选框，软件数量不固定，预设的swin太大滚动条下面会空很多，swin太小会放不下，代码如下：

_SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#316,15,,-top -disminb
SWIN SWIN1:Page11:-SWINMAIN,L10T33W273H240,,0x140
ENVI @SWINMAIN:SWIN1.ID=?&Swin1_Wid //画框ID
ENVI @SWINMAIN.ID=?&SWINMAIN_Wid //与Page11窗口ID相同%&Page1_WID%
LABE TitleLabel,L10T10W200H20,请选择要安装的软件：
ITEM OKButton,L120T280W60H30,安装,CALL OnOK
_END
_SUB Page11,W600H240,,,,:0xFFFFFF
ENVI &YPos=10
ENVI &Index=0
ENVI &inList=0
ENVI AllList=
SET$ NL=0D 0A
READ list.ini,*,&&AllContent
FORX *NL &AllContent,&&line,
{
mstr * &line1=1,1,&line
find $%&line1%=[,
{
find $%&line%=[softlist], ENVI &inList=1!ENVI &inList=0
}!
{
IFEX $%&inList%=1,
{
FIND $%&line%=, exit -
// 解析软件名称、路径、默认是否选中
MSTR * -delims:| SoftName,SoftPath,SoftStatus=<1><2><3>&line
CHEK Checkbox_%&Index%,L40T%&YPos%W250H20,%SoftName%
IFEX $%SoftStatus%=0,ENVI @Checkbox_%&Index%.Check=1
IFEX $%SoftStatus%=2,team ENVI @Checkbox_%&Index%.Check=1|ENVI @Checkbox_%&Index%.Enable=0
ENVI &Checkbox_Name=Checkbox_%&Index%
ENVI &Checkbox_Name_Path=%SoftPath%
ENVI Checkbox_Name_Status=%SoftStatus%
CALC &YPos=%&YPos% + 25
CALC &Index=%&Index% + 1
ENVI AllList=%Checkbox_Name_Path%%NL%%AllList%
//mess %&AllList%
//mess %Checkbox_Name%:%&SoftName%:%&Checkbox_Name_Path%:%Checkbox_Name_Status%
}
}
}
ENVI TotalCount=%&Index%
//MESS %TotalCount%
IFEX #%TotalCount%>=9,TEAM MESS %H%|CALC H=(%TotalCount%-9)*35+%H%| MESS %H%|ENVI @@POS=%&SWIN1_Wid%::::%H%
_END
_SUB OnOK
ENVI &AllList=%AllList%
ENVI &InstPath=
ENVI &Index=0
LOOP #%&Index% <= %TotalCount%,
{
READ -*,%&Index%,&InstPath,&AllList
Find $%Checkbox_%&Index%.Check%=1,mess Checkbox_%&Index%选中\n%&InstPath%
CALC &Index=%&Index% + 1
}
_END
CALL @MainWindow

复制代码

代码运行后，swin不能实现滚动效果，参考官方实例搞不定，官方实例中主要起作用是这一句：ENVI @@POS=%&SWIN1_Wid%::::%H

但我看这样改变的是画布大小？

求教，谢谢

红毛樱木 · 发表于 2025-12-6 20:09:37

dhwc 发表于 2025-12-6 19:44
写了个软件安装管理器，根据列表文件list.ini文件里的内容自动创建复选框，软件数量不固定，预设的swin太大 ...

swin有层级、滚动条可以通过代码滚动到指定位置。这两个在示例代码文件夹里都有示例代码

dhwc · 发表于 2025-12-6 20:52:11

红毛樱木发表于 2025-12-6 20:09
swin有层级、滚动条可以通过代码滚动到指定位置。这两个在示例代码文件夹里都有示例代码

我看的示例代码，那个功能过于完善了我这个场景觉得不太需要，核心语句不就是ENVI @@POS=%&SWIN1_Wid%::::%H%嘛？为啥写了没用呢

dhwc · 发表于 2025-12-10 20:12:21

dhwc 发表于 2025-12-6 20:52
我看的示例代码，那个功能过于完善了我这个场景觉得不太需要，核心语句不就是ENVI @@POS=%&SWIN1_Wid%::: ...

这个问题搞定了，调整的时机不对，方法也不对，最后在主窗体中加了个time控件解决了，也不知道是不是邪门歪道。

现在有新的问题:

1、怎样实现主窗体透明，swim不透明？

2、主窗体添加了全选/全不选按钮，好像不能穿透到swim去操作复选框？

3、添加了全选/全不选按钮，程序运行后，安装按钮文字不可见，随便点下某个复选框才会显示出来？

红毛樱木 · 发表于 2025-12-10 21:17:59

dhwc 发表于 2025-12-10 20:12
这个问题搞定了，调整的时机不对，方法也不对，最后在主窗体中加了个time控件解决了，也不知道是不是邪门 ...

上代码。瞎猜么。。。。

dhwc · 发表于 2025-12-10 21:39:21

//_SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#130,15,,-top -disminb
SET &SB_VERT=1
SET &SIF_RANGE=0x0001
ENVI &TotalCount=0
ENVI &AllList=
ENVI &Checkbox_All=0
_SUB MainWindow,W300H360,软件列表选择,,%windir%\system32\shell32.dll#316,15,,-top -disminb
SWIN SWIN1:Page11:-SWINMAIN,L10T33W273H240,,0x140
ENVI @SWINMAIN:SWIN1.ID=?&Swin1_Wid //画框ID
ENVI @SWINMAIN.ID=?&SWINMAIN_Wid //与Page11窗口ID相同%&Page1_WID%
ENVI @SWINMAIN.bkcolor=#FFFFFF
LABE -trans TitleLabel,L10T10W200H20,请选择要安装的软件：
ITEM OKButton,L200T285W84H30,开始安装,CALL OnOK
TIME Timer1,300,call SetSwin
CHEK Checkbox_All,L11T290W250H20,全选/全不选,call CheckboxAllChanged,1
_END
_SUB Page11,W600H240,,,,:0xFFFFFF
//ENVI @this.bkcolor=0x000000
ENVI &YPos=10
ENVI &Index=0
ENVI &inList=0
SET$ NL=0D 0A
READ list.ini,*,&&AllContent
FORX *NL &AllContent,&&line,
{
mstr * &line1=1,1,&line
find $%&line1%=[,
{
find $%&line%=[softlist], ENVI &inList=1!ENVI &inList=0
}!
{
IFEX $%&inList%=1,
{
FIND $%&line%=, exit -
// 解析软件名称、路径、默认是否选中
MSTR * -delims:| SoftName,SoftPath,SoftStatus=<1><2><3>&line
CHEK Checkbox_%&Index%,L40T%&YPos%W180H20,%SoftName%
IFEX $%SoftStatus%=0,ENVI @Checkbox_%&Index%.Check=1
IFEX $%SoftStatus%=2,team ENVI @Checkbox_%&Index%.Check=1|ENVI @Checkbox_%&Index%.Enable=0
ENVI &Checkbox_Name=Checkbox_%&Index%
ENVI &Checkbox_Name_Path=%SoftPath%
ENVI Checkbox_Name_Status=%SoftStatus%
CALC &YPos=%&YPos% + 25
CALC &Index=%&Index% + 1
ENVI &AllList=%Checkbox_Name_Path%%NL%%&AllList%
}
}
}
ENVI &TotalCount=%&Index%
//Find $%Checkbox_All.Check%=1,mess 全选!mess 全不选
_END
_SUB SetSwin *
ENVI @Timer1.*del=
CALC #Hv=%&TotalCount%*26
ENVI @@POS=%&SWINMAIN_Wid%::::%Hv%
@TEAM SET-int inf=%&SIF_RANGE%:4| SET-int inf=%Hv%:12
CALL $--qd user32.dll,SetScrollInfo,#%SWIN1_Wid%,#%SB_VERT%,*&inf
_END
_SUB CheckboxAllChanged
ENVI &i=0
Find $ENVI @%&Swin1_Wid%:Checkbox_%&i%.Check=1,
{
MESS %Checkbox_All.Check%:::%&TotalCount%
LOOP #%&i% < %&TotalCount%,
{
ENVI @Checkbox_%&i%.Check=1
CALC &i=%&i% + 1
}
EXIT _Sub
}
Find $ENVI @%&Swin1_Wid%:Checkbox_%&i%.Check=0,
{
LOOP #%&i% < %&TotalCount%,
{
ENVI @Checkbox_%&i%.Check=0
CALC &i=%&i% + 1
}
}
_END
_SUB OnOK
ENVI &InstPath=
ENVI &Index=0
LOOP #%&Index% <= %&TotalCount%,
{
READ -*,%&Index%,&InstPath,&AllList
Find $%Checkbox_%&Index%.Check%=1,TEAM mess Checkbox_%&Index%选中\n%&InstPath%
CALC &Index=%&Index% + 1
}
_END
CALL @MainWindow

复制代码

红毛樱木 · 发表于 2025-12-11 14:29:33

dhwc 发表于 2025-12-10 21:39

看下了“画布”的原理，是GDI+绘制的，不是单独的传统窗口空间类型，自动继承透明通道等信息。这个貌似PECMD 弄不了，因为默认就继承了。另外两个问题，代码里没重现不知道。

dhwc · 发表于 2025-12-11 15:02:43

本帖最后由 dhwc 于 2025-12-11 15:04 编辑

红毛樱木发表于 2025-12-11 14:29
看下了“画布”的原理，是GDI+绘制的，不是单独的传统窗口空间类型，自动继承透明通道等信息。这个貌 ...

全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：

看右下角按钮

489432757 · 发表于 2025-12-11 15:12:13

dhwc 发表于 2025-12-11 15:02
全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：

全选太长了，搞短一点

dhwc · 发表于 2025-12-11 15:19:06

489432757 发表于 2025-12-11 15:12
全选太长了，搞短一点

靠，特妈的，在swin里随便复制的，还以为是显示问题，要刷新啥的呢，谢谢

红毛樱木 · 发表于 2025-12-11 17:07:02

dhwc 发表于 2025-12-11 15:02
全选问题搞定了，还是用定时器控件。不能透明就算了。那个显示发虚的问题怎么解决？如图：

swin高度太高覆盖了吧

dhwc · 发表于 2025-12-11 17:13:18

红毛樱木发表于 2025-12-11 17:07
swin高度太高覆盖了吧

解决了，是全选那个复选框太长覆盖了

skycafe · 发表于 2025-12-19 21:14:35

学习学习

bohos2008 · 发表于 5 天前

pecmd.exe放到什么位置

dhwc · 发表于 4 天前

本帖最后由 dhwc 于 2025-12-24 20:16 编辑

如果主窗体已经创建，怎样实时控制主窗体的透明度？
CALL Main

_SUB Mainwindow,W300H360,窗口,,,15,,-top -disminb
ITEM OKButton,L200T285W84H30,调整透明度,CALL set
_END

？？？

pecmd帮助里有ENVI @Mainwindow.trans=0x1，但是这个好像不能起作用，也不能指定具体的透明值

527104427 · 发表于前天 18:48

dhwc 发表于 2025-12-24 15:38
如果主窗体已经创建，怎样实时控制主窗体的透明度？
CALL Main

用API试试：SetLayeredWindowAttributes(hwnd, 0, 255, LWA_ALPHA);

dhwc · 发表于前天 19:34

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

谢谢，我试试

红毛樱木 · 发表于 13 小时前

本帖最后由红毛樱木于 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

复制代码

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

wang1126 · 发表于 12 小时前

谢谢楼主分享

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

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

点评

点评

点评

点评

点评