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

红毛樱木 · 发表于 2014-6-6 00:53:34

mdyblog 发表于 2014-6-6 00:22
>>是啊，老大，就是没图标。用INIT命令不是可以显示图标的吗？03PE下实现不

测试了下，好像是被关闭 ...

PECMD.INI只保留了两处代码也不行

FBWF P50 L256 H386
INIT I
SHEL %WinDir%\EXPLORER.EXE

红毛樱木 · 发表于 2014-6-6 01:00:59

mdyblog 发表于 2014-6-6 00:22
>>是啊，老大，就是没图标。用INIT命令不是可以显示图标的吗？03PE下实现不

测试了下，好像是被关闭 ...

搞了一晚上找到原因了，explorer.exe精简过度了。换了就行。

我试了用ctrl+alt+m快捷键按两次才行，看来开始已经加载了，但是就是不显示。奇怪啊。
不过PECMD4.0确实可以，奇怪。

红毛樱木 · 发表于 2014-6-6 02:34:27

mdyblog 发表于 2014-6-6 00:22
>>是啊，老大，就是没图标。用INIT命令不是可以显示图标的吗？03PE下实现不

测试了下，好像是被关闭 ...

经对比发现是EXPLORER.EXE缺少位图资源167，添加上去好了。

mdyblog · 发表于 2014-6-6 07:01:26

红毛樱木发表于 2014-6-6 02:34
经对比发现是EXPLORER.EXE缺少位图资源167，添加上去好了。

“好了”就好！

阿弥陀佛 · 发表于 2014-6-8 20:01:24

老大有没有发现在xp下窗口的大小不会随着字体大小自动调整？这样可能导致一部分内容不能显示，如下图。能不能增加开关使得H、W设置的为ClientHeight和ClientWidth？

mdyblog · 发表于 2014-6-8 22:23:29

本帖最后由 mdyblog 于 2014-6-8 22:35 编辑

阿弥陀佛发表于 2014-6-8 20:01
老大有没有发现在xp下窗口的大小不会随着字体大小自动调整？这样可能导致一部分内容不能显示，如下图。能不 ...

好想windows 编程都这样。窗口大小和字体无关。
一般是设计时固定好字体大小。调整字体的话，窗口大小也要自己调整大小。

》》使得H、W设置的为ClientHeight和ClientWidth
你说的是这个啊？
我看看。

ACK:
--你可以自己调整串口大小来实现的。
自动调整高度.WCS:

WIN1
_SUB WIN1,W300H200,新窗口1,
ENVI @this.POS=?::::&&X0:&&Y0
CALC &&H=200 + %&Y0%
ENVI @this.POS=::300:%&H%
_END

复制代码

mdyblog · 发表于 2014-6-9 00:00:45

阿弥陀佛发表于 2014-6-8 20:01
老大有没有发现在xp下窗口的大小不会随着字体大小自动调整？这样可能导致一部分内容不能显示，如下图。能不 ...

新版PECMD 也支持 MBROSTool的扩展。

MOUN -dum  支持 -mall -mhide 盘符列表

MOUN -udm [-u] [-w] [-m] [-mall] [-mhide] [-ret 返回变量名]  设备名 [盘符列表]  //加载MBROS ┃

-mall: 加载全部
-mhide：加载  windows不认的分区。

建议带上 -mall -mhide

这样外置不管在那儿都能加载到。

阿弥陀佛 · 发表于 2014-6-9 07:37:37

mdyblog 发表于 2014-6-8 22:23
好想windows 编程都这样。窗口大小和字体无关。
一般是设计时固定好字体大小。调整字体的话，窗口大 ...

>>自动调整高度.WCS
这段代码可以用。不过窗口比想要的结果大很多。而且先开窗口再调整字体大小，又会显示不完整了。

mdyblog · 发表于 2014-6-9 08:12:08

本帖最后由 mdyblog 于 2014-6-9 11:10 编辑

阿弥陀佛发表于 2014-6-9 07:37
>>自动调整高度.WCS
这段代码可以用。不过窗口比想要的结果大很多。而且先开窗口再调整字体大小，又会显 ...

>>这段代码可以用。不过窗口比想要的结果大很多。
缩小一个基准值即可
CALC Y0= %Y0% - 22
CALC  &&H=200 + %&Y0%
>>而且先开窗口再调整字体大小，又会显示不完整了。
_SUB OnFixWinSize
ENVI @this.POS=?::::&&X0:&&Y0::::&&CW:&&CH
CALC  &&H=200 + %&Y0% - 22
ENVI @this.POS=::300:%&H%
_END
上面写成一个函数
调整字体后调用一下 OnFixWinSize。
可以捕捉什么消息码，就能捕捉字体调整消息。
好像是是什么CHANGE

试试（具体问度娘，俺要出门了）：
SET  ::WM_WINDOWPOSCHANGED=0x0047
SET  ::WM_FONTCHANGE                =0x001D

SET  ::WM_SETTINGCHANGE             =0x001A  //=WM_WININICHANGE

mdyblog · 发表于 2014-6-9 11:12:10

本帖最后由 mdyblog 于 2014-6-9 12:45 编辑

阿弥陀佛发表于 2014-6-9 07:37
>>自动调整高度.WCS
这段代码可以用。不过窗口比想要的结果大很多。而且先开窗口再调整字体大小，又会显 ...

随字体自动调整大小.wcs:

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

TEAM ENVI^  ForceLocal=1|  ENVI^ EnviMode=1
SET  ::WM_WINDOWPOSCHANGED=0x0047

WIN1
_SUB WIN1,W300H200,随字体自动调整大小,
CALC &&CH0=200 - 25 //客户区高
CALC &&W0=300    //窗口宽,不计算了，要计算，方法一样
LABE LABE1,L28T106W270H30,,,
SET &LH=-1
ENVI @this.MSG=_%WM_WINDOWPOSCHANGED%::&&wP,&&lP, OnFixWinSize WM_WINDOWPOSCHANGED
OnFixWinSize init
_END

_SUB OnFixWinSize
ENVI @this.POS=?&&X1:&&Y1:&&W1:&&H1:&&X0:&&Y0::::&&CW:&&CH
IFEX $%&X1%<=-32000, EXIT  //最小化
CALC  &&H=%&H1% - %&CH%  + %CH0%
IFEX $%LH%=%H%, EXIT _SUB //不必调整
TEAM SET LH=%H%| ENVI @this.POS=::%W0%:%&H%
ENVI @LABE1=POS=::%W0%:%&H% [%*]
_END

阿弥陀佛 · 发表于 2014-6-9 20:45:25

1.>>随字体自动调整大小.wcs:
这个脚本在应该可以用。win7不需要考虑这样的问题，因为调整字体要注销才会生效。。xp没切换过测试。
但是有一句

CALC &&CH0=200 - 25 //客户区高

复制代码

其中的25是怎么来的？
2.使用envi能否定义一个rect结构体变量？如果可以要怎么操作

mdyblog · 发表于 2014-6-9 22:41:36

阿弥陀佛发表于 2014-6-9 20:45
1.>>随字体自动调整大小.wcs:
这个脚本在应该可以用。win7不需要考虑这样的问题，因为调整字体要注销才会 ...

1.>>随字体自动调整大小.wcs:
这个脚本在应该可以用。win7不需要考虑这样的问题，因为调整字体要注销才会生效。。xp没切换过测试。
但是有一句
CALC &&CH0=200 - 25 //客户区高
复制代码
其中的25是怎么来的？

A:
其实多少多无所谓，写0 也可以。
运行一下，大小正常就可以了。

25 这样来的： XP默认配置时，改窗口高度和客户区高度的差别。
25的好处是所见即所得。否则需要试运行一次。

2.使用envi能否定义一个rect结构体变量？如果可以要怎么操作

用PE变量:
1):
SET$    &rc=0x0010  0 0x0020 0    0x0030  0    0x40  0 //SHORT
2):
SET$# &rc=0x10  0 0 0    0x20  0 0 0    0x30  0 0 0    0x40  0 0 0 //BYTE

3):
//ENVI-数据类型  ＰＥ变量名=数值[:偏移字节数]
//ENVI?数据类型  源ＰＥ变量名=变量名[:偏移字节数]
SET$# &rc=*8 0  //8字节的0
///分别操作
SET-long  rc=0x0010  //left
SET-long  rc=0x0020:4  //top
SET-long  rc=0x0020:8  //right
SET-long  rc=0x0010:12  //bottom

//萃取
SET?long  rc=left
SET?long  rc=top:4
SET?long  rc=right:8
SET?long  rc=bottom:12

//获得RC的地址和长度
// ENVI-addr  [地址名][;长度名]=源ＰＥ变量名 //返回内存地址，字节长度
ENVI-addr &&ptr;&&len=&rc

阿弥陀佛 · 发表于 2014-6-9 22:49:05

mdyblog 发表于 2014-6-9 22:41
A:
其实多少多无所谓，写0 也可以。
运行一下，大小正常就可以了。

这有点复杂。让我消化一下。

mdyblog · 发表于 2014-6-9 22:53:05

本帖最后由 mdyblog 于 2014-6-9 22:56 编辑

阿弥陀佛发表于 2014-6-9 22:49
这有点复杂。让我消化一下。

1:
25 = %H1% - %CH%

同样高度调整6：
6 = %W1% - %CW%
//CW 值需要下载最新版。
参见随字体自动调整大小.wcs

2：
参见 PE对象制作和提取.wcs

mdyblog · 发表于 2014-6-10 23:59:38

mdyblog 发表于 2014-6-9 00:00
新版PECMD 也支持 MBROSTool的扩展。

MOUN -dum 支持 -mall -mhide 盘符列表

>>红毛樱木有范例吗？老大。发表于 12 分钟前

MBROSTool3-0603B.zip\其它资料\命令行加载外置-JJ.zip\UDm+fixdrv.wcs
就是.
没有 MBROStoo.exe 就直接用PECMD MOUN -udm l

wuyiu · 发表于 2014-6-12 19:16:08

了解一下。

阿弥陀佛 · 发表于 2014-6-15 08:02:41

老大，之前反馈的标签页上的按钮一直亮着而且打开窗口会有错误声音那个问题，我找到一个变通的方法，那就是不把控件绘制在标签页而是和它同一级别的窗体上。我先创建一个高度只有22的tabs，然后画三条线和它组成一个框，perfect！就像这样，除了边框比较黑基本上都一样

mdyblog · 发表于 2014-6-15 09:54:00

本帖最后由 mdyblog 于 2014-6-15 12:45 编辑

阿弥陀佛发表于 2014-6-15 08:02
老大，之前反馈的标签页上的按钮一直亮着而且打开窗口会有错误声音那个问题，我找到一个变通的方法，那就是 ...

1:
思路真好！
另外，可以不用自己画框，就用 TABS自己的框。
就是空框架TABS，注意，控件需要在TABS之前书写。

ENVI$ &&NL=0a
ENVI$ &&TAB=09
SET &&::WM_LBUTTONDOWN=0x0201
CALL MH2012
_SUB Page1,W288H400
_END
_SUB MH2012,W504H464,标签,
ITEM DOIT1,L100T98W70H28,修改,CALL CHCOLOR,
ITEM DOIT2,L334T98W70H28,关闭,KILL \
TABS TABS1,L12T6W476H236,Page1:Name1:Title1:tips1;Page1:Name2:Title2:tips2,
_END

复制代码

判断当前页：%&名称.Select%
换页有个通知消息的，回去查查，再贴上来。目前可以捕捉WM_LBUTTONDOWN。

效果：

2：
这段时间挺忙，那个问题一直搁着，没解决。
问题挺复杂的。一时直接解决不了。SWIN TABS 都是这个问题。
再者，夏天容易疲劳，晚上回到家没有力气看程序了。
"Du Du" 响的问题，简单点，只要把控件用定时器等延时创建就不叫了。

这段时间挺忙着“写”东东。
《中庸》、《大学》、《尚书》、《道德经》根据"本人的"（形而上）理论体系重新“翻译”完了。
正在“翻译”《论语》。

阿弥陀佛 · 发表于 2014-6-15 11:15:38

本帖最后由阿弥陀佛于 2014-6-15 11:31 编辑

mdyblog 发表于 2014-6-15 09:54
1:
思路真好！
另外，可以不用自己画框，就用 TABS自己的框。

老大对这些也感兴趣，真难得！我现在是什么书都看不下去。天气也确实很热，心烦意乱，建议你有空去游泳吧，放松一下自己。

>>换页有个通知消息的，回去查查，再贴上来。目前可以捕捉WM_LBUTTONDOWN
这个前几天有找到，没记下来。好像有两个消息，一个是改变之前，一个是改变之后。我现在用一个变量来记录切换之前选择的页，再和%&TABS1.Select%对比，一样就不改变

mdyblog · 发表于 2014-6-15 20:09:48

本帖最后由 mdyblog 于 2014-6-16 06:41 编辑

阿弥陀佛发表于 2014-6-15 11:15
老大对这些也感兴趣，真难得！我现在是什么书都看不下去。天气也确实很热，心烦意乱，建议你有空去游泳 ...

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

ENVI^  ForceLocal=1
IFEX X.LOG, LOGS * X.LOG
ENVI$ &&NL=0a
ENVI$ &&TAB=09
SET  &::WM_LBUTTONDOWN=0x0201
SET  &::WM_NOTIFY=0x004E

CALL MH2012

_SUB Page1,W288H400
_END

_SUB MH2012,W504H464,标签,
ITEM 1IT1,L100T98W70H28,页1.IT1, //第1页
ITEM 1IT2,L334T98W70H28,页1.IT2,
SET TAB[1][1]=1IT1
SET TAB[1][2]=1IT2
SET TAB[1].N=2

EDIT -3D -vcenter 2IT1,L100T98W70H28,页2.IT1, //第2页
LABE+ -vcenter 2IT2,L334T98W70H28,页2.IT2,
SET TAB[2][1]=2IT1
SET TAB[2][2]=2IT2
SET TAB[2].N=2

TABS TABS1,L12T6W476H236,Page1:Name1:Title1:tips1;Page1:Name2:Title2:tips2,
SET &I=2
LOOP #%I%<=2, TEAM SHOWPAGE  %I% 0|  CALC I=%I% + 1  //初始化,2--N页隐藏
SET &lastid=-1
      ENVI @TABS1.ID=?;&&TABS1_ID
ENVI @this.MSG=%WM_NOTIFY%::&&wp,&&lp,  CALL OnNotiFy %&wp%  %&lp%
_END

_SUB OnNotiFy
      IFEX $%TABS1_ID%=%&wp%, CALL OnNotiFyTABS1
_END

_SUB OnNotiFyTABS1
IFEX $%lastid%=%TABS1.Select%, EXIT _SUB
IFEX $%TABS1.Select%<0, EXIT _SUB
SET &i=%TABS1.Select%
SHOWPAGE  %lastid%       0 //隐藏旧的
SHOWPAGE  %TABS1.Select%  1 //显示新的
SET lastid=%TABS1.Select%
_END

_SUB SHOWPAGE
SET &i=%1
SET &sw=%2
SET~  &N=TAB[%i%].N
SET &j=1
LOOP #%j%<=%N%,
{
      SET~ &tabij=TAB[%i%][%j%]
      ENVI @%tabij%.Visable=%sw%
      CALC j=%j% + 1
}
_END

singel · 发表于 2014-6-15 21:39:41

REGI HKCU\SoftWare\VMware, Inc.\!

M大，这句代码是不是有错误？俺用它删除不了注册表里的“VMware, Inc.”项。带空格和符号的注册表应如何处理呢？

mdyblog · 发表于 2014-6-15 22:42:26

singel 发表于 2014-6-15 21:39
REGI HKCU\SoftWare\VMware, Inc.\!

M大，这句代码是不是有错误？俺用它删除不了注册表里的“VMware, ...

有个【，】是caozauo符号，需要用变量要包装一下，使得不认为是【，】操作。

SET &NM=VMware, Inc.
REGI HKCU\SoftWare\%&NM%\!

singel · 发表于 2014-6-16 08:36:36

明白了，多谢M大，^_^

2011hwo1 · 发表于 2014-6-16 10:09:02

NTPC同步时间后 date获取到的时间是ntpc没有同步时间前的时间+时间偏移,请问怎么解决？

CMD /C TIME 4:12                //当前时间是4:12
NTPC                                  //当前时间是10:07
WAIT 1000
DATE W9                            //当前时间是10:07 获取到的时间是4:12 这是为什么
MESS %W9%
DATE W9                            //当前时间是10:07 获取到的时间是4:12 这是为什么
MESS %W9%
DATE W9                            //当前时间是10:07 获取到的时间是4:12 这是为什么
MESS %W9%

2011hwo1 · 发表于 2014-6-16 10:13:57

为什么当前脚本没有停止时DATE获取到的时间会不正确,是没有同步时现在的时间,不是时间同步后现在的时间,难道系统时间有2个?

2011hwo1 · 发表于 2014-6-16 10:57:35

或者脚本如下也得不到当前正确的时间:
exec =CMD /C TIME 4:12
WAIT 1000
DATE W9 //当前时间是10:07 获取到的时间是4:12 这是为什么
MESS %W9%

mdyblog · 发表于 2014-6-16 11:23:03

2011hwo1 发表于 2014-6-16 10:09
NTPC同步时间后 date获取到的时间是ntpc没有同步时间前的时间+时间偏移,请问怎么解决？

CMD /C TIME 4:1 ...

EXEC !CMD /C TIME 4:12 //当前时间是4:12
NTPC //当前时间是11:21
MESS 等等... *8000 //WAIT 1000
DATE W9
MESS [%W9%] //当前时间是11:21 获取到的时间是11:21

复制代码

我这正常。

mdyblog · 发表于 2014-6-16 11:29:37

2011hwo1 发表于 2014-6-16 10:57
或者脚本如下也得不到当前正确的时间:
exec =CMD /C TIME 4:12
WAIT 1000

//当前时间是10:07 获取到的时间是4:12 这是为什么
这是正确的。
【CMD /C TIME 4:12 】
修改了系统时间，系统时间较正到4:12，然后慢慢长。
【DATE W9】的到的就是新的系统时间，

你所说的【 //当前时间是10:07】，那是你手上的手表，计算机可不认识；
计算机有自己的手表----RTC。【CMD /C TIME 】【NTPC】都是对应【计算机自己的手表】，而不是你手上的手表。

2011hwo1 · 发表于 2014-6-16 11:51:11

或者脚本如下也得不到当前正确的时间:  (当前时间是10:07)
exec =CMD /C TIME 4:12
WAIT 1000
DATE W9                   //获取到的时间是10:07 当前的时间是4:12 这是为什么
MESS %W9%             //消息框的提示是: 10:07  正确的是4:12
你试试这个脚本啊,上面那个那个提示是错误的,正确的提示应该是10:07

2011hwo1 · 发表于 2014-6-16 12:06:35

exec =CMD /C TIME 4:12
exec*n w8=CMD /C echo %TIME%
DATE W9
ntpc
MESS DATE命令获取到的时间是%W9% 当前时间是%w8%

这样正确吗啊

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评