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

mdyblog

527104427 发表于 2013-7-23 09:03
老大，新设计版的MESS窗口又变回原样了，丑

哦， 这个忘了。
为了 TAB切换焦点， 焦点初始化。（ MESS和_SUB用的同一技术）  所以改了。  完全自己 控制的。
晚上 回去 把 MESS 改回来。这样 焦点 问题，就没现在完美了；不过问题也不大。

mdyblog

527104427 发表于 2013-7-23 15:33
32位PECMD，以下命令在WIN8X64下不能创建虚拟盘：RAMD ImDisk,L64,NTFS,Z,ImDIsk
改用64位PECMD正常。
...

调用 DLL 的 都是 要区分 32和64的。   PECMD32 需要调用32为的DLL，不能调用64位的DLL。
你安装 32为的 Imdisk 驱动 试试。
如果不行， 安装 64位的驱动， 再把 CPL文件 替换成32为的。

------
类似的还有MOUN 命令， 调用的是DLL。

mdyblog

527104427 发表于 2013-7-23 09:03
老大，新设计版的MESS窗口又变回原样了，丑

好了。



----
WAIT 支持等待 线程 结束。
WAIT [*sys] [-cont] [-ncd] [-][时间(毫秒)][,量变名称]      *=线程号       [时间2(毫秒)] [-del fileordir1]  [-del fileordir2] ... [-cmd cmd]

如：

1 2 3

THREAD*   MESS  1111 WAIT *=%&__LastTID% MESS END

mdyblog

clonecd 发表于 2013-7-23 22:04
PECMD2012.1.79N-130510-58多窗口线程孵化版_win32_64新设计
此版创建出来的窗口，点击【关闭】或【确定 ...

1 2 3 4 5

WIN1 _SUB WIN1, W200H120,111111%*     ITEM  B关闭,L10T10W50H20,关闭, KILL \     ITEM  B确定,L10T50W50H20,确定, KILL \ _END

正常啊。楼上版本。给出 简单测试代码吧 。

mdyblog

clonecd 发表于 2013-7-24 12:03
我的是在很复杂的环境下不正常的，之前的那个版本正常。另外

EXEC* --cmd::5000:OnMsg ...

1 2 3 4 5 6 7 8 9 10 11 12 13 14

TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1 WIN1 _SUB WIN1,W297H368,新窗口1,     ITEM OK,L81T286W60H30,OK, OnOk     MEMO MEMO2,L37T2W197H175,,,0x40     SET-def MSG= _END _SUB OnOK     EXEC* --cmd::2000:OnMsg  MSG=*cmd /Q /c  " ECHO OFF& FOR  /L %%I IN (1,1,5) do  ECHO  %%I & PECMD WAIT 500  " _END _SUB OnMsg     ENVI @MEMO2=%MSG% _END

这个 时间 是 最长间隔时间。  还有 其它机制， 决定 是否马上显示这些信息。

thttht

楼主请教不知道用PECMD可以设计出如下图这样的设置系统虚拟内存的界面来吗？
主要是图的上面部分那个显示现有硬盘分区列表和注有卷标及目前那个分区上已经设置了多大的系统虚拟内存，这个部分不知道能否实现！
不知道楼主是否可以帮忙受累给写一下啊？万分感谢！！！！


还有个问题请教在用 PAGE D:\Pagefile.sys 500 500 设置虚拟内存时，PECMD需要调用系统的那些文件啊？我用同样的这个命令和同一个版本的PECMD.exe在一个精简的系统里设置不起作用，但在另一个没有精简的系统里就可以请教，是不是PECMD需要调用系统的那些文件才会这样啊！



提出的问题很菜请楼主见谅！

mdyblog

thttht 发表于 2013-7-24 22:05
楼主请教不知道用PECMD可以设计出如下图这样的设置系统虚拟内存的界面来吗？
主要是图的上面部分那个显示现 ...

PAGE D:\Pagefile.sys 500 500  
本身不调用任何 特别的 文件。
当内存够用时，不会增加内存的，不执行的。 *force 强制增加
》》设置不起作用
你怎么判断 “设置不起作用”？？


//列出分区 + 卷标
FDRV 变量名=*:
FDRV *vol   标变量名=驱动器名

//当前 PAGE 设置
REGI  *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES    ///最新版2013.7.25

thttht

楼主我平时是禁用系统虚拟内存的，PAGE D:\Pagefile.sys 500 500 后没有生成Pagefile.sys文件，是你说的“当内存够用时，不会增加内存的，不执行的。 *force 强制增加”问题！加上*force 已经可以了，谢谢楼主！

//列出分区 + 卷标  这个我还是没有做出来！希望楼主能否给写个完整的代码啊？下图是我目前的做成这样了！下面什么也不会了！楼主辛苦辛苦帮帮忙吧！！“硬盘空间”项目要是能  “总空间 | 可用空间”这样表示就更好了！

mdyblog

thttht 发表于 2013-7-25 11:48
楼主我平时是禁用系统虚拟内存的，PAGE D:\Pagefile.sys 500 500 后没有生成Pagefile.sys文件，是你说的“当 ...

1 2 3 4 5 6 7 8 9 10 11 12 13

SET &DrvVolDat= SET$ &NL=0d 0a SET$ &TAB=09 FDRV &&ALlDrv=*: forx * %&ALlDrv%, &&drv1, {*     FDRV *vol   &&vol1=%&drv1%     FIND $X=X%&DrvVolDat%,! SET DrvVolDat=%&DrvVolDat%%NL%     FIND %&drv1%\=?,&&C1  //总空间     IFEX %&drv1%\=?,&&C2  //剩余空间     SET DrvVolDat=%&DrvVolDat%%drv1%%&TAB%%&C1%%&TAB%%&C2%%&TAB%%&vol1% } MESS. %&DrvVolDat%

结果：

C:        76725407744        34016829440        ACER D:        138297733120        87318552576        D_DISK E:        210468462592        11342188544        E_DATA

thttht

mdyblog 发表于 2013-7-25 12:11
结果：

谢谢楼主的帮助！按您的代码已经出来了，非常感谢！

还有一个问题请教，上面的代码会把光驱也列出来，不知道能否在列表里排除光驱那？这个管他也可以，一看空间大小是 0 ，就知道是光驱了！已经很麻烦楼主了，麻烦你了！

这是我用你的代码完成的效果：

mdyblog

thttht 发表于 2013-7-25 14:08
谢谢楼主的帮助！按您的代码已经出来了，非常感谢！

还有一个问题请教，上面的代码会把光驱也列出来， ...

FDRV &&ALlDrv=*:
换成：

1 2 3 4 5 6

SET-def ALlDrv= FDRV &&ALlDrv1=*: forx * %&ALlDrv1%, &&drv1, {*  FORM -raw  &&V=%&drv1%     FIND $%&V%=DRIVE_CDROM,!  SET ALlDrv=%&ALlDrv% %&drv1%    //排除CDROM }

//上面那行可以改为：
FIND $%&V%=DRIVE_FIXED,   SET ALlDrv=%&ALlDrv% %&drv1%   //只有硬盘

thttht

mdyblog 发表于 2013-7-25 14:20
FDRV &&ALlDrv=*:
换成：
//上面那行可以改为：

楼主还得麻烦你给看一下！我更新你的“只有硬盘”代码后，不知道哪里写的不对，数据的显现全在一行里了，不是列表了！我把哪里改错了啊？

这是我的代码：

1.   //列出分区 + 卷标
   
2.       SET &DrvVolDat=
   
3.       SET$ &NL=0d 0a
   
4.       SET$ &TAB=20
   
5.       SET-def ALlDrv=
   
6.       FDRV &&ALlDrv1=*:
   
7.       forx * %&ALlDrv1%, &&drv1,
   
8.       {*   
   
9.            FORM -raw  &&V=%&drv1%
   
10.            FDRV *vol   &&vol1=%&drv1%
    
11.            FIND $%&V%=DRIVE_FIXED,!   SET ALlDrv=%&ALlDrv1% %&drv1%   //只有硬盘
    
12.            FIND %&drv1%\=?,&&C1  //总空间
    
13.            IFEX %&drv1%\=?,&&C2  //可用空间
    
14.            CALC #C1 = %&C1%/1024/1024
    
15.            CALC #C2 = %&C2%/1024/1024
    
16.            SET DrvVolDat=%&DrvVolDat%%&TAB%%drv1%%&TAB%%&TAB%%&vol1%%&TAB%%&TAB%%&TAB%%&TAB%%&TAB%%C1%%&TAB%[MB]%&TAB%%&TAB%%&TAB%%&TAB%%&TAB%%&TAB%%&TAB%%&TAB%%C2%%&TAB%[MB]
    
17.        }
    
18.       LABE Label5,L10T5W325H150,盘符： 卷标：   硬盘总空间：     硬盘可用空间：,,%D1%
    
19.       EDIT-|   EDIT3,L15T20W325H150,%&DrvVolDat%,,%D1%

复制代码

这是出的界面：

mdyblog

thttht 发表于 2013-7-25 15:14
楼主还得麻烦你给看一下！我更新你的“只有硬盘”代码后，不知道哪里写的不对，数据的显现全在一行里了 ...

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

//列出分区 + 卷标 WIN1 _SUB WIN1,W389H249,选择磁盘,       SET-def DrvVolDat=       SET$ &NL=0d 0a       SET$ &TAB=09       SET-def ALlDrv=       FDRV &&ALlDrv1=*:       forx * %&ALlDrv1%, &&drv1,       {*  FORM -raw  &&V=%&drv1%           FIND $%&V%=DRIVE_FIXED,   SET ALlDrv=%&ALlDrv% %&drv1%   //只有硬盘       }          forx * %&ALlDrv%, &&drv1,       {*               FDRV *vol   &&vol1=%&drv1%            FIND %&drv1%\=?,&&C1  //总空间            IFEX %&drv1%\=?,&&C2  //可用空间            CALC #&C1 = %&C1%/1024/1024            CALC #&C2 = %&C2%/1024/1024            FIND $%&DrvVolDat%=,! SET DrvVolDat=%&DrvVolDat%%&NL%            SET DrvVolDat=%&DrvVolDat%%drv1%%&TAB%%&vol1%%&TAB%%&C1%[MB]%&TAB%%&C2%[MB]        }        SET &TITLE=#0xFF0000#0x40+40:盘符%&TAB%#0xFF00#0x400000=60:卷标%&TAB%#0xFF:100:硬盘总空间%&TAB%+100:硬盘可用空间        TABL -color:0x00F000#0x808000#0xF0E0FF TABL2,L15T20W325H150,%&TITLE%,%&DrvVolDat%, 0x10040           //LABE Label5,L10T5W325H150,盘符： 卷标：   硬盘总空间：     硬盘可用空间：,,%D1%  //这2行也可        //MEMO-|   EDIT3,L15T20W325H150,%&DrvVolDat%,, _END

thttht

mdyblog 发表于 2013-7-25 15:40

楼主还有问题请教，上面的代码中硬盘可用空间  “CALC #C2 = %&C2%/1024/1024”这部分计算问什么不起作用了啊？前面的硬盘总空间“CALC #C1 = %&C1%/1024/1024”这里可以啊？

mdyblog

thttht 发表于 2013-7-25 16:17
楼主还有问题请教，上面的代码中硬盘可用空间  “CALC #C2 = %&C2%/1024/1024”这部分计算问什么不起作用 ...

&C2
和 C2  是 2个不同的 变量。
不要 混着用。否则 错都不知道怎么错的。
这里 用 &C2, 就都用&C2
这样， 引用时用%&C2% 不是%C2%

thttht

还有个问题，在表格里可以在设置窗口上下滚动条吗？有时硬盘分区很多时也能滚动查看！

mdyblog

thttht 发表于 2013-7-25 16:32
还有个问题，在表格里可以在设置窗口上下滚动条吗？有时硬盘分区很多时也能滚动查看！

默认就有。0x10940  改为 0x10840
自动出来的。 多加几行或缩小表格的高度， 就出来了。

thttht

太好了！明白了！谢谢楼主的耐心教导和帮助！！！万分感谢！！！

这是我目前的界面：


楼主能不能在表格里选择分区后就直接关联到设置虚拟内存设置里的分区选择下拉框的的分区啊？在表格里选择分区后虚拟内存设置里的下拉框也跟着改变设置啊！他俩联动的效果啊？

mdyblog

thttht 发表于 2013-7-25 17:23
太好了！明白了！谢谢楼主的耐心教导和帮助！！！万分感谢！！！

这是我目前的界面：

    TABL -color:0x00F000#0x808000#0xF0E0FF TABL2,L15T20W325H150,%TITLE%,%DrvVolDat%, 0x10040   //USERCTRL
    //LABE Label5,L10T5W325H150,盘符：   卷标：  硬盘总空间：     硬盘可用空间：,,%D1%  //这2行也可
    //MEMO-|   EDIT3,L15T20W325H150,%DrvVolDat%,,
    SET  &::WM_LBUTTONDOWN=0x0201
    ENVI @TABL2.MSG=_%&WM_LBUTTONDOWN%:  CALL OnTable
_END

_SUB OnTable
   ENVI  @TABL2.Sel=?&&Sel
    ENVI  @TABL2.Val=?%&Sel%.1;&&V1
    ENVI  @TABL2.Val=?%&Sel%.2;&&V2
    ENVI  @TABL2.Val=?%&Sel%.3;&&V3
    ENVI  @TABL2.Val=?%&Sel%.4;&&V4
    ENVI  @EDIT1=%&V1%  //下面4个框
  ENVI  @EDIT2=%&V2%
    ENVI  @EDIT3=%&V3%
    ENVI  @EDIT4=%&V4%
    MESS 【%&Sel%】 %&V1%  %&V2%  %&V3%  %&V4%
_END

thttht

mdyblog 发表于 2013-7-25 17:53
TABL -color:0x00F000#0x808000#0xF0E0FF TABL2,L15T20W325H150,%TITLE%,%DrvVolDat%, 0x10040   / ...

楼主按您的代码实现上面的功能了！但有点地方还是不太明白！


下面是我根据我这里改过的代码，上部分代码我没有改动，EDIT1我改成List2了，现在联动没有问题，但当我选择表格最上面的一个盘符C：时，界面就会立刻关闭界面，选择其他盘符时不会这样自动关闭界面。是在我点击确定键后才会关闭界面！这是什么问题啊？

_SUB OnTable
    ENVI  @TABL2.Sel=?&&Sel
    ENVI  @TABL2.Val=?%&Sel%.1;&&V1
    ENVI  @List2=%&V1%  //下面4个框
_END

mdyblog

thttht 发表于 2013-7-25 18:16
楼主按您的代码实现上面的功能了！但有点地方还是不太明白！

_SUB OnTable
    ENVI  @TABL2.Sel=?&&Sel
    IFEX $1>%&Sel%, EXIT
    ENVI  @TABL2.Val=?%&Sel%.1;&&V1
    ENVI  @TABL2.Val=?%&Sel%.2;&&V2
    ENVI  @TABL2.Val=?%&Sel%.3;&&V3
    ENVI  @TABL2.Val=?%&Sel%.4;&&V4
    ENVI  @LIST2.ADDSEL=%&V1%  //下面4个框
_END

-----
LIST 是有个BUG。 晚上回去改改。
先 可以加一个 无的 选项
    ENVI  @TABL2.Val=?1.1;&&V1
    LIST List2,L20T180W128H100,无|%&V1%,,%&V1%

thttht

mdyblog 发表于 2013-7-25 18:28
_SUB OnTable
    ENVI  @TABL2.Sel=?&&Sel
    IFEX $1>%&Sel%, EXIT

麻烦楼主了，一次次的麻烦你！！！

527104427

thttht 发表于 2013-7-25 17:23
太好了！明白了！谢谢楼主的耐心教导和帮助！！！万分感谢！！！

这是我目前的界面：

这个工具不错，希望兄台弄好后能分享一下，哈哈

mdyblog

thttht 发表于 2013-7-25 19:45
麻烦楼主了，一次次的麻烦你！！！

改好了， 重新下载 79N-58   7.25.22：

thttht

mdyblog 发表于 2013-7-25 22:22
改好了， 重新下载 79N-58   7.25.22：

谢谢楼主新版的下载试用没有问题了！麻烦楼主了！

还想得请教你个问题,我在代码里设置了一个时间器 “TIME t1,6000,call SetPE”能否把这个时间器读秒倒计时数字显示在如下的“Windows 设置”这个标题的后面啊？就像PECMD文档里演示目录下的“进度条加文本2.WCS”那种效果啊？
_SUB Windows1,W342H295,Windows 设置,,EXPLORER.EXE#1

在“Windows 设置 【 】”这个标题里的【 】里显示倒计时数字的效果也可以，不知道这两个哪个实现起来代码更简单点啊！哪个实现简单点就来那个最好！
我自己看着“进度条加文本2.WCS”加到哪的哪个里面一直不成功！太菜了！只好还得麻烦你帮忙了！

mdyblog

thttht 发表于 2013-7-26 01:03
谢谢楼主新版的下载试用没有问题了！麻烦楼主了！

还想得请教你个问题,我在代码里设置了一个时间器  ...

1 2 3 4 5 6 7 8

SET-def K=10     @ TEAM TIME t1,1000,call OnTmSetPE| OnTmSetPE _END _SUB OnTmSetPE     ENVI @this=Windows 设置 【%K%】     CALC &K=%&K% - 1     IFEX $%&K%<0, @ TEAM SET @t1=0| CALL SetPE  //超时到 ，执行 。。。   _END

mdyblog

thttht 发表于 2013-7-26 01:03
谢谢楼主新版的下载试用没有问题了！麻烦楼主了！

还想得请教你个问题,我在代码里设置了一个时间器  ...

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

CALL @WIN1 _SUB WIN1,W303H100,新窗口1,     SET-def from=0     SET-def to=10  //超时秒数     SET-def K=%&to%     PBAR PBAR1,L22T13W200H16,20     LABE -center -vcenter -trans -ncmd PBAR1_TEXT,L22T13W200H16,,,0x0000FF     @ TEAM TIME  t1,1000, CALL OnTimer1| CALL OnTimer1 _END _SUB OnTimer1     CALC &p=(%&to% - %&K% ) * 100 / (%&to% - %&from%) #0     ENVI @PBAR1_TEXT.visable=0     ENVI @PBAR1.visable=0     envi @PBAR1=%&p%        //进度     envi @PBAR1_TEXT=%&K%秒  完成%&p%%%  //文本     ENVI @PBAR1.visable=1     ENVI @PBAR1_TEXT.visable=1     CALC #&K=%&K% - 1     IFEX $%&K%<0, TEAM ENVI @t1=0| CALL SetPE _END

mdyblog

thttht 发表于 2013-7-26 01:03
谢谢楼主新版的下载试用没有问题了！麻烦楼主了！

还想得请教你个问题,我在代码里设置了一个时间器  ...

最新版 79N-59   7.26
支持 ENVI  @进度条.color=文本颜色


-----

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

CALL @WIN1 _SUB WIN1,W303H100,新窗口1,     SET-def from=0     SET-def to=10  //超时秒数     SET-def K=%&to%     PBAR PBAR1,L22T13W200H16,20     ENVI @PBAR1.color=0xFF     @ TEAM TIME  t1,1000, CALL OnTimer1| CALL OnTimer1 _END _SUB OnTimer1     CALC &p=(%to% - %&K% ) * 100 / (%&to% - %&from%) #0     envi @PBAR1=%&p%,%&K%秒  完成%&p%%%  //进度, 文本     CALC #&K=%&K% - 1     IFEX $%&K%<0, TEAM ENVI @t1=0| CALL OnOK _END

thttht

楼主我看了你的代码，我用的是你 6985#楼那个数字倒计时的代码，现在倒计时的效果出来了，不过有新的问题！

加入这个代码后影响到界面里无法正常在硬盘分区的下拉菜单里进行选择，我一打开下拉菜单，读秒变换一个数字下拉菜单就自动关闭了，来不及选择正确的分区那！
刚刚我又试了 6987#楼的代码也有这个问题，设置的读秒时间越短读秒越快这个问题越突出。

mdyblog

thttht 发表于 2013-7-26 09:51
楼主我看了你的代码，我用的是你 6985#楼那个数字倒计时的代码，现在倒计时的效果出来了，不过有新的问题！ ...

_SUB OnTable   中
    IFEX $1>%&Sel%, EXIT  
后，或最开始， 加一行：
    ENVI @T1=0
选择虚存磁盘.wcs.zip (1.33 KB, 下载次数: 5)

2013-7-26 10:40 上传

点击文件名下载附件