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

thttht · 发表于 2013-8-5 14:44:50

本帖最后由 thttht 于 2013-8-5 15:12 编辑

谢谢两位大大的讲解！明白了！

还有个问题请教，下面代码是我看大大们的“虚拟内存与临时文件设置”中的代码改的，但我这个“确定目录”部分捕捉内容改变好像还行，“确定文件”部分捕捉内容改变就不行了！请教问题出在什么地方啊？主要是对命令不熟悉，一知半解的！

  LABE -center -vcenter LABE1,L12T108W55H18,确定目录:,,
  SET-def BOOT_Enable=1
  FDIR --fullfile &&BOOT=%&CurDir%\..
EDIT TMPDir,L67T105W140H20,%&BOOT%,,0x100
ITEM BOOTDIR,L210T103W50H24,浏览,CALl SelectBOOT,

SET &WM_COMMAND=0x0111
SET &EN_CHANGE=0x0300
ENVI @TMPDir.ID=?;&&TMPDir_ID
CALC -base=16 #&&TMPDir_CHANGE=%&EN_CHANGE% * 0x10000  + %TMPDir_ID% //低16位，控件ID //高16位,操作码
ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp,CALL OnCommand //捕捉内容改变
CALL OnTimer1

  LABE -center -vcenter LABE2,L12T138W55H18,确定文件:,,
  SET-def Fileimg_Enable=2
EDIT Fileimg,L67T135W140H20,%Fileimg%,,0x100
ITEM BOOTFile,L210T133W50H24,浏览,CALl SelectFile,

SET &WM_COMMAND=0x0111
SET &EN_CHANGE=0x0300
ENVI @Fileimg.ID=?;&Fileimg_ID
CALC -base=16 #&Fileimg_CHANGE=%&EN_CHANGE% * 0x10000  + %Fileimg_ID% //低16位，控件ID //高16位,操作码
ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp,CALL OnCommand //捕捉内容改变
CALL OnTimer1

mdyblog · 发表于 2013-8-5 15:43:18

thttht 发表于 2013-8-5 14:44
谢谢两位大大的讲解！明白了！

还有个问题请教，下面代码是我看大大们的“虚拟内存与临时文件设置”中的 ...

ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp,CALL OnCommand //捕捉内容改变,大家公用的。里面再分。
CALL OnTimer1
_END

_SUB OnCommand
      FIND $1=%bt%,! EXIT
      IFEX $%TMPDir_CHANGE%=%&wp%, CALL OnTMPDir //这里监视多个  [1]
      IFEX $%Fileimg_CHANGE%=%&wp%,CALL OnFileimg  //这里监视多个  [2]
_END

_SUB OnTMPDir //监控 TMPDir
ENVI @this=%Title0% OnTMPDir [%TMPDir%]
_END

_SUB OnFileimg  //监控 Fileimg
ENVI @this=%Title0% OnFileimg  [%Fileimg%]
_END

thttht · 发表于 2013-8-5 17:48:25

mdyblog 发表于 2013-8-5 15:43
ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp,CALL OnCommand //捕捉内容改变,大家公用的。里面再分。 ...

请教我这里按楼主的代码还是不行啊！是不是我的PECMD版本的问题啊？
我现在用的是“PECMD2012.1.79N-130510-59.10J2D3.4.多窗口线程孵化版_win32_64新设计.sfx.zip”
这个应该是最新版的了吧！

mdyblog · 发表于 2013-8-5 18:15:35

thttht 发表于 2013-8-5 17:48
请教我这里按楼主的代码还是不行啊！是不是我的PECMD版本的问题啊？
我现在用的是“PECMD2012.1.79N-130 ...

这个最近的那个版本都可以。（-58即可）
内容变换时，标题变了。没看见吗？
当然这只是个演示。具体要做什么，修改两个函数的代码： OnTMPDir OnFileimg

thttht · 发表于 2013-8-5 22:14:20

本帖最后由 thttht 于 2013-8-5 22:24 编辑

mdyblog 发表于 2013-8-5 18:15
这个最近的那个版本都可以。（-58即可）
内容变换时，标题变了。没看见吗？
当然这只是个演示。 ...

哦！这样啊，那和我想要的效果不同，是我没有说清楚。我是想让“确定目录”的输入框和他后面的“浏览”关联，当浏览设定了目录后“确定目录”的输入框内容也相应的改变现实刚刚“浏览”时设定的目录！

“确定文件”的输入框也是和他自己后面的“浏览”关联，当浏览设定了目录后“确定目录”的输入框内容也相应的改变现实刚刚“浏览”时设定的文件名！这里还有个问题请教，就是如何能只截取带扩展名的文件名，不要带路径啊？下面这段对吗？

_SUB SelectFile
BROW File,%&CurDir%,请选择要启动的镜像文件,All|*.*|.ISO 光盘|*.ISO|.IMA 软盘|*.IMA|.VHD硬盘|*.VHD|.IMG 硬盘|*.IMG|.VHDX 硬盘|*.VHDX
FIND $%Fileimg%=,!LSTR TmpD=%Fileimg%,2
_END

还有看帮助里 PCIP 是设定 IP 用的，不知道 PECMD 里有自动检测本机现有的 “IP地址、子网掩码、默认网关”这些的啊？我想检测本机现有的 “IP地址、子网掩码、默认网关” 并把这些分别设置成3个变量，并且希望用 “192.168.001.005" 这种格式，4组数值都用3个字符!

527104427 · 发表于 2013-8-5 22:53:08

本帖最后由 527104427 于 2013-8-5 22:54 编辑

thttht 发表于 2013-8-5 22:14
哦！这样啊，那和我想要的效果不同，是我没有说清楚。我是想让“确定目录”的输入框和他后面的“浏览” ...

回答你第一个问题。浏览之后，通知上面的输入框即可：
ENVI @控件名=选择的目录

mdyblog · 发表于 2013-8-6 10:33:24

本帖最后由 mdyblog 于 2013-8-6 11:59 编辑

thttht 发表于 2013-8-5 22:14
哦！这样啊，那和我想要的效果不同，是我没有说清楚。我是想让“确定目录”的输入框和他后面的“浏览” ...

ENVI  i=0
PCIP ? IP,MASK,GW,DNS,%i%?NAME,MAC,LINK
MESS. %i%: %IP%,%MASK%,%GW%,%DNS%,NAME=%NAME%,%MAC%,%LINK%

----------------------------------------------------
//转为3个字符用是printf 函数

///////////////////////////////////////////////////////////////////
// sprintf 返回值变量,*接收区变量,=格式串,参数表
// #整数,*PE变量名,$字符串,=原始串
// 返回值变量  为接受字符个数
// 使用小心，错误的使用会崩溃的。
/// ------ 如错误：  sprintf &&num,*&V,=%s,#1
///////////////////////////////////////////////////////////////////
SET$  &V=*100 0x00  //100字符接收区
sprintf &&num,*&V,=%03d,#5
MESS. %&num%字符  [%&V%]

//结果：
//3字符  [005]

字符串格式化.WCS:(包内有)
SET$ V=*1000 //1000字符接收区
sprintf &&num,*&V,=%03d %5d 截短[%.5s] 补长[%5s] 定长1[%5.5s] 定长2[%5.5s] ptr[0x%p],#5,#6,$1**6789,$123,$1**6789,$123,#0x123
MESS. %&num%字符  【%&V%】

thttht · 发表于 2013-8-6 11:50:04

本帖最后由 thttht 于 2013-8-6 11:57 编辑

mdyblog 发表于 2013-8-6 10:33
ENVI i=0
PCIP ? IP,MASK,GW,DNS,%i%?NAME,MAC,LINK
MESS. %i%: %IP%,%MASK%,%GW%,%DNS%,NAME=%NAME%, ...

使用小心，错误的使用会崩溃的。
请教 “错误的使用” 指的是什么情况啊？
还有我这里运行结果如下：有个函数不正确。
=============================================================================
1376 10753003.325757303 {ENTER:H:\UD\grub4dos自己改版\ip.wcs}
1376 10753006.873608177 [LOGS *H:\UD\grub4dos自己改版\PE.LOG] <0> :操作成功完成。
1376 10753005.985188676 [ENVI  i=0] <0> :操作成功完成。

RegSetIP({A63155F2-2C1E-444F-9AA9-F61D27BCF168},*,,,)
1376 10753006.742648731 [PCIP ? IP,MASK,GW,DNS,0?NAME,MAC,LINK] <0> :操作成功完成。
1376 10760001.473186012 [MESS. 0: 0.0.0.0,0.0.0.0,,,NAME={A63155F2-2C1E-444F-9AA9-F61D27BCF168},E0-CB-4E-AB-52-44,本地连接 2] <0> :操作成功完成。
1376 10760001.516052263 [----------------------------------------------------] <1> :函数不正确。
1376 10760001.540562803 [SET$  &V=*100 0x00] <0> :操作成功完成。
1376 10760001.577277978 [CALL $**c **qd **ret:* #,0x77E1B1B7, &&num,*&V,=d,#5] <0> :操作成功完成。
1376 10760001.585210616 [sprintf &&num,*&V,=d,#5] <0> :操作成功完成。
1376 10762000.667935096 [MESS. 3字符  [005]] <0> :操作成功完成。
1376 10762000.685623192 {LEAVE:H:\UD\grub4dos自己改版\ip.wcs}

============================================================================

还有请教在批处理中下面这种建立文件的方式，在PECMD脚本里要如何实现啊？
>ip.ini echo.bbbbbbbb
>>ip.ini echo.aaaaaaa

mdyblog · 发表于 2013-8-6 12:07:14

thttht 发表于 2013-8-6 11:50
使用小心，错误的使用会崩溃的。
请教 “错误的使用” 指的是什么情况啊？
还有我这里运行结果如下 ...

1： // 使用小心，错误的使用会崩溃的。
/// ------ 如错误：  sprintf &&num,*&V,=%s,#1
格式串说的是1个字符串参数，但传入的参数不是字符串，（也不是恰当的字符串指针，不懂就不理这半句）
如上例子。%s说明后面是  字符串参数
但传入的是整数，#1
（而且 1 绝不是合法的字符串指针，不懂就不理这半句）
崩溃。完毕。

2：
PUTF -dd -len=0 ip.ini,0,zero //生成空文件，或清空文件
WRIT  ip.ini,$+0,bbbbbbbb  //依次写入各行
WRIT  ip.ini,$+0,aaaaaaa

thttht · 发表于 2013-8-6 12:57:27

本帖最后由 thttht 于 2013-8-6 13:01 编辑

mdyblog 发表于 2013-8-6 12:07
1： // 使用小心，错误的使用会崩溃的。
/// ------ 如错误： sprintf &&num,*&V,=%s,#1
格式串 ...

M大我运行上面 7194# 楼的ip代码好像不太正常，麻烦你再给看看行吗？
这是运行后弹出的2个窗口截图！

mdyblog · 发表于 2013-8-6 13:26:59

thttht 发表于 2013-8-6 12:57
M大我运行上面 7194# 楼的ip代码好像不太正常，麻烦你再给看看行吗？
这是运行后弹出的2个窗口截图！ ...

这个正常。
你没有设置IP，用的动态IP。
返回的是你的设置（保存在注册表中）
你第一个网卡的设置就是一堆 IP=0.0.0.0 MASK=0.0.0.0 GW=空

thttht · 发表于 2013-8-6 13:57:53

本帖最后由 thttht 于 2013-8-6 14:14 编辑

mdyblog 发表于 2013-8-6 13:26
这个正常。
你没有设置IP，用的动态IP。
返回的是你的设置（保存在注册表中）

的确是这样，我的是“没有设置IP，用的动态IP”，但我用下面这个可以得到分配的本机 IP
请教我是想要这种效果！不知道PECMD下还有其他办法实现吗？
或者下面的如何能在PECMD里应用啊？

for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
for /f "tokens=15" %%i in ('ipconfig ^| find /i "Subnet Mask"') do set ips=%%i
for /f "tokens=13" %%i in ('ipconfig ^| find /i "Default Gateway"') do set ipss=%%i

并且把变量 ip 的IP地址192.168.1.1 这样的4组数字，截取成分开单独设置成另外4个独立的变量啊？
比如：set a=192 set b=168 set c=001 set d=001 ；还得转换成 3 位数字的这种格式！

我的水平实在太差了，这样的代码实在是没有头绪！M大麻烦你了！

mdyblog · 发表于 2013-8-6 16:29:33

本帖最后由 mdyblog 于 2013-8-7 14:20 编辑

thttht 发表于 2013-8-6 13:57
的确是这样，我的是“没有设置IP，用的动态IP”，但我用下面这个可以得到分配的本机 IP
请教我是想要 ...

WIN7 的 ipconfig 不一样哦：
无线局域网适配器无线网络连接:

连接特定的 DNS 后缀 . . . . . . . :
本地链接 IPv6 地址. . . . . . . . : fe80::edb6:620a:aa89:2c20%12
IPv4 地址 . . . . . . . . . . . . : 192.168.196.37
子网掩码 . . . . . . . . . . . . : 255.255.248.0
默认网关. . . . . . . . . . . . . : 192.168.199.254

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

TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
EXEC* &&IPS=!IPCONFIG //MESS %IPS%
SET-def ip=
SET-def mask=
SET-def GW=

_SUB GetIPX *
FORX *NL &IPS,&&L,
{ SED &&V1=?,%~2,,%L%
      IFEX $%V1%<1,!! SED &&V1=?,%~3,,%L%
      IFEX $%V1%<1, EXIT -
      MSTR &&v2=<-1>%L%
      FIND $:=%v2%, SET v2= //空
      SET  %1=%v2%
      EXIT  FORX
}
_END

// IP地址  X.X.X.X  =>  NNN NNN NNN NNN
//  BREAKIP 返回名前缀 IP地址
_SUB BREAKIP
set-def n1=%1
SET$-ret &%n1%1=*10 0
SET$-ret &%n1%2=*10 0
SET$-ret &%n1%3=*10 0
SET$-ret &%n1%4=*10 0
FIND $X=X%2, EXIT //空
SED &&__IPS2=0,\., ,%2
MSTR &&v1,&&v2,&&v3,&&v4=<1*>%__IPS2%
sprintf &&n,*%n1%1,=%03d,#%v1%
sprintf &&n,*%n1%2,=%03d,#%v2%
sprintf &&n,*%n1%3,=%03d,#%v3%
sprintf &&n,*%n1%4,=%03d,#%v4%
_END

GetIPX  ip "IP Address"  "IPv4 "
BREAKIP ip %IP% //%IP%  ==> ip1 ip2 ip3 ip4

GetIPX  mask "Subnet Mask"  "子网掩码"
BREAKIP mask %mask% //%mask%  ==> mask1 mask2 mask3 mask4

GetIPX  gw "Default Gateway"  "默认网关"
BREAKIP gw %gw% //%gw%  ==> gw1 gw2 gw3 gw4

MESS IP  : %ip1% %ip2% %ip3% %ip4% [%ip%]\nMASK: %mask1% %mask2% %mask3% %mask4% [%mask%] \nGW  : %gw1% %gw2% %gw3% %gw4% [%gw%] \n

GetIp.wcs

IP : 192 168 196 037 [192.168.196.37]
MASK: 255 255 248 000 [255.255.248.0]
GW : 192 168 199 254 [192.168.199.254]

mdyblog · 发表于 2013-8-6 16:38:13

thttht 发表于 2013-8-6 13:57
的确是这样，我的是“没有设置IP，用的动态IP”，但我用下面这个可以得到分配的本机 IP
请教我是想要 ...

PECMD进程管理器.wcs:
2D3.9 包内有。需要 2D3.9 优化的 PECMD （不闪烁，快）

thttht · 发表于 2013-8-6 16:41:25

本帖最后由 thttht 于 2013-8-6 16:48 编辑

M大 ”WIN7 的 ipconfig 不一样哦“ 你的意识是这个代码你也考虑了WIN7环境下的应用了！太棒了！

大大我这里运行代码后出现这个，其他的都出来了，但 IP 地址还是不正确！这是不是还是因为我的机器是自动 IP 的原因啊？麻烦大大在给看看！

mdyblog · 发表于 2013-8-6 16:56:45

thttht 发表于 2013-8-6 16:41
M大 ”WIN7 的 ipconfig 不一样哦“ 你的意识是这个代码你也考虑了WIN7环境下的应用了！太棒了！

大大我 ...

TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
EXEC* &&IPS=!IPCONFIG
MESS. %&IPS%
吧显示的结果贴上来。

thttht · 发表于 2013-8-6 17:05:52

本帖最后由 thttht 于 2013-8-6 17:28 编辑

mdyblog 发表于 2013-8-6 16:56
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
EXEC* &&IPS=!IPCONFIG
MESS. %&IPS%

麻烦 M大了！大大其实不用全部转换成 3个数字一组的，只转换 IP 地址的就行了，能否麻烦 M大直接把 IP 地址先设置成一个变量（比如是 set a=169.168.1.10）；把子网掩码设置成一个变量（比如是 set b=255.255.255.0）；
把默认网关设置成一个变量（比如是 set c=169.168.1.1）；然后再把 IP 地址设置 “a” 拆解成 4 个新的变量这时并把数值转换成3个数值的分别是 set aa=169 ；set bb=168 ；set cc=001 ；set dd=010 ，因为我之后还要单独用到这4个变量！！！

mdyblog · 发表于 2013-8-6 17:27:09

thttht 发表于 2013-8-6 17:05
麻烦 M大了！

哦【ip address】改成【IP Address】
前面帖子重新下载吧。

thttht · 发表于 2013-8-6 17:33:21

mdyblog 发表于 2013-8-6 17:27
哦【ip address】改成【IP Address】
前面帖子重新下载吧。

大大回帖好快啊！我还没改完帖子你就回复了！哈哈！！我先研究研究你的脚本，改成我上面说的那样不，不行的话在麻烦大大把！

mdyblog · 发表于 2013-8-6 17:46:54

thttht 发表于 2013-8-6 17:05
麻烦 M大了！大大其实不用全部转换成 3个数字一组的，只转换 IP 地址的就行了，能否麻烦 M大直接把 I ...

都有。
%IP% %mask% %gw% 就是未解的。

mdyblog · 发表于 2013-8-7 10:23:02

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

thttht 发表于 2013-8-6 17:33
大大回帖好快啊！我还没改完帖子你就回复了！哈哈！！我先研究研究你的脚本，改成我上面说的那样不，不行 ...

PECMD2012.1.79N-130510-59.10J2D3.11 WRIT CONOUT$ 调试终端

方便调试， WRIT CONOUT$ 调试终端直接开一终端, 实时打印调试流水。
调试终端.WCS:

1 2	FORX * 1 2 3 4,&i, TEAM WRIT CONOUT$,$+0,调试终端1234\| WAIT 1000 MESS 完毕

thttht · 发表于 2013-8-7 15:31:12

mdyblog 发表于 2013-8-7 10:23
PECMD2012.1.79N-130510-59.10J2D3.11 WRIT CONOUT$ 调试终端

方便调试， WRIT CONOUT$ 调试终端直 ...

上面这个是要加到我要调试的代码里吗？
没明白如何用这个，我现在只是在代码里加入了“LOGS *%&CurDir%\PE.LOG” 看一下PE.LOG文件，
我接下来这几天没有时间继续写那个代码了，工作有点忙！等忙完了，还得麻烦大大帮我看看！目前还有地方不对！一直是看着别人的代码改改，很多东西一知半解的！还有些基础的问题想向你请教学习！忙完手里的工作还得麻烦你教教我！

mdyblog · 发表于 2013-8-7 16:00:52

thttht 发表于 2013-8-7 15:31
上面这个是要加到我要调试的代码里吗？
没明白如何用这个，我现在只是在代码里加入了“LOGS *%&CurDir% ...

一般看LOG
这个是另外提供的一条方法。

lmle · 发表于 2013-8-7 16:50:48

PECMD2012.1.79N-130510-59.10J2D3.12.多窗口线程孵化版_win32_64新设计.sfx.zip的问题
1、在EDIT里回车不能执行命令。
2、LIST的“.ADDSEL”方法能添加条目，但是不能选中所添加的条目。

mdyblog · 发表于 2013-8-7 18:39:48

lmle 发表于 2013-8-7 16:50
PECMD2012.1.79N-130510-59.10J2D3.12.多窗口线程孵化版_win32_64新设计.sfx.zip的问题
1、在EDIT里回车不 ...

J2D3.13

mdyblog · 发表于 2013-8-8 10:41:23

本帖最后由 mdyblog 于 2013-8-8 18:00 编辑

lmle 发表于 2013-8-7 16:50
PECMD2012.1.79N-130510-59.10J2D3.12.多窗口线程孵化版_win32_64新设计.sfx.zip的问题
1、在EDIT里回车不 ...

J2D3.15
LOGS 可实时打印到调试终端 CONOUT$
LOGS * CONOUT$ //调试终端
这样看调试信息；操作一下，信息出来一条，清清楚楚；感觉不错。

527104427 · 发表于 2013-8-8 23:56:28

mdyblog 发表于 2013-8-8 10:41
J2D3.15
LOGS 可实时打印到调试终端 CONOUT$
LOGS * CONOUT$ //调试终端

HOTK Ctrl + #0xC0,**del

运行后不会自动退出进程？

mdyblog · 发表于 2013-8-9 00:55:32

本帖最后由 mdyblog 于 2013-8-9 09:14 编辑

527104427 发表于 2013-8-8 23:56
HOTK Ctrl + #0xC0,**del

运行后不会自动退出进程？

退出了。
你在正常系统运行的话，会另外派生一个背景进程（只会一个），模拟PE 的Main 进程。需要他来响应系统热键。
HOTK Ctrl + #0xC0,**del 的进程退出了。

试试：
EXEC =PECMD  HOTK Ctrl + #0xC0,**del
MESS  已退出了

如果不想系统背景进程
可以  HKEY$ , 这样本进程响应系统热键。古本进程不能退出。退出了就不能响应系统热键。

-----
-16 更新了下。  特别针对【**del】不派生系统背景进程。

thttht · 发表于 2013-8-9 09:47:40

本帖最后由 thttht 于 2013-8-9 09:49 编辑

楼主你是编程的高手，不知道你对“http://www.ipxe.org/”这个链接里面的PXE网络启动文件程序的编译环境熟悉不？
如果有可能希望能得到你的帮助！上面的PXE网络启动文件论坛里“http://bbs.wuyou.net/forum.php?m ... page%3D1&page=1”这个帖子中有介绍和使用的问题！

“http://bbs.wuyou.net/forum.php?m ... age%3D1&page=13” 这里122楼有目前遇到的问题，希望M大能否给看看！！实在是给你添麻烦了！我这里提出这个要求实在是很冒昧！请M大谅解！！！

527104427 · 发表于 2013-8-9 12:18:37

本帖最后由 527104427 于 2013-8-9 12:22 编辑

mdyblog 发表于 2013-8-9 00:55
退出了。
你在正常系统运行的话，会另外派生一个背景进程（只会一个），模拟PE 的Main 进程。需要 ...

请教老大，批处理的errorlevel值在pecmd配置文件中是怎么表现的？

例如if errorlevel 1 start "" a.exe
这句怎么转成pecmd的配置文件?

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

浏览过的版块