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

thttht · 发表于 2013-7-25 11:48:35

本帖最后由 thttht 于 2013-7-25 12:10 编辑

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

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

mdyblog · 发表于 2013-7-25 12:11:01

本帖最后由 mdyblog 于 2013-7-25 12:49 编辑

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 · 发表于 2013-7-25 14:08:36

本帖最后由 thttht 于 2013-7-25 14:21 编辑

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

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

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

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

mdyblog · 发表于 2013-7-25 14:20:37

本帖最后由 mdyblog 于 2013-7-25 14:24 编辑

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 · 发表于 2013-7-25 15:14:24

本帖最后由 thttht 于 2013-7-25 15:16 编辑

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

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

这是我的代码：

//列出分区 + 卷标
SET &DrvVolDat=
SET$ &NL=0d 0a
SET$ &TAB=20
SET-def ALlDrv=
FDRV &&ALlDrv1=*:
forx * %&ALlDrv1%, &&drv1,
{*
FORM -raw &&V=%&drv1%
FDRV *vol &&vol1=%&drv1%
FIND $%&V%=DRIVE_FIXED,! SET ALlDrv=%&ALlDrv1% %&drv1% //只有硬盘
FIND %&drv1%\=?,&&C1 //总空间
IFEX %&drv1%\=?,&&C2 //可用空间
CALC #C1 = %&C1%/1024/1024
CALC #C2 = %&C2%/1024/1024
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]
}
LABE Label5,L10T5W325H150,盘符：卷标：硬盘总空间：硬盘可用空间：,,%D1%
EDIT-| EDIT3,L15T20W325H150,%&DrvVolDat%,,%D1%

复制代码

这是出的界面：

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

本帖最后由 mdyblog 于 2013-7-25 17:02 编辑

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 · 发表于 2013-7-25 16:17:39

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

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

mdyblog · 发表于 2013-7-25 16:24:38

本帖最后由 mdyblog 于 2013-7-25 16:26 编辑

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

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

thttht · 发表于 2013-7-25 16:32:20

本帖最后由 thttht 于 2013-7-25 16:42 编辑

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

mdyblog · 发表于 2013-7-25 16:56:17

本帖最后由 mdyblog 于 2013-7-25 16:58 编辑

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

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

thttht · 发表于 2013-7-25 17:23:34

本帖最后由 thttht 于 2013-7-25 17:29 编辑

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

这是我目前的界面：

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

mdyblog · 发表于 2013-7-25 17:53:04

本帖最后由 mdyblog 于 2013-7-25 17:54 编辑

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 · 发表于 2013-7-25 18:16:07

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 · 发表于 2013-7-25 18:28:40

本帖最后由 mdyblog 于 2013-7-25 18:57 编辑

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 · 发表于 2013-7-25 19:45:38

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

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

527104427 · 发表于 2013-7-25 20:46:53

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

这是我目前的界面：

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

mdyblog · 发表于 2013-7-25 22:22:45

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

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

thttht · 发表于 2013-7-26 01:03:44

本帖最后由 thttht 于 2013-7-26 01:09 编辑

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 · 发表于 2013-7-26 06:35:39

本帖最后由 mdyblog 于 2013-7-26 06:56 编辑

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 · 发表于 2013-7-26 06:52:34

本帖最后由 mdyblog 于 2013-7-26 06:58 编辑

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 · 发表于 2013-7-26 07:51:43

本帖最后由 mdyblog 于 2013-7-26 07:54 编辑

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 · 发表于 2013-7-26 09:51:15

本帖最后由 thttht 于 2013-7-26 10:02 编辑

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

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

mdyblog · 发表于 2013-7-26 10:25:51

本帖最后由 mdyblog 于 2013-7-26 10:40 编辑

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

_SUB OnTable 中
IFEX $1>%&Sel%, EXIT
后，或最开始，加一行：
ENVI @T1=0

选择虚存磁盘.wcs.zip (1.33 KB, 下载次数: 5)

thttht · 发表于 2013-7-26 10:43:57

mdyblog 发表于 2013-7-26 10:25
_SUB OnTable 中
IFEX $1>%&Sel%, EXIT
后加一行：

楼主你上面的 “选择虚存磁盘.wcs.zip”在我这里还是有我说的那个问题啊！
读秒变换一个数字下拉菜单就自动关闭了！我

mdyblog · 发表于 2013-7-26 11:33:36

本帖最后由 mdyblog 于 2013-7-26 11:45 编辑

thttht 发表于 2013-7-26 10:43
楼主你上面的 “选择虚存磁盘.wcs.zip”在我这里还是有我说的那个问题啊！
读秒变换一个数字下拉菜单就自 ...

理解错误。交流障碍。我理解成表格选择去了。
@ TEAM TIME t1,1000,call OnTmSetPE|  SET-def bt=1| OnTmSetPE
ENVI @ListDrv.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
ENVI @LISTInit.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
ENVI @LISTMax.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
_END
_SUB KillTm
FIND $1=%bt%,  TEAM ENVI @t1=0| SET bt=
_END

选择虚存磁盘.wcs.zip (1.38 KB, 下载次数: 7)

thttht · 发表于 2013-7-26 12:55:11

本帖最后由 thttht 于 2013-7-26 13:31 编辑

楼主我还是没有改成功，实在是头回自己做这个，很多东西都不了解，自己也说不太清楚！请楼主见谅！

我把我现在已经完成的都给你发上了，你帮我看看行吗？我有点屡不清相互关系了！有点乱了！
主要还是之前说的读单就自动关闭了的问题。也麻烦楼主帮我全面的看看里面的代码，你给我的代码有时我并不能完全理解，不对的地方帮我一起改正一下吧！拜托楼主了！

PE_SET_TEMP_2013_7.rar (1.91 KB, 下载次数: 3)

mdyblog · 发表于 2013-7-26 14:30:57

thttht 发表于 2013-7-26 12:55
楼主我还是没有改成功，实在是头回自己做这个，很多东西都不了解，自己也说不太清楚！请楼主见谅！

我把 ...

改好了。

PE_SET_TEMP_2013_7.wcs.zip (2.26 KB, 下载次数: 10)

thttht · 发表于 2013-7-26 14:47:26

本帖最后由 thttht 于 2013-7-26 14:58 编辑

mdyblog 发表于 2013-7-26 14:30
改好了。

楼主上面还有个地方有错误，这个是我原来代码中的问题。

就是“设置临时文件夹 TEMP”里有个“LIST List3,L280T158W60H320,%ALlDrv2%|不设置,,%TmpDrv%”这里的“不设置”选项，当选择这个时不正常！运行后会在脚本同目录里生成一个“不设置”的目录！这部分我设置的应该不对！麻烦也帮我看一下好吗？还有发现硬盘分区列表目前无法用鼠标滚轮滚动表格了！之前你给的可以！

mdyblog · 发表于 2013-7-26 15:18:06

thttht 发表于 2013-7-26 14:47
楼主上面还有个地方有错误，这个是我原来代码中的问题。

就是“设置临时文件夹 TEMP”里有个“LIST ...

PE变量 List3 不能外传。用List3X 外传一下。

PE_SET_TEMP_2013_7.wcs.zip (2.26 KB, 下载次数: 5)

thttht · 发表于 2013-7-26 15:26:53

mdyblog 发表于 2013-7-26 15:18
PE变量 List3 不能外传。用List3X 外传一下。

楼主上面这个附件你传错了吧！这个还是上面那个吧，生成一个“不设置”的目录的问题和无法用鼠标滚轮滚动表格的问题还有啊？

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

！

点评

点评

评分

点评

评分

点评

点评

点评

点评

点评

浏览过的版块