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

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呢

mdyblog

caocaofff 发表于 2022-7-22 18:59
m大，有没有现成的英文版帮助说明的PECMD呢

完整包中带的有中英文HELP  （PECMD.exe.437.lang为英文HELP）； 纯英文系统上， 默认就是英文界面。
SET LC_ALL=437
PECMD HELP

caocaofff

mdyblog 发表于 2022-7-22 19:02
完整包中带的有中英文HELP  （PECMD.exe.437.lang为英文HELP）； 纯英文系统上， 默认就是英文界面。
SE ...

好的

Anson4

826773297 发表于 2022-7-22 14:10
窗口设置dpi后，控件大小发生了改变，labe透明标签高度为20，字体大小是8的情况下显示不全

我觉得最别扭的还是 LIST 控件，在不同的DPI下其高度差别很大。

826773297

Anson4 发表于 2022-7-22 21:02
我觉得最别扭的还是 LIST 控件，在不同的DPI下其高度差别很大。

没错

826773297

mdyblog 发表于 2022-7-22 19:02
完整包中带的有中英文HELP  （PECMD.exe.437.lang为英文HELP）； 纯英文系统上， 默认就是英文界面。
SE ...

#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

call GetDpiPercent
call @Page1

_sub Page1,w347 h297,,,,,, %ScaleCMD%
        swin swin1:Win1:-SwinMain1,l0 t0 w347 h205,,0x100
_end

_sub Win1,w347 h205,,,,:0xFFFFFF,, %ScaleCMD%
    envi @this.bkcolor=0x000000*
    envi @Win1.bkcolor=0x000000
_end

_sub GetDpiPercent *
        call $user32.dll,SetProcessDPIAware
        call $--ret:hdc user32.dll,GetDC,#0
        call $--ret:LogPixels Gdi32.dll,GetDeviceCaps,#%hdc%,#90
        set ScaleCMD=-scalef:%LogPixels% -scale:%LogPixels%
_end

怎么才能设置swin子窗口的背景颜色

mdyblog

826773297 发表于 2022-7-22 21:14
#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

_sub Win1,W347H205,,,,,, %ScaleCMD%
     ENVI @this.bkcolor=0xFF*
_end

826773297

mdyblog 发表于 2022-7-22 21:37
_sub Win1,W347H205,,,,,, %ScaleCMD%
     ENVI @this.bkcolor=0xFF*
_end

#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

call GetDpiPercent
call @Page1

_sub Page1,w347 h297,,,,,, %ScaleCMD%
    envi @Page1.bkcolor=0x000000
        swin swin1:Win1:-SwinMain1,l0 t10 w347 h205,,0x100
_end

_sub Win1,W347H205,,,,:0x000000,, %ScaleCMD%
_end

_sub GetDpiPercent *
        call $user32.dll,SetProcessDPIAware
        call $--ret:hdc user32.dll,GetDC,#0
        call $--ret:LogPixels Gdi32.dll,GetDeviceCaps,#%hdc%,#90
        set ScaleCMD=-scalef:%LogPixels% -scale:%LogPixels%
_end


有一条白线