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

mdyblog

泮安宁 发表于 2022-7-21 17:46
如果有多个按钮

ENVI^ EnviMode=1

1. ENVI^ EnviMode=1
   
2. SET  ::WM_KEYDOWN=0x0100
   
3. SET  ::WM_KEYUP=0x0101
   
4. SET  ::WM_SYSKEYDOWN=0x0104
   
5. SET  ::WM_SYSKEYUP=0x0105
   
6. SET  ::VK_ALT=0x12
   
7. 
   
8. Windows1
   
9. _SUB Windows1,W360H440,WinCMD功能演示,,,20,,-altmv
   
10.       ITEM item1,l50t100w200h50,ABC
    
11.       ITEM item2,l50t160w200h50,ABC
    
12.       SET &SubCtr=item1 item2
    
13.       SET &bAlt=1  
    
14.       //临时禁用控件，响应AltMove
    
15.       TIME -t:1 ,0,CALL * RegAltMove
    
16. _END
    
17. 
    
18. _SUB  ForAltMove
    
19.     SET bAlt=%1
    
20.     FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
    
21. _END
    
22. 
    
23. _SUB  RegAltMove *
    
24.     ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
25.     ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
26.     ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
    
27.     FORX * %&SubCtr%,&&Ctr,
    
28.     {*  ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
29.         ^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
30.     }
    
31. _END

复制代码

泮安宁

mdyblog 发表于 2022-7-21 18:44

好的

mdyblog

泮安宁 发表于 2022-7-21 19:04
好的

1. ENVI^ EnviMode=1
   
2. SET  ::WM_KEYDOWN=0x0100
   
3. SET  ::WM_KEYUP=0x0101
   
4. SET  ::WM_SYSKEYDOWN=0x0104
   
5. SET  ::WM_SYSKEYUP=0x0105
   
6. SET  ::VK_ALT=0x12
   
7. CALC #&&iALT=%&VK_ALT% + 1
   
8. 
   
9. Windows1
   
10. _SUB Windows1,W360H440,WinCMD功能演示,,,20,,-altmv
    
11.       ITEM item1,l50t100w200h50,ABC
    
12.       ITEM item2,l50t160w200h50,ABC
    
13.       SET &SubCtr=item1 item2
    
14.       SET &V0=
    
15.       SET &bAlt=1  
    
16.       //临时禁用控件，响应AltMove
    
17.       TIME -t:1 ,0,CALL * RegAltMove
    
18. _END
    
19. 
    
20. _SUB  ForAltMove
    
21.     @IFEX #%~1=%bAlt%, EXIT
    
22.     WAIT -scanall &&V
    
23.     FIND *&V0=&V, EXIT _SUB
    
24.     SET-copy V0=&V
    
25.     MSTR &&VAlt=<%iALT%>%&V%
    
26.     CALC #&VAlt=%VAlt% & 0x80
    
27.     IFEX #0=%~1,  IFEX #%VAlt%<>0x80, EXIT
    
28.     IFEX #1=%~1, IFEX #%VAlt%=0x80,   EXIT
    
29.     SET bAlt=%1
    
30.     FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
    
31. _END
    
32. 
    
33. _SUB  RegAltMove *
    
34.     ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
35.     ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
36.     ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
    
37.     FORX * %&SubCtr%,&&Ctr,
    
38.     {*  ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
39.         ^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
40.     }
    
41. _END

复制代码

泮安宁

mdyblog 发表于 2022-7-21 19:27

感谢m大

mdyblog

mdyblog 发表于 2022-7-21 19:27

1. ENVI^ EnviMode=1
   
2. SET  ::WM_KEYDOWN=0x0100
   
3. SET  ::WM_KEYUP=0x0101
   
4. SET  ::WM_SYSKEYDOWN=0x0104
   
5. SET  ::WM_SYSKEYUP=0x0105
   
6. SET  ::VK_ALT=0x12
   
7. 
   
8. Windows1
   
9. _SUB Windows1,W360H440,控件上AltMove,,,20,,-altmv
   
10.       ITEM item1,l50t100w200h50,ABC
    
11.       ITEM item2,l50t160w200h50,ABC
    
12.       SET &SubCtr=item1 item2
    
13.       SET &bAlt=1  
    
14.       //临时禁用控件，响应AltMove
    
15.       TIME -t:1 ,0,CALL * RegAltMove
    
16. _END
    
17. 
    
18. _SUB  ForAltMove
    
19.     @IFEX #%~1=%bAlt%, EXIT
    
20.     WAIT -scan:%&VK_ALT% &&VAlt
    
21.     CALC #&VAlt=%VAlt% & 0x80
    
22.     IFEX #0=%~1, IFEX #%VAlt%<>0x80, EXIT
    
23.     IFEX #1=%~1, IFEX #%VAlt%=0x80,  EXIT
    
24.     SET bAlt=%1
    
25.     FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
    
26. _END
    
27. 
    
28. _SUB  RegAltMove *
    
29.     ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
30.     ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
31.     ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
    
32.     FORX * %&SubCtr%,&&Ctr,
    
33.     {*  ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
34.         ^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
35.     }
    
36. _END

复制代码

mdyblog

mdyblog 发表于 2022-7-21 23:36

不变灰版

1. ENVI^ EnviMode=1
   
2. SET  ::WM_KEYDOWN=0x0100
   
3. SET  ::WM_KEYUP=0x0101
   
4. SET  ::WM_SYSKEYDOWN=0x0104
   
5. SET  ::WM_SYSKEYUP=0x0105
   
6. SET  ::VK_ALT=0x12
   
7. 
   
8. //临时禁用控件，响应AltMove,不变灰
   
9. 
   
10. Windows1
    
11. _SUB Windows1,W360H440,控件上AltMove(不变灰),,,20,,-altmv
    
12.       SWIN  -:WinIn:SwinWin1,L0T0W360H440,
    
13.       SET &bAlt=1  
    
14.       TIME -t:1 ,0,CALL * RegAltMove1
    
15. _END
    
16. _SUB WinIn,W360H440,
    
17.       ITEM item1,l50t100w200h50,ABC
    
18.       ITEM item2,l50t160w200h50,ABC
    
19.       SET &SubCtr=item1 item2
    
20.       TIME -t:1 ,0,CALL * RegAltMove
    
21. _END
    
22. 
    
23. _SUB  ForAltMove
    
24.     @IFEX #%~1=%bAlt%, EXIT
    
25.     WAIT -scan:%&VK_ALT% &&VAlt
    
26.     IFEX #0=%~1, IFEX #%VAlt%<0x80, EXIT
    
27.     IFEX #1=%~1, IFEX #%VAlt%>=0x80,  EXIT
    
28.     SET bAlt=%1
    
29.     ENVI @SwinWin1.Enable=%1
    
30. _END
    
31. 
    
32. _SUB  RegAltMove1 *
    
33.     ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
34.     ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
35.     ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
    
36. _END
    
37. 
    
38. _SUB  RegAltMove *
    
39.     FORX * %&SubCtr%,&&Ctr,
    
40.     {*  ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
    
41.         ^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
    
42.         ^ENVI @%&Ctr%.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
    
43.     }
    
44. _END

复制代码

泮安宁

mdyblog 发表于 2022-7-22 04:07
不变灰版

最近发的这两个版本测试都不可以移动呢

shmoss

有7Z压缩进度条的例子吗

mdyblog

泮安宁 发表于 2022-7-22 07:20
最近发的这两个版本测试都不可以移动呢

最新  PECMD

mdyblog

shmoss 发表于 2022-7-22 08:58
有7Z压缩进度条的例子吗

示例\7z进度信息.WCS
然后， 提取最后一个的 有效 进度值
  SED -ex &&pE=?1,[%NL%]Everything is Ok[%NL%],,&vMSG
  IFEX #%pE%>0, SET P=100! TEAM SED -ex &P=1,{.*[%NL%] *}{\d+}{% \d+.*},\2,&vMSG| CALC #P=%P%

泮安宁

mdyblog 发表于 2022-7-22 09:02
最新  PECMD

哦，原来更新了

shmoss

mdyblog 发表于 2022-7-22 09:04
示例\7z进度信息.WCS
然后， 提取最后一个的 有效 进度值

我想显示压缩进度
应该怎么做

shmoss

PBAR这种

826773297

吃瓜群众问一下，有没有竖向的进度条，pecmd的进度条都是横向的

mdyblog

shmoss 发表于 2022-7-22 09:31
PBAR这种

1. ENVI^ ForceLocal=1
   
2. SET$ &NL=0d 0a
   
3. SET &I=1
   
4. SET &P=0
   
5. SET &vMSG=
   
6. SET &PID=0
   
7. _SUB ImagexExemsg
   
8.   CALC I=%I%+1
   
9.   ENVI @wMsg=%vMSG%
   
10.   SED -ex &&pE=?1,[%NL%]Everything is Ok[%NL%],,&vMSG
    
11.   IFEX #%pE%>0, SET P=100! TEAM SED -ex &P=1,{.*[%NL%] *}{\d+}{% \d+.*},\2,&vMSG| CALC #P=%P%
    
12.   ENVI @wP=%P%
    
13.   ENVI @Pbar1=%P%;%P%%%
    
14.   ENVI @this=%P%%%  //inx:%I%
    
15. _END
    
16. 
    
17. WIN1
    
18. _SUB WIN1,W687H494,新窗口1, KILL *%PID%
    
19.     TIME -t:1 T,0,DoIt
    
20.     LABE -vcenter wP,L7T6W60H20,xxx,,
    
21.     PBAR Pbar1,L70T6W260H20,0   
    
22.     MEMO wMsg,L07T46W600H400,,,0x40
    
23. _END
    
24. 
    
25. _SUB DoIt
    
26.     ENVI @wP=0
    
27.     ENVI @Pbar1=0
    
28.     //解压
    
29.     //EXEC* -pid:&PID -cmd::1000:ImagexExemsg -wait -err+ &vMSG=*"C:\Program Files\7-Zip\7z.exe" -y -bsp1 x P:\PhyOs\WAIGO_Win10(21H2)_8.1_XP_ALL_PE.ISO  -oP:\TEMP\T
    
30.     //压缩
    
31.     FILE -file  P:\PhyOs\T1.7z
    
32.     EXEC* -pid:&PID -cmd::1000:ImagexExemsg -wait -err+ &vMSG=*"C:\Program Files\7-Zip\7z.exe" -y -bsp1 a P:\PhyOs\T1.7z P:\TEMP\T1\*
    
33.     SET PID=0  //Clear
    
34.     SED -ex &&pE=?1,[%NL%]Everything is Ok[%NL%],,&vMSG
    
35.     IFEX #%pE%>0, TEAM SET P=100| ENVI @wP=%P%;%P%%%| ENVI @this=%P%%% END OK
    
36. _END
    

复制代码

mdyblog

826773297 发表于 2022-7-22 10:19
吃瓜群众问一下，有没有竖向的进度条，pecmd的进度条都是横向的

H>W
    PBAR Pbar1,L610T6W20H260,62

826773297

mdyblog 发表于 2022-7-22 11:01
H>W
    PBAR Pbar1,L610T6W20H260,62

改一下大小就行了，回去后试试

527104427

826773297 发表于 2022-7-19 21:37
5大这个问题解决了吗，我也遇到了这个问题

我已经放弃挣扎了。本来界面做好了，但发现有些功能实在是实现不了。

527104427

mdyblog 发表于 2022-7-22 11:01
H>W
    PBAR Pbar1,L610T6W20H260,62

最新版未对齐：

mdyblog

527104427 发表于 2022-7-22 12:25
最新版未对齐：

下载

mdyblog

527104427 发表于 2022-7-22 12:24
我已经放弃挣扎了。本来界面做好了，但发现有些功能实在是实现不了。

更改DPI 调用SetDpi.EXE

826773297

mdyblog 发表于 2022-7-22 12:52
更改DPI 调用SetDpi.EXE

我的pecmd有支持dpi v2吗

826773297

527104427 发表于 2022-7-22 12:24
我已经放弃挣扎了。本来界面做好了，但发现有些功能实在是实现不了。

我卡在dpi上了，我也妥协了，直接不调用api，使用pecmd默认窗口，模糊就模糊点吧

826773297

什么时候内置smbios功能，我们普通人要用pecmd读取smbios很难，一本说明书都几十上百页，还要自己调用api又要计算

红毛樱木

826773297 发表于 2022-7-22 13:21
什么时候内置smbios功能，我们普通人要用pecmd读取smbios很难，一本说明书都几十上百页，还要自己调用api又 ...

内置了，得搞多少变量出来让你用啊  。。。

826773297

红毛樱木 发表于 2022-7-22 13:23
内置了，得搞多少变量出来让你用啊  。。。

m大肯定有办法

mdyblog

826773297 发表于 2022-7-22 12:57
我卡在dpi上了，我也妥协了，直接不调用api，使用pecmd默认窗口，模糊就模糊点吧

SCRN 可以直接获得DPI

SCRN -desk  W,H,,,,dpiX,dpiY,scaleX,scaleY
MESS. dpy: %dpiX% %dpiY% Scale: %scaleX% %scaleY%  WH: %W% %H%

826773297

mdyblog 发表于 2022-7-22 13:58
SCRN 可以直接获得DPI

SCRN -desk  W,H,,,,dpiX,dpiY,scaleX,scaleY

窗口设置dpi后，控件大小发生了改变，labe透明标签高度为20，字体大小是8的情况下显示不全

826773297

控件不会根据dpi自适应，另外我还发现，调用了这个api:
CALL $--ret:&DPI_Aware user32.dll,SetProcessDPIAware

然后把窗口dpi设置为175，窗口反而小了
按理来说dpi越大，窗口也应该放大才对

caocaofff

m大，有没有现成的英文版帮助说明的PECMD呢