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

826773297 · 发表于 2023-4-14 12:48:24

红毛樱木发表于 2023-4-11 17:14
看上去SHCopyKey更好一些
但是说明里写了不会复制密钥的安全属性
这尴尬呀

reg copy也不会复制安全属性

回想曲 · 发表于 2023-4-14 13:02:23

感谢！支持一下！

smss · 发表于 2023-4-14 16:26:04

望M大加点动画和界面圆角，十分期待

smss · 发表于 2023-4-14 16:28:18

作者头发浓密度：100%

Bluebells · 发表于 2023-4-14 21:06:32

PECMD 创建的编辑框控件, 怎么设置其输入字符数量限制?

caocaofff · 发表于 2023-4-14 22:32:12

本帖最后由 caocaofff 于 2023-4-15 16:10 编辑

弱弱的问一下，怎么用SOCK命令检测开放的端口？比如开了FTP就是21端口，怎么知道当前的端口侦听状态？

datbik189 · 发表于 2023-4-15 08:16:11

Bluebells 发表于 2023-4-14 21:06
PECMD 创建的编辑框控件, 怎么设置其输入字符数量限制?

有示例代码, 自己研究.

SET &EM_SETLIMITTEXT=0x00C5
SET &WM_COMMAND=0x0111
SET &EN_CHANGE=0x0300

WIN1

_SUB WIN1,W344H249,测试字符数,
SET &EDIT2_V=汉字
EDIT -vcenter &EDIT2,L75T70W161H30,%&EDIT2_V%,,
SET &EDIT2.maxb=6
ENVI @&EDIT2.ID=?;&&EDIT2_ID
CALC -base=16 #&&EDIT2_CHANGE=%&EN_CHANGE% * 0x10000  + %&EDIT2_ID% //低16位，控件ID //高16位,操作码
ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp, CALL OnCommand //捕捉内容改变
_END

_SUB OnCommand
IFEX $%EDIT2_CHANGE%=%&wp%,  CALL OnEDIT2_CHANGE
_END

_SUB OnEDIT2_CHANGE
STRL -m &&len=%&EDIT2%
IFEX $%&len%>%&EDIT2.maxb%, ENVI @&EDIT2=%&EDIT2_V%!  SET EDIT2_V=%&EDIT2%
_END

//SetLimitText 控件名字符数(非字节数)
_SUB SetLimitText
   ENVI @%1.ID=?&&CWid
   ENVI @@SENDMSG=%&CWid%:%&EM_SETLIMITTEXT%;%2
_END

Zap · 发表于 2023-4-15 13:26:38

这能翻译下吗
h删除文字ttps://blog.51cto.com/u_14617575/2746140

smss · 发表于 2023-4-15 18:13:35

@echo off
set "evt=wevtutil qe system /c:1 /rd:true /f:text"
for /f "tokens=2" %%a in ('%evt% "/q:*[System[(EventID=12)]]"^|find /i "date:"') do echo 本次开机：%%a
for /f "tokens=2" %%a in ('%evt% "/q:*[System[(EventID=13)]]"^|find /i "date:"') do echo 上次关机：%%a
pause

复制代码

这能翻译下吗

smss · 发表于 2023-4-15 22:53:31

5大帮助解决了

1351999429 · 发表于 2023-4-16 12:29:41

CYYspace · 发表于 2023-4-16 13:20:07

厉害！

conlin888 · 发表于 2023-4-18 10:31:49

本帖最后由 conlin888 于 2023-4-18 10:49 编辑

mdyblog 发表于 2023-4-7 17:46
用 ResEdit 或 ResHacker 编辑 PECMD.EXE ，在保存。
内置帮助文档是

老大,当拖入文件时, 如何让窗口激活和获得焦点,这样就可以直接编辑了.

现在的问题是: 选择文件的时候, 窗口处于非激活状态和失去焦点, 拖入文件后, 窗口还是处于非激活状态和失去焦点.

TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
MYWINDOW1

_SUB MYWINDOW1,W360H440,PECMD2012功能演示,
EDIT EDIT1,L20T34W317H177,请拖入文件,,0x100
ENVI @EDIT1.MSG=0x0233::&&wp,&&lp,Team envi @this.pos=::::4
_END

conlin888 · 发表于 2023-4-18 11:16:05

mdyblog 发表于 2023-4-7 17:46
用 ResEdit 或 ResHacker 编辑 PECMD.EXE ，在保存。
内置帮助文档是

找到解决办法了, 红字代码改为 envi @this.pos=::::::1:1

caocaofff · 发表于 2023-4-22 21:56:07

pecmd的进度条能不能加个功能，让窗口在任务栏也有进度动画？

tcm · 发表于 2023-4-23 01:00:52

谢谢分享

红毛樱木 · 发表于 2023-4-23 01:09:12

caocaofff 发表于 2023-4-22 21:56
pecmd的进度条能不能加个功能，让窗口在任务栏也有进度动画？

那个用api就行了，示例代码里有。
Taskbar开头的文件好像

caocaofff · 发表于 2023-4-23 19:28:36

红毛樱木发表于 2023-4-23 01:09
那个用api就行了，示例代码里有。
Taskbar开头的文件好像

TaskbarPbr-tst.wcs

freesoft00 · 发表于 2023-4-24 20:26:47

PECMD2012.1.88.05.94Stable-230422.7z
正式版发布了

mdyblog · 发表于 2023-4-27 19:06:59

smss 发表于 2023-4-15 18:13
这能翻译下吗

ENVI$ &&NL=0D 0A
ENVI$ &&NLd=0D
ENVI$ &&NLa=0A
EXEC* &&V=*wevtutil qe system /c:1 /rd:true /f:text "/q:*[System[(EventID=12)]]"
SED -ni &&V1=1,{.*%&NLa%}{[^%&NL%]*Date:[^%&NL%]*}{%&NLd%.*},\2,%&V%
MESS. 本次开机：%&V1%
EXEC* &&V=*wevtutil qe system /c:1 /rd:true /f:text "/q:*[System[(EventID=13)]]"
SED -ni &&V2=1,{.*%&NLa%}{[^%&NL%]*Date:[^%&NL%]*}{%&NLd%.*},\2,%&V%
MESS. 上次关机%&V2%

freesoft00 · 发表于 2023-4-27 19:41:57

mdyblog 发表于 2023-4-27 19:06
ENVI$ &&NL=0D 0A
ENVI$ &&NLd=0D
ENVI$ &&NLa=0A

http://bbs.wuyou.net/forum.php?m ... 85&fromuid=1345

zhangjiti · 发表于 2023-4-27 21:36:00

谢谢提供分享

smss · 发表于 2023-4-28 08:47:45

https://wwi.lanzoui.com/b0wh8vjc
最新版本BUG 当PNG图片编译入EXE后 CHEK 开关无法正常显示
例
CHEK -scale:(50*96/12)<116:50>:%开关% 给朕连网,L375T194W46H20,,REGI $HKU\.DEFAULT\Software\Smss\\连网=%给朕连网.Check%

感恩M大辛勤付出这需要大量时间和精力我可以知道你的联系方式吗？你已经帮助我很多次了

红毛樱木 · 发表于 2023-4-28 11:53:07

smss 发表于 2023-4-28 08:47
https://wwi.lanzoui.com/b0wh8vjc
最新版本BUG 当PNG图片编译入EXE后 CHEK 开关无法正常显示
例

#1|PNG
这种格式。0422支持了的呀。

smss · 发表于 2023-4-28 15:24:14

//注意 Image1是个EXE的图标加载会卡详见https://pecmd.net/thread-522.htm

IMAG Image1,L6T422W73H73,%MyName%,call ico,
CALL setSOURCE

_SUB setSOURCE
FORX * &L8 &L9,i,
{* FNAM-ext &tmpNAME=%&fir%
FIND $%&tmpNAME%=,ENVI &fir=
ENVI @%i%.SEL=%&fir%
^FIND $%%%i%%%<>%%&fir%%,ENVI @%i%.ADDSEL=%&fir%
FIND $%i%=&L8,TEAM WAIT 555|ENVI @Image1.update=:::::;%&fir%#0
}
_END

红毛樱木 · 发表于 2023-4-28 15:45:36

smss 发表于 2023-4-28 15:24
//注意 Image1是个EXE的图标加载会卡详见https://pecmd.net/thread-522.htm

IMAG Image1,L6T422W73H73 ...

贴一个最小能重现问题的代码呗。
你这代码也不知道怎么玩

mdyblog · 发表于 2023-4-28 20:23:57

826773297 发表于 2023-4-14 12:47
pecmd能否创建无边框的圆角窗口，最好是带阴影效果

要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

smss · 发表于 2023-4-29 06:06:55

写个桌面可以移动插件，该插件被限制在屏幕的最上方，可左右拖拽移动，无法上下移动,拖拽下拉该控件有回弹的效果,松开可以切换壁纸。右键点击该插件可以弹出菜单。
以下是基本的C++程序代码思路和一些需要用到的API函数可以翻译下吗

1. 定义控件的初位置和大小，设置控件可以接受鼠标消息。
```
HWND hWnd = CreateWindowEx(WS_EX_TRANSPARENT, L"STATIC", L"", WS_VISIBLE | WS_CHILD | WS_CLIPSIBLINGS | SS_BITMAP, xPos, yPos, width, height, parentHwnd, NULL, hInstance, NULL);
SetWindowLongPtr(hWnd, GWL_STYLE, GetWindowLongPtr(hWnd, GWL_STYLE) | WS_EX_ACCEPTFILES);
```
2. 实现鼠标拖拽和回弹的效果。需要用到以下函数：GetCursorPos、SetCursorPos、ScreenToClient、ClientToScreen、SendMessage、ReleaseCapture。
```
case WM_LBUTTONDOWN:
{
ReleaseCapture();
POINT cursorPos;
GetCursorPos(&cursorPos);
ScreenToClient(hWnd, &cursorPos);
SetCursorPos(cursorPos.x, cursorPos.y);
m_bDragging = true;
m_ptStartPos = cursorPos;
break;
}
case WM_MOUSEMOVE:
{
if (m_bDragging)
{
POINT cursorPos;
GetCursorPos(&cursorPos);
ScreenToClient(hWnd, &cursorPos);
int delta = cursorPos.x - m_ptStartPos.x;
int xPos = m_ptStartPos.x + delta;
xPos = max(xPos, 0);
RECT rcParent;
GetClientRect(GetParent(hWnd), &rcParent);
xPos = min(xPos, rcParent.right - m_width);
SetWindowPos(hWnd, NULL, xPos, m_yPos, 0, 0, SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER);
m_ptLastPos = cursorPos;
}
break;
}
case WM_LBUTTONUP:
{
if (m_bDragging)
{
m_bDragging = false;
if (m_ptLastPos.x < m_ptStartPos.x)
{
SendMessage(hWnd, WM_MOVE, 0, MAKELPARAM(0, m_yPos));
}
else if (m_ptLastPos.x > m_ptStartPos.x)
{
SendMessage(hWnd, WM_MOVE, 0, MAKELPARAM(rcParent.right - m_width, m_yPos));
}
}
break;
}
```
3. 实现切换壁纸的功能，需要用到以下函数：SystemParametersInfo。
```
case WM_LBUTTONUP:
{
if (m_bDragging)
{
// ...
// 切换壁纸
m_bmpIndex = (m_bmpIndex + 1) % m_bmpList.size();
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, (PVOID)m_bmpList[m_bmpIndex].c_str(), SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
break;
}
}
```
4. 实现右键菜单的弹出，需要用到以下函数：CreatePopupMenu、AppendMenu、TrackPopupMenu、DestroyMenu。
```
case WM_CONTEXTMENU:
{
HMENU hPopupMenu = CreatePopupMenu();
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM1, L"菜单项1");
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM2, L"菜单项2");
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM3, L"菜单项3");
TrackPopupMenu(hPopupMenu, TPM_TOPALIGN | TPM_LEFTALIGN, ptCursor.x, ptCursor.y, 0, hWnd, NULL);
DestroyMenu(hPopupMenu);
break;
}
```

复制代码

smss · 发表于 2023-4-29 06:12:44

https://share.weiyun.com/3f5byXyB
效果如上

smss · 发表于 2023-4-29 20:39:07

了凡Win11_22624.1680_PE链接:https://share.weiyun.com/USJIeYYn 密码:qi8fk6

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

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

点评

点评

评分

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评