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

527104427

mdyblog 发表于 2015-5-10 17:58
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
SET &WM_DEVICECHANGE=0x0219
SET &DBT_DEVICEREMOVECOMPL ...

请教老大，下面的代码，
1.当切换页面456和789的时候，怎么才能重新设置L7和L8的内容？
2.点击确定以后，怎么L7和L8的值还是空？
  将  _SUB Page1,W543H174,    改成   _SUB Page1 * ,W543H174,    也是一样的结果

1. ENVI^ EnviMode=1
   
2. ENVI &&WM_LBUTTONDOWN=0x0201
   
3. CALL @Page0
   
4. 
   
5. _SUB Page0,W543H256,123,,%MyName%,
   
6.         TABS &&T1,L19T17W500H157,Page1:: 456;Page2:: 789,
   
7.         ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
   
8.         ITEM ,L361T183W60H25,确定,START,
   
9.         ITEM ,L436T183W60H25,取消,KILL @,
   
10. _END
    
11. 
    
12. _SUB Page1,W543H174,
    
13.         LIST &&L7,L410T55W46H23,1|2|3|4|5,,1,
    
14. _END
    
15. 
    
16. _SUB Page2,W543H182,
    
17.         LIST &&L8,L410T55W46H23,a|b|c|d|e,,a,
    
18. _END
    
19. 
    
20. _SUB START
    
21.         MESS -%&L7%-%&L8%-
    
22. _END
    
23. 
    
24. _SUB On_T1
    
25.         MESS -%&T1.Select%-
    
26.         FIND $%&T1.Select%=1,
    
27.         {
    
28.                 ENVI @&&L7.VAL=5|6|7|8|9
    
29.                 ENVI @&&L7=:5
    
30.         }!  
    
31.         {
    
32.                 ENVI @&&L8.VAL=f|g|h|i|j
    
33.                 ENVI @&&L8=:f
    
34.         }
    
35. _END
    
36. 
    

复制代码

mdyblog

527104427 发表于 2015-5-14 05:20
请教老大，下面的代码，
1.当切换页面456和789的时候，怎么才能重新设置L7和L8的内容？
2.点击确定以后 ...

关于PAGE的操作，有个示例，你看看。
补充说明中.DOC中也有详细介绍。

示例：TABL在TABS中查询3.WCS

小絔小小小

mdyblog 发表于 2015-5-9 18:33
1：
下载 PECMD2012.1.88.05.61-130810中英.多窗口线程稳定版_win32_64新设计.sfx.7z

关于9816楼的问题 刚刚去尝试了一下

ENVI bdvc=@%Windir%\system32\fvewiz.dll,-949
REGI $HKCU\Software\Classes\Local Settings\MuiCache\1\AAF68885\\%bdvc%=关闭 BitLocker(&B)

这样生成出来的键值名变成了

\@x:\windows\system32\fvewiz.dll,-949

mdyblog

527104427 发表于 2015-5-14 05:20
请教老大，下面的代码，
1.当切换页面456和789的时候，怎么才能重新设置L7和L8的内容？
2.点击确定以后 ...

改好了。 设置和查询子界面示例.wcs.zip (673 Bytes, 下载次数: 3)

2015-5-14 09:45 上传

点击文件名下载附件

1. ENVI^ EnviMode=1
   
2. ENVI &&WM_LBUTTONDOWN=0x0201
   
3. CALL @Page0
   
4. 
   
5. _SUB Page0,W543H256,123,,%MyName%,
   
6.         SET  &Page1.L7=  //上传的数据
   
7.         SET  &Page2.L8=
   
8.         TABS &&T1,L19T17W500H157,Page1::456;Page2::789,
   
9.         ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
   
10.         ITEM ,L361T183W60H25,查询,START,
    
11.         ITEM ,L436T183W60H25,取消,KILL @,
    
12. _END
    
13. 
    
14. _SUB Page1,W543H174,
    
15.        LIST &&L7,L410T55W46H23,1|2|3|4|5,SET Page1.L7=%&L7%,1,
    
16.        SET Page1.L7=%&L7%
    
17.        ENVI @this.MSG=#1: SET Page1.L7=%&L7%  //上传数据
    
18. _END
    
19. 
    
20. _SUB Page2,W543H182,
    
21.         LIST &&L8,L410T55W46H23,a|b|c|d|e,SET Page2.L8=%&L8%,a,
    
22.         SET Page2.L8=%&L8%
    
23.         ENVI @this.MSG=#1: SET Page2.L8=%&L8%  //上传数据
    
24. _END
    
25. 
    
26. _SUB START
    
27.         ENVI @Page1.SENDMSG=#1  //上传数据
    
28.         ENVI @Page2.SENDMSG=#1  //上传数据
    
29.         MESS 【%&Page1.L7%】-【%&Page2.L8%】
    
30. _END
    
31. 
    
32. _SUB On_T1
    
33.         MESS -%&T1.Select%-
    
34.         FIND $%&T1.Select%=1,
    
35.         {
    
36.                 ENVI @Page1:&&L7.VAL=5|6|7|8|9
    
37.                 ENVI @Page1:&&L7=:5
    
38.         }!  
    
39.         {
    
40.                 ENVI @Page2:&&L8.VAL=f|g|h|i|j
    
41.                 ENVI @Page2:&&L8=:f
    
42.         }
    
43. _END

复制代码

测试正确。

mdyblog

小絔小小小 发表于 2015-5-14 09:17
关于9816楼的问题 刚刚去尝试了一下

这样生成出来的键值名变成了

你是用的旧版PECMD。 最最最最最最最最最最最最最最最最最最新版就不会这样。

527104427

mdyblog 发表于 2015-5-14 09:46
改好了。

多谢老大，明白了。

其实这样挺费事的，不如直接将 LIST &&L7  的 && 去掉算了，不用再设置新的变量。

小絔小小小

mdyblog 发表于 2015-5-14 09:47
你是用的旧版PECMD。 最最最最最最最最最最最最最最最最最最新版就不会这样。

谢谢提醒 已经成功了
上次测试用的88.05.60
最新是61
本以为差距只是一个小版本不会有大碍呢

mdyblog

527104427 发表于 2015-5-14 10:49
多谢老大，明白了。

其实这样挺费事的，不如直接将 LIST &&L7  的 && 去掉算了，不用再设置新的变量。

那样是环境变量了。而且不支持同名控件。
作为一个小程序是没问题的。

mdyblog

527104427 发表于 2015-5-14 10:49
多谢老大，明白了。

其实这样挺费事的，不如直接将 LIST &&L7  的 && 去掉算了，不用再设置新的变量。

新版PECMD简化了下（兼容4.0）。 不需要消息来同步，而是自动同步。
qqq.7z (524.03 KB, 下载次数: 6)

2015-5-14 11:17 上传

点击文件名下载附件

1. ENVI^ EnviMode=1
   
2. ENVI &&WM_LBUTTONDOWN=0x0201
   
3. CALL @Page0
   
4. 
   
5. _SUB Page0,W543H256,123,,%MyName%,
   
6.         SET  &Page1.L7=  //上传的数据
   
7.         SET  &Page2.L8=
   
8.         TABS &&T1,L19T17W500H157,Page1::456;Page2::789,
   
9.         ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
   
10.         ITEM ,L361T183W60H25,查询,START,
    
11.         ITEM ,L436T183W60H25,取消,KILL @,
    
12. _END
    
13. 
    
14. _SUB Page1,W543H174,
    
15.        LIST &&L7,L410T55W46H23,1|2|3|4|5,SET Page1.L7=%&L7%,1,
    
16.        SET Page1.L7=%&L7%
    
17. _END
    
18. 
    
19. _SUB Page2,W543H182,
    
20.         LIST &&L8,L410T55W46H23,a|b|c|d|e,SET Page2.L8=%&L8%,a,
    
21.         SET Page2.L8=%&L8%
    
22. _END
    
23. 
    
24. _SUB START
    
25.         MESS 【%&Page1.L7%】-【%&Page2.L8%】
    
26. _END
    
27. 
    
28. _SUB On_T1
    
29.         MESS -%&T1.Select%-
    
30.         FIND $%&T1.Select%=1,
    
31.         {
    
32.                 ENVI @Page1:&&L7.VAL=5|6|7|8|9
    
33.                 ENVI @Page1:&&L7=:5
    
34.         }!  
    
35.         {
    
36.                 ENVI @Page2:&&L8.VAL=f|g|h|i|j
    
37.                 ENVI @Page2:&&L8=:f
    
38.         }
    
39. _END

复制代码

527104427

mdyblog 发表于 2015-5-14 11:17
新版PECMD简化了下（兼容4.0）。 不需要消息来同步，而是自动同步。

好的

mdyblog

527104427 发表于 2015-5-14 11:35
好的

进一步简化了。
LIST 控件就用窗口的变量&L7  &L8，方便访问。
控件名改为#&开头


所有控件都可以这样上移数据

qqq2.7z (523.83 KB, 下载次数: 2)

2015-5-14 12:04 上传

点击文件名下载附件

这就和原来差不多了

1. ENVI^ EnviMode=1
   
2. ENVI &&WM_LBUTTONDOWN=0x0201
   
3. CALL @Page0
   
4. 
   
5. _SUB Page0,W543H256,123,,%MyName%,
   
6.         TEAM SET  &L7=| SET  &L8=  //预定义控件数据名
   
7.         TABS &&T1,L19T17W500H157,Page1::456;Page2::789,
   
8.         ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
   
9.         ITEM ,L361T183W60H25,查询,START,
   
10.         ITEM ,L436T183W60H25,取消,KILL @,
    
11. _END
    
12. 
    
13. _SUB Page1,W543H174,
    
14.        LIST #&L7,L410T55W46H23,1|2|3|4|5,,1,
    
15. _END
    
16. 
    
17. _SUB Page2,W543H182,
    
18.         LIST #&L8,L410T55W46H23,a|b|c|d|e,,a,
    
19. _END
    
20. 
    
21. _SUB START
    
22.         MESS -%&L7%-%&L8%-
    
23. _END
    
24. 
    
25. _SUB On_T1
    
26.         MESS -%&T1.Select%-
    
27.         FIND $%&T1.Select%=1,
    
28.         {
    
29.                 ENVI @Page1:#&L7.VAL=5|6|7|8|9
    
30.                 ENVI @Page1:#&L7=:5
    
31.         }!  
    
32.         {
    
33.                 ENVI @Page2:#&L8.VAL=f|g|h|i|j
    
34.                 ENVI @Page2:#&L8=:f
    
35.         }
    
36. _END

复制代码

测试通过。

527104427

mdyblog 发表于 2015-5-14 12:06
进一步化了。
LIST 控件就用窗口的变量&L7  &L8，方便访问。
控件名改为#&开头

这个可以，网盘没有看到新版？

mdyblog

527104427 发表于 2015-5-14 12:58
这个可以，网盘没有看到新版？

刚传完。

一个控件有好多个变量。
如果需要提前，提前定义就好了。
如：
SET  &L7=
SET  &L7.Enable=1
SET  %Check1.Check=0

注意：如果没有主动定义， 这样和环境变量一样有风险。

如果没有主动定义L7.Enable， 而再上级定义了L7.Enable。 那么控件会直接修改他。
如果 谁也没定义，那么和没有#一样定一个局部PE变量。

527104427

mdyblog 发表于 2015-5-14 13:08
刚传完。

一个控件有好多个变量。

老大帮忙看看这个，好像不行

mdyblog

这几天研究易经， 好像研究出个和“光速不变假设”类似的 “盘古速度不变定理”，
就是没想明白盘古速度怎么勾搭上光速？脑袋都敲破了。
谁能给我提示啊？！

mdyblog

527104427 发表于 2015-5-14 14:41
老大帮忙看看这个，好像不行

你这也太长了吧？
都不知道看啥？！

你把关键的问题提出来，写个小的测试代码吧？

527104427

mdyblog 发表于 2015-5-14 15:04
你这也太长了吧？
都不知道看啥？！

我原先那一小段代码就能成功，做大了就不行了


这个不好弄，还是用环境变量算了……

mdyblog

527104427 发表于 2015-5-14 16:05
我原先那一小段代码就能成功，做大了就不行了

那你的指出是那行的代码？总不能 每一行都研究吧。

527104427

mdyblog 发表于 2015-5-14 15:00
这几天研究易经， 好像研究出个和“光速不变假设”类似的 “盘古速度不变定理”，
就是没想明白盘古速度怎 ...

老大是想名垂千古啊，盘古好像是一个开天辟地的人吧，他跟速度又是怎么勾搭上的？

527104427

mdyblog 发表于 2015-5-14 16:09
那你的指出是那行的代码？总不能 每一行都研究吧。

就是点一下确定，不能正常创建内存盘。

控件的变量没有传过来

mdyblog

527104427 发表于 2015-5-14 16:05
我原先那一小段代码就能成功，做大了就不行了

就是之前改的那个小程序啊。
哦，看了下，就差那些#&的变量没有初始化。
开始或母窗口开始初始化就好了：
TEAM SET &L5=| SET &L6=| SET &E8=|  SET &E4=| SET &L7=| SET &LA=| SET &LB=|  SET &E5=|  SET &E6=| SET &L8=| SET &LC=| SET &L9=| SET &E7=

测试成功。
ImDisk_GUI2.zip (2.95 KB, 下载次数: 7)

2015-5-14 16:20 上传

点击文件名下载附件

有空在研究一种更简单的方法。

mdyblog

527104427 发表于 2015-5-14 16:13
就是点一下确定，不能正常创建内存盘。

控件的变量没有传过来

有简化了下， 这次直接提升子界面PE变量的级别，提到母窗口一级。就简单多了。 不需要初始化变量了。也不需要#&。
只需要在子界面名称前面加上适当个数的-即可。


ImDisk_GUI3.7z (526.25 KB, 下载次数: 26)

2015-5-14 17:59 上传

点击文件名下载附件

设置查询子界面4种方法.7z (854 Bytes, 下载次数: 12)

2015-5-14 18:00 上传

点击文件名下载附件

测试成功。

ling3882688

M大，PART命令恢复删除的主分区可以，如果是逻辑分区怎么恢复？
PART  -up -super -gpt -cmp 0#1

mdyblog

ling3882688 发表于 2015-5-15 13:04
M大，PART命令恢复删除的主分区可以，如果是逻辑分区怎么恢复？
PART  -up -super -gpt -cmp 0#1

1） 你用-gpt. GPT是没有逻辑分区，所有的分区都是一样。
2）MBR才有逻辑分区。
    等按顺序恢复，不能跳前面的逻辑分区先恢复后面的逻辑分区。
    1）恢复扩展分区。和主分区方法一样，就类型为5或0x0F
        PART -super -force -mbr -clear  -up -hup      1#2  0x0F 1G 1G    // 创建扩展分区。
    2）恢复第1个逻辑分区，分区号自动生长，用+L代替。
        PART  -super -force -mbr -clear  -up -hup    1#+L   0x7  +32256  57544704  // 扩展分区最后创建一逻辑分区  
+32256表示相对当前空闲起始的偏移，>=512。一般是固定的63s。恢复的话，要通过分区表计算这个偏移。
是不是 不用＋就是绝对位置，忘了。肯定有不用＋的用法。
    3）恢复第2个逻辑分区，分区号自动生长，用+L代替。
        PART  -super -force -mbr -clear  -up -hup    1#+L   0x6  +32256  57544704
    4）恢复第3个逻辑分区，分区号自动生长，用+L代替。.。。。。

ling3882688

mdyblog 发表于 2015-5-15 14:50
1） 你用-gpt. GPT是没有逻辑分区，所有的分区都是一样。
2）MBR才有逻辑分区。
    等按顺序恢复， ...

谢M大。因为逻辑分区是建立在扩展分区上的，所以我需要计算扩展分区大小，先建扩展分区然后再建逻辑分区对吧。
我试下看看。

527104427

mdyblog 发表于 2015-5-15 14:50
1） 你用-gpt. GPT是没有逻辑分区，所有的分区都是一样。
2）MBR才有逻辑分区。
    等按顺序恢复， ...

用下面的代码，拔了U盘，成功MESS 2，然后重新插上，MESS 2失败
把窗口名字前的 * 去掉就正常了，不知道这是什么原因？不去掉这个 * 能搞定不？


ENVI^ EnviMode=1
ENVI &&WM_DEVICECHANGE=0x0219
ENVI &&DBT_DEVICEREMOVECOMPLETE=0x8004   //Device has been removed.
ENVI &&DBT_DEVICEARRIVAL=0x8000  //A device has been inserted and is now available.
ENVI &&DBT_CONFIGCHANGED=0x0018  //Current configuration has changed.
WIN1

_SUB WIN1,W287H254,盘符监视,
        ENVI @this.MSG=%WM_DEVICECHANGE%::&&wp,&&lp, OnDriveChange %&wp% %&lp%
_END

_SUB OnDriveChange *
        IFEX $[ '%&wp%'='%&DBT_DEVICEREMOVECOMPLETE%' | '%&wp%'='%&DBT_DEVICEARRIVAL%' | '%&wp%'='%&DBT_CONFIGCHANGED%' ], ABC
_END

_SUB ABC *
        THREAD MESS 1 @A*5000
        LOCK --exist ABC,&&V
        IFEX $%&V%<>0,EXIT _SUB
        LOCK ABC
        THREAD MESS 2 @A*5000
        //WAIT 10000
_END

527104427

再请教一个问题：

假如想搜索磁盘前面512字节中有无 USB 字样，下面的代码不行，请老大指点正确的用法：

GETF -find \\.\PhysicalDrive3,0x0#0x1FF#0x1,&&v,0x55 0x53 0x42
mess "%&v%"

ling3882688

M大帮忙看看，这个分区是怎么回事？

mdyblog

527104427 发表于 2015-5-16 10:20
用下面的代码，拔了U盘，成功MESS 2，然后重新插上，MESS 2失败
把窗口名字前的 * 去掉就正常了，不知道 ...

你说哪个*?  你也用用颜色突出一下啊？ 这加红色的注释对应地标注该处问题。

mdyblog

ling3882688 发表于 2015-5-16 14:39
M大帮忙看看，这个分区是怎么回事？

-4表示 4＃主分区条目空闲着。
-N表示 N＃主分区条目空闲着。