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

mdyblog

wjgyz740526 发表于 2015-12-18 16:41
M大，请问：
1、pecmd可以创建不带标题栏的窗口吗？如果可以怎么做？
2、如果有变量a、b、c、d ，怎样在t ...

3、如果要对窗口画个框线，用swin控件画框怎样才没有滚动条？
--------------------
默认就没有 滚动条

ljycslg

mdyblog 发表于 2015-12-18 22:00
这个，看看

看不懂怎么用，给个示例

linkin129

ENVI^ FORCELOCAL=1

call GoDOS
_SUB BackupTips,W320H190,系统
    CHEK DOSBK,L22T72W280H18,重启,,0   
    ITEM ,L160T110W60H28,是,KILL \,
  
_END

_SUB GoDOS
    CALL @BackupTips   
    FIND $%DOSBK.Check%=1, CALL Auto|EXIT _SUB
   
_END

_SUB Auto   
mess    Auto   
_END


取不了%DOSBK.Check%值

红毛樱木

linkin129 发表于 2015-12-19 10:38
ENVI^ FORCELOCAL=1

call GoDOS

_SUB BackupTips,W320H190,系统 *
    CHEK DOSBK,L22T72W280H18,重启,,0   
    ITEM ,L160T110W60H28,是,KILL \,
  
_END


不知道行不行。别人告诉我的

linkin129

红毛樱木 发表于 2015-12-19 10:59
_SUB BackupTips,W320H190,系统 *
    CHEK DOSBK,L22T72W280H18,重启,,0   
    ITEM ,L160T110W60H2 ...

不行

mdyblog

linkin129 发表于 2015-12-19 10:38
ENVI^ FORCELOCAL=1

call GoDOS

先要定义一个变量，用于返回信息
---------------------

1. ENVI^ FORCELOCAL=1
   
2. SET &DOSBK.Check.X=0
   
3. call GoDOS
   
4. _SUB BackupTips,W320H190,系统
   
5.     SET DOSBK.Check.X=0
   
6.      CHEK DOSBK,L22T72W280H18,重启,,0   
   
7.      ITEM ,L160T110W60H28,是,TEAM SET DOSBK.Check.X=%DOSBK.Check%|  KILL \,
   
8. _END
   
9. 
   
10. _SUB GoDOS
    
11.     CALL @BackupTips   
    
12.     FIND $%DOSBK.Check.X%=1, TEAM CALL Auto|EXIT _SUB
    
13. _END
    
14. 
    
15. _SUB Auto   
    
16. mess    Auto   
    
17. _END

复制代码

红毛樱木

老大，那天的盘符问题，反馈的信息不全。
今天有时间弄了个全的。您看看。
03PE下这个情况，不知道是不是我碰到的这台机器奇葩还是怎么回事。
用了一下命令加载shel(测试普通方式加载SHEL也一样有问题，用73稳定版没有此问题)
SHEL -shel:"EXEC -nfb %&MyName% MOUN-udm server -FreshDriver"  %WinDir%\EXPLORER.EXE

刚从你网盘下的最新的73NEW测试的

盘符问题.zip (317.14 KB, 下载次数: 2)

2015-12-19 22:39 上传

点击文件名下载附件
下载积分: 无忧币 -2

linkin129

mdyblog 发表于 2015-12-19 22:04
先要定义一个变量，用于返回信息
---------------------

已经想到了

linkin129

ENVI^ FORCELOCAL=1
WIN
_SUB WIN,W502H480

  TABS TABS1,L10T6W476H396,Page1:P1:;

_END

_SUB Page1,W472H376,
    ITEM ITEM1,L192T125W60H30,ITEM1,KILL @WIN
_END     

在PECMDEDIT.exe运行出现错误

mdyblog

linkin129 发表于 2015-12-19 22:51
ENVI^ FORCELOCAL=1
WIN
_SUB WIN,W502H480

不能这么xie的

linkin129

mdyblog 发表于 2015-12-19 22:04
先要定义一个变量，用于返回信息
---------------------

不过旧版的pecmd不用定义就能取到

linkin129

mdyblog 发表于 2015-12-19 22:55
不能这么xie的

那要怎样呢？

linkin129

mdyblog 发表于 2015-12-19 22:55
不能这么xie的

点击按钮运行另一窗口，再点击按钮，kill主窗口就错误了

mdyblog

linkin129 发表于 2015-12-19 23:03
不过旧版的pecmd不用定义就能取到

去掉
ENVI^ FORCELOCAL=1
即可。
那样 就没用到PE变量

mdyblog

linkin129 发表于 2015-12-19 23:06
那要怎样呢？

参见：
杀死祖母.WCS
//不能杀死自己的长辈。
//只能POSTMSG  给他们， 让他们自杀(退出)。
或者开定时器延时自杀。

1. ENVI^ FORCELOCAL=1
   
2. WIN
   
3. _SUB WIN,W502H480
   
4.    TABS TABS1,L10T6W476H396,Page1:P1:;
   
5.    ENVI @this.MSG=#1: KILL \
   
6. _END
   
7. 
   
8. _SUB Page1,W472H376,
   
9.     ITEM ITEM1,L192T125W60H30,ITEM1, ENVI @WIN.POSTMSG=#1
   
10. _END
    

复制代码

linkin129

可以了

ling3882688

M大，你看文本残留为啥总是清不掉呢？我刷新了EXPLORER也不行。只能重启解决吗。

红毛樱木

ling3882688 发表于 2015-12-20 14:50
M大，你看文本残留为啥总是清不掉呢？我刷新了EXPLORER也不行。只能重启解决吗。

最后来个空的
TEXT试试

linkin129

READ %CurDir%\x.txt,1,FullPath
READ %CurDir%\x.txt,2,kDrv
// 动态进度条+文本：

CALL @WIN1

_SUB WIN1,W303H192,执行.进度条,

    SET &p=0
    SET &V=
    PBAR PBAR1,L12T13W249H17,0

    THREAD* OnDo

_END

_SUB OnDo
    SET &p=-1
   
   EXEC*  --cmd::5000:OnMsg &V=!wimlib-imagex.exe apply "%FullPath%" "1" "%kDrv%"

_END

_SUB OnMsg  
    FIND $%&V%=, EXIT -
    SET &p0=%&p%
    READ -,0,&vLn,%&V%

    MSTR &L2=<-2>%&vLn%

    MSTR &p=-2,0,%&L2%

    MSTR &c=2,0,%&p%

    CALC #&c=%&c%

    IFEX %&c% < 0, EXIT

    IFEX $%&c% = %&p0%, EXIT

    ENVI @PBAR1=%&c%;%&c%%%
_END

不加ENVI^ FORCELOCAL=1，读wimlib-imagex进度，PECMD的CPU占用很高啊，有没别的方法？？？

ling3882688

红毛樱木 发表于 2015-12-20 15:59
最后来个空的
TEXT试试

谢谢，我试试！

mdyblog

ling3882688 发表于 2015-12-20 14:50
M大，你看文本残留为啥总是清不掉呢？我刷新了EXPLORER也不行。只能重启解决吗。

什么版本啊！
旧版的话， 需要杀掉对应的PECMD进程。

mdyblog

linkin129 发表于 2015-12-20 16:49
READ %CurDir%\x.txt,1,FullPath
READ %CurDir%\x.txt,2,kDrv
// 动态进度条+文本：

加贝。

linkin129

mdyblog 发表于 2015-12-20 17:46
加贝。

加了后，大量代码出错几乎要重写

mdyblog

linkin129 发表于 2015-12-20 17:47
加了后，大量代码出错几乎要重写

那就局部加。
_SUB WIN1
里面加。

ling3882688

mdyblog 发表于 2015-12-20 17:45
什么版本啊！
旧版的话， 需要杀掉对应的PECMD进程。

就一个PECMD进程啊，用最新版本1218也这样。

linkin129

ENVI$ NL=0d 0a
ENVI &J=0
ENVI &A=
ENVI &B=
ENVI &A1=
ENVI &B1=


WIN
_SUB WIN,W502H480
  TABS TABS1,L10T6W476H396,Page1:P1:Page1;Page3:P2:Page3
_END


_SUB Page1,W351H240
    LIST P1LIST,L30T70W257H100,
_END

_SUB Page3,W483H300,
    LABE -left fftip,L43T170W348H18,,,0xFF0000,
    ITEM SFILE,L157T227W80H28,开始搜索,CALL SFILES,
    LIST P3LIST,L40T41W342H100,
_END

_SUB SFILES
   
    TIME FTimer,1000, CALL OnFTimer

    CALL OnFTimer

    THREAD* FIND2FILE

_END

_SUB OnFTimer

    ENVI @fftip=已用时间: %&J%秒

    CALC #&J = %&J% + 1

_END

_SUB FIND2FILE
        
     FINDINI      
_END

_SUB FINDINI
     FORX /s:5 \*.ini,G,0, ENVI &B=%&B%%NL%%G%
     MSTR &B1=3,0,%&B%
     ENVI @FTimer=0
    ENVI @fftip.Visable=0
    ENVI @P3LIST.ADD=%&B1%
    ENVI @P1:P1LIST.ADD=%&B1%
_END


%&B1%怎么传入P1LIST？

mdyblog

linkin129 发表于 2015-12-21 16:59
ENVI$ NL=0d 0a
ENVI &J=0
ENVI &A=

这个有实例。

linkin129

mdyblog 发表于 2015-12-21 17:10
这个有实例。

可以了

linkin129

PECMD 能不能对比图片和颜色的？

wjgyz740526

我想查找所有分区特定文件并列表出来该怎么做？用ifex的话变量只能保存最后一个符合条件的值啊，怎样得到一个完整的列表并显示在表里呢？



FORX /S /O:-N C:\windows\*.INI,f,0,envi &&hDATA=f%&TAB%

ENVI$ &&TAB=09

CALL Page1

_SUB Page1,W280H200,文件列表
LABE hLABE,L18T82W320H18,2.请选择:
ENVI &&hTITLE=+30:序号%&TAB%+210:文件位置%&TAB%
TABL hTABL,L18T20W240H100,%&hTITLE%,%&hDATA%,0x10040
_END



用批处理倒是可以实现，pecmd不会，肯请指教，谢谢