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

Zap · 发表于 2025-11-6 11:05:36

#include <windows.h>
#include <vector>
#include <string>
#include <fstream>
#include <cstdlib>
#include <iostream>
#include <iomanip>
#include <sstream>
#include <algorithm>
// 全局向量存储资源名称（替代 AutoIt 的 $aEN 数组）
std::vector<std::wstring> g_resourceNames;
// 资源枚举回调函数（替代 AutoIt 的 ___EnumResNameProc）
BOOL CALLBACK EnumResNameProc(HMODULE hModule, LPCWSTR lpszType, LPWSTR lpszName, LONG_PTR lParam) {
if (IS_INTRESOURCE(lpszName)) {
// ★ 处理整数型资源 ID（如 #123）
WORD id = static_cast<WORD>(reinterpret_cast<ULONG_PTR>(lpszName));
std::wstringstream wss;
wss << L"#" << id;
g_resourceNames.push_back(wss.str());
} else {
// ★ 处理字符串型资源名称
g_resourceNames.push_back(lpszName);
}
return TRUE; // 继续枚举
}
int wmain(int argc, wchar_t* argv[]) {
// ===== 1. 命令行参数处理 =====
if (argc != 4) {
std::wcerr << L"用法: " << argv[0] << L" <文件> <索引> <输出文件>\n";
return -1;
}
std::wstring file = argv[1];
int index = _wtoi(argv[2]); // 转换索引参数
std::wstring outputFile = argv[3];
// ===== 2. 文件存在性检查 =====
if (!PathFileExistsW(file.c_str())) {
wchar_t sysDir[MAX_PATH];
// 获取系统目录路径
UINT sysDirLen = GetSystemDirectoryW(sysDir, MAX_PATH);
if (sysDirLen == 0 || sysDirLen > MAX_PATH) {
std::wcerr << L"错误: 无法获取系统目录\n";
return -2;
}
// 尝试在系统目录中查找
std::wstring sysFile = std::wstring(sysDir) + L"\" + file;
if (!PathFileExistsW(sysFile.c_str())) {
std::wcerr << argv[1] << L" 未找到\n";
return -2;
}
file = sysFile; // 使用系统目录中的文件
}
// ===== 3. 加载目标文件为数据文件 =====
HMODULE hModule = LoadLibraryExW(
file.c_str(),
NULL,
LOAD_LIBRARY_AS_DATAFILE // 重要：仅作为资源加载
);
if (!hModule) {
std::wcerr << L"错误: 无法加载文件资源\n";
return -3;
}
// ===== 4. 枚举图标组资源 =====
g_resourceNames.clear();
if (!EnumResourceNamesW(
hModule,
RT_GROUP_ICON, // 图标组资源类型
EnumResNameProc, // 回调函数
0 // 回调参数
)) {
FreeLibrary(hModule);
std::wcerr << L"错误: 枚举资源失败\n";
return -3;
}
// ===== 5. 验证并选择图标索引 =====
int absIndex = abs(index); // 处理负索引
if (absIndex < 1 || absIndex > static_cast<int>(g_resourceNames.size())) {
FreeLibrary(hModule);
std::wcerr << L"错误: 无效的图标索引\n";
return -3;
}
std::wstring resName = g_resourceNames[absIndex - 1]; // 转换为0-based索引
// ===== 6. 准备资源标识符 =====
LPCWSTR lpResName;
if (resName[0] == L'#') {
// ★ 转换 "#数字" 格式为资源ID
int id = std::wcstol(resName.substr(1).c_str(), nullptr, 10);
lpResName = MAKEINTRESOURCEW(id);
} else {
// ★ 直接使用字符串资源名
lpResName = resName.c_str();
}
// ===== 7. 加载图标组资源 =====
HRSRC hGroupRes = FindResourceW(hModule, lpResName, RT_GROUP_ICON);
if (!hGroupRes) {
FreeLibrary(hModule);
std::wcerr << L"错误: 未找到图标组资源\n";
return -3;
}
// 获取资源大小
DWORD groupSize = SizeofResource(hModule, hGroupRes);
if (groupSize < 6) { // 最小头尺寸检查
FreeLibrary(hModule);
return -3;
}
// 加载并锁定资源
HGLOBAL hGroupData = LoadResource(hModule, hGroupRes);
if (!hGroupData) {
FreeLibrary(hModule);
return -3;
}
BYTE* pGroupData = static_cast<BYTE*>(LockResource(hGroupData));
if (!pGroupData) {
FreeLibrary(hModule);
return -3;
}
// ===== 8. 解析图标组头信息 =====
WORD reserved = *reinterpret_cast<WORD*>(pGroupData); // 保留字段 (应为0)
WORD type = *reinterpret_cast<WORD*>(pGroupData + 2); // 资源类型 (应为1)
WORD count = *reinterpret_cast<WORD*>(pGroupData + 4); // 图标数量
// 验证图标组头
if (reserved != 0 || type != 1 || groupSize < 6 + 14 * count) {
FreeLibrary(hModule);
std::wcerr << L"错误: 无效的图标组格式\n";
return -3;
}
// ===== 9. 创建输出ICO文件 =====
std::ofstream outFile(outputFile, std::ios::binary);
if (!outFile.is_open()) {
FreeLibrary(hModule);
std::wcerr << L"错误: 无法创建输出文件\n";
return -3;
}
// ===== 10. 写入ICO文件头 =====
DWORD offset = 6 + 16 * count; // 计算首个图标数据偏移量
outFile.write(reinterpret_cast<char*>(pGroupData), 6); // 写入ICO头
if (!outFile) {
outFile.close();
FreeLibrary(hModule);
return -3;
}
// ===== 11. 处理每个图标条目 =====
for (WORD i = 0; i < count; ++i) {
BYTE* pEntry = pGroupData + 6 + 14 * i; // 当前图标条目指针
// 修改条目中的偏移量字段
outFile.write(reinterpret_cast<char*>(pEntry), 12); // 写入前12字节
outFile.write(reinterpret_cast<char*>(&offset), 4); // 写入新计算的偏移量
if (!outFile) {
outFile.close();
FreeLibrary(hModule);
return -3;
}
// 更新下一个图标的偏移量
DWORD iconSize = *reinterpret_cast<DWORD*>(pEntry + 8);
offset += iconSize;
}
// ===== 12. 写入图标数据 =====
for (WORD i = 0; i < count; ++i) {
BYTE* pEntry = pGroupData + 6 + 14 * i;
WORD iconId = *reinterpret_cast<WORD*>(pEntry + 12); // 获取图标ID
// 加载单个图标资源
HRSRC hIconRes = FindResourceW(hModule, MAKEINTRESOURCEW(iconId), RT_ICON);
if (!hIconRes) {
outFile.close();
FreeLibrary(hModule);
std::wcerr << L"错误: 未找到图标资源\n";
return -3;
}
// 获取图标数据
DWORD iconSize = SizeofResource(hModule, hIconRes);
HGLOBAL hIconData = LoadResource(hModule, hIconRes);
if (!hIconData || iconSize == 0) {
outFile.close();
FreeLibrary(hModule);
return -3;
}
BYTE* pIconData = static_cast<BYTE*>(LockResource(hIconData));
if (!pIconData) {
outFile.close();
FreeLibrary(hModule);
return -3;
}
// 写入图标数据到文件
outFile.write(reinterpret_cast<char*>(pIconData), iconSize);
if (!outFile) {
outFile.close();
FreeLibrary(hModule);
return -3;
}
}
// ===== 13. 清理资源 =====
outFile.close();
FreeLibrary(hModule);
std::wcout << L"图标成功导出至: " << outputFile << std::endl;
return 0; // 成功退出
}

复制代码

红毛樱木 · 发表于 2025-11-6 11:07:49

Zap 发表于 2025-11-6 11:05

太费劲了，帖代码咋不一次帖完。不想看不想研究，你自己改吧

Zap · 发表于 2025-11-6 12:13:29

红毛樱木发表于 2025-11-6 11:07
太费劲了，帖代码咋不一次帖完。不想看不想研究，你自己改吧

你咋不一次改成

我这今天才研究出来，大前天还不会

527104427 · 发表于 2025-11-6 12:29:23

Zap 发表于 2025-11-6 12:13
你咋不一次改成我这今天才研究出来，大前天还不会

你没发现你把一个括号改丢了吗？

Zap · 发表于 2025-11-6 12:34:58

527104427 发表于 2025-11-6 12:29
你没发现你把一个括号改丢了吗？

丢不丢都一样了因为错不在这前面都截胡了
快去请掌管代码的神@mdyblog

红毛樱木 · 发表于 2025-11-6 12:45:17

Zap 发表于 2025-11-6 12:13
你咋不一次改成我这今天才研究出来，大前天还不会

你第一次给的C++源码，我都帮你翻译完了。而且你代码里的逻辑不对，我也帮你改了。还要咋样呀。。。我都不知道你代码的原理

Zap · 发表于 2025-11-6 18:02:43

红毛樱木发表于 2025-11-6 12:45
你第一次给的C++源码，我都帮你翻译完了。而且你代码里的逻辑不对，我也帮你改了。还要咋样呀。。。我 ...

PECMD太难了

红毛樱木 · 发表于 2025-11-6 19:59:58

Zap 发表于 2025-11-6 18:02
PECMD太难了

想翻译成PECMD，自己研究的代码要用C语言，不能用C++，不然不好翻译的。 PECMD我感觉是类似C风格的

5315929 · 发表于 2025-11-6 20:11:54

感谢分享。

Zap · 发表于 2025-11-7 13:03:17

本帖最后由 Zap 于 2025-11-7 13:04 编辑

红毛樱木发表于 2025-11-6 19:59
想翻译成PECMD，自己研究的代码要用C语言，不能用C++，不然不好翻译的。 PECMD我感觉是类似C风格的

呼叫古希腊掌管代码的神

//返回程序第一个图标名
#include <windows.h>
#include <shlwapi.h>
#include <wchar.h>
#include <stdio.h>
#include <stdlib.h>
#include <io.h> // 用于_setmode
#include <fcntl.h> // 用于_O_U16TEXT
#pragma comment(lib, "shlwapi.lib")
// 全局资源名称数组及计数
wchar_t** g_resourceNames = NULL;
int g_resourceCount = 0;
// 资源枚举回调函数：正确处理整数ID和字符串名称
BOOL CALLBACK EnumResNameProc(HMODULE hModule, LPCWSTR lpszType, LPWSTR lpszName, LONG_PTR lParam) {
wchar_t* resName = NULL;
if (IS_INTRESOURCE(lpszName)) {
// 处理整数ID（资源ID是16位无符号整数）
WORD id = (WORD)(UINT_PTR)lpszName; // 正确转换资源ID
resName = (wchar_t*)malloc(64 * sizeof(wchar_t)); // 扩大缓冲区避免溢出
if (!resName) return FALSE; // 检查内存分配失败
// 格式化整数ID为 "#数字"（例如#1000）
if (swprintf_s(resName, 64, L"#%u", id) < 0) { // 使用%u匹配WORD（无符号）
free(resName);
return FALSE;
}
} else {
// 处理字符串名称（例如ICO_MYCOMPUTER）
size_t nameLen = wcslen(lpszName);
resName = (wchar_t*)malloc((nameLen + 1) * sizeof(wchar_t));
if (!resName) return FALSE; // 检查内存分配失败
wcscpy_s(resName, nameLen + 1, lpszName);
}
// 扩展资源名称数组
wchar_t** newArray = (wchar_t**)realloc(g_resourceNames, (g_resourceCount + 1) * sizeof(wchar_t*));
if (!newArray) {
free(resName);
return FALSE;
}
g_resourceNames = newArray;
g_resourceNames[g_resourceCount++] = resName;
return TRUE;
}
// 释放资源名称数组内存
void FreeResourceNames() {
for (int i = 0; i < g_resourceCount; i++) {
if (g_resourceNames[i]) free(g_resourceNames[i]);
}
free(g_resourceNames);
g_resourceNames = NULL;
g_resourceCount = 0;
}
// 显示帮助信息
void ShowHelp(const wchar_t* programName) {
wprintf(L"用法: %ls <目标程序路径>\n", programName);
wprintf(L"示例: %ls C:\\Windows\\explorer.exe\n", programName);
}
int wmain(int argc, wchar_t* argv[]) {
// 设置控制台宽字符模式（确保中文和宽字符正常显示）
_setmode(_fileno(stdout), _O_U16TEXT);
_setmode(_fileno(stderr), _O_U16TEXT);
// 参数检查
if (argc != 2) {
ShowHelp(argv[0]);
return -1;
}
wchar_t targetPath[MAX_PATH];
wcscpy_s(targetPath, MAX_PATH, argv[1]);
// 检查目标文件是否存在
if (!PathFileExistsW(targetPath)) {
fwprintf(stderr, L"错误: 文件不存在 - %ls\n", argv[1]);
return -2;
}
// 加载目标程序作为资源文件（仅读取资源，不执行代码）
HMODULE hModule = LoadLibraryExW(targetPath, NULL, LOAD_LIBRARY_AS_DATAFILE | LOAD_LIBRARY_AS_IMAGE_RESOURCE);
if (!hModule) {
fwprintf(stderr, L"错误: 无法加载文件资源 (错误码: %d)\n", GetLastError());
return -3;
}
// 枚举所有图标组资源（RT_GROUP_ICON是图标组的资源类型）
FreeResourceNames();
if (!EnumResourceNamesW(hModule, RT_GROUP_ICON, EnumResNameProc, 0)) {
fwprintf(stderr, L"错误: 枚举图标资源失败 (错误码: %d)\n", GetLastError());
FreeLibrary(hModule);
FreeResourceNames();
return -3;
}
// 输出第一个图标组名称（修复格式符错误）
if (g_resourceCount > 0 && g_resourceNames[0]) {
// 修复：用%ls打印宽字符字符串（wchar_t*），而非%s
wprintf(L"%ls\n", g_resourceNames[0]);
} else {
fwprintf(stderr, L"错误: 未找到图标组资源\n");
FreeLibrary(hModule);
FreeResourceNames();
return -3;
}
// 清理资源
FreeLibrary(hModule);
FreeResourceNames();
return 0;
}

复制代码

红毛樱木 · 发表于 2025-11-7 13:37:51

Zap 发表于 2025-11-7 13:03
呼叫古希腊掌管代码的神

牛逼，你要双休吗

红毛樱木 · 发表于 2025-11-12 14:00:27

Zap 发表于 2025-11-7 13:03
呼叫古希腊掌管代码的神

PECMD有回调函数支持，在 ENVI 命令说明书的最后面：
※绑定回调函数： ENVI^ WndProc[1|2|3][C][,指针变量]  //C为C调用。
---------------------------
举例说明。
你的代码中有 EnumResourceNamesW 这个API调用

WINBASEAPI
BOOL
WINAPI
EnumResourceNamesW(
_In_opt_ HMODULE hModule,
_In_ LPCWSTR lpType,
_In_ ENUMRESNAMEPROCW lpEnumFunc,
_In_ LONG_PTR lParam
);

第三个是回调函数，就是你代码中的 EnumResNameProc
翻译到PECMD里是这样用：
ENVI^ WndProc1,&WndProc1Addr  //这个%&WndProc1Addr% 就是回调函数的地址了。
然后，CALL$ 调用 EnumResourceNamesW 这个API，第三个参数就可以直接用 #%&WndProc1Addr% 了。
最后，你写个 _SUB 函数，比如：
_SUB OnWndProc1
  // 这里写你的代码等。获取到的信息就是 %~1 %~2..... 这些了。
_END
------------------------
ENVI^ WndProc1  这里的数字 1 与 OnWndProc1 里的数字 1 是对应的。 PECMD最多支持3个回调，固定格式。(另外注意：绑定到当前执行栈)
------------------------
示例目录中的  Test7Zip.wcs  有详细的回调函数代码，可以参考。

蓝精灵33 · 发表于 2025-11-20 16:53:50

学习学习

蓝精灵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

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

尽善尽美 · 发表于 5 天前

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

dhwc · 发表于 3 天前

写了个软件安装管理器，根据列表文件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

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

求教，谢谢

红毛樱木 · 发表于 3 天前

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

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

dhwc · 发表于 3 天前

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

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

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评