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

datbik189

看到你们show脚本,我也发一下,

使用临时文件的:

ENVI^ ENVIMODE=1
TEAM SET$ &NL=D A|SET$ &TAB=9|MSTR &FILE=1,8,%RANDOM%|SET &FILE="%TEMP%\%&FILE%.TXT"|SET &END=DISKPART> %&NL%DISKPART> |STRL &END_LEN=%&END%
TEAM DATE &T1 UPTIME|EXEC -PID:&PID *CMD.EXE /K DISKPART.EXE>%&FILE%&DEL %&FILE%&EXIT
THREAD* -HERE -TID:&TID LOOP #1=1,TEAM FIND --WID*@. &V|SET &V1=%&TAB%%&PID%%&TAB%|LOAD #999*命令_FIND.EXE &V "" &V1|MSTR * &WID=<2>&V|CALC -BASE=16 &WID=%&WID%|SET-RET &WID=%&WID%|IFEX $%&WID%>0,EXIT LOOP
WAIT 1500 *=%&TID%
IFEX $%&WID%>0,ENVI @@SENDMSG=%&WID%;0X102;0XD!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错|EXIT FILE
CALL @CMD_WIN

_SUB CMD_WIN,H410W600,DISKPART,CALL RUN EXIT
EDIT-| &CMD_EDIT1,L10T295H70W520,,,0X20
EDIT-| &CMD_EDIT,L10T10H280W580,,,0X864
ENVI @&CMD_EDIT.READONLY=1
LOOP #1=1,TEAM IFEX %&FILE%,!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错||KILL \||EXIT FILE|READ %&FILE%,**,&RET|MSTR * &V=-1,%&END_LEN%,&RET|IFEX*C '%&END%'='%&V%',TEAM SED -EX &V=0,(%&NL%DISKPART> )+,%&NL%DISKPART> ,&RET||DATE &T2 UPTIME||CALC &T3=%&T2%-%&T1%||ENVI @&CMD_EDIT=%&V%   ( 启动耗时 %&T3% ms )%&NL%%&NL%DISKPART> ||EXIT LOOP
SET-RAW &CMD=TEAM SET &RET_NEW=|DATE &T4 UPTIME|FORX *NL &CMD_EDIT1,&COMMAND,FIND $%&COMMAND%=,!TEAM DATE &T1 UPTIME||CALL RUN &COMMAND||DATE &T2 UPTIME||CALC &T3=%&T2%-%&T1%||ENVI @&CMD_EDIT=%&CMD_EDIT%%&COMMAND%   ( 耗时 %&T3% ms )%&NL%%&RET_NEW%|FIND $%&RET_NEW%=,!TEAM CALC &T5=%&T2%-%&T4%||ENVI @&CMD_EDIT=%&CMD_EDIT%   ( 总耗时 %&T5% ms )%&NL%%&NL%DISKPART> |IFEX %&FILE%,!KILL \
ITEM &CMD_BUT,L530T329H20W50,RUN,TEAM ENVI @&CMD_BUT.ENABLE=0|%&CMD%|ENVI @&CMD_BUT.ENABLE=1
_END

_SUB RUN
FIND $%1=,EXIT _SUB
FIND $%1=EXIT,TEAM SET &CHAR=EXIT%&NL%|LOAD #999*命令_宽字符 &CHAR|FORX * %&CHAR%,&CHAR1,ENVI @@SENDMSG=%&WID%;0X102;0X%&CHAR1%|EXIT _SUB
TEAM READ %&FILE%,**,&RET|SET &RET_=%RET%|^SET &CHAR=%%%~1%%%&NL%%&NL%|IFEX*C '%&CHAR%'='%&NL%%&NL%',EXIT _SUB
TEAM LOAD #999*命令_宽字符 &CHAR|FORX * %&CHAR%,&CHAR1,ENVI @@SENDMSG=%&WID%;0X102;0X%&CHAR1%
LOOP #1=1,TEAM IFEX %&FILE%,!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错||EXIT _SUB|READ %&FILE%,**,&RET|MSTR * &CHAR=-1,%&END_LEN%,&RET|IFEX*C ['%&END%'='%&CHAR%' & '%&RET%'<>'%&RET_%'],EXIT LOOP
TEAM READ -*,-1,&LINE,&RET_|CALC &LINE=%&LINE%+1|READ -*,%&LINE%+0,&RET_NEW,&RET|SED -EX &RET_NEW=0,(%&NL%DISKPART> )+,%&NL%DISKPART> ,&RET_NEW|SET-RET &RET_NEW=%&RET_NEW%
_END

不使用临时文件的:

ENVI^ ENVIMODE=1
TEAM SET$ &NL=D A|SET$ &TAB=9|SET &END=DISKPART> %&NL%DISKPART> |STRL &END_LEN=%&END%
TEAM DATE &T1 UPTIME|THREAD* -HERE CALL @START
THREAD* -HERE -TID:&TID LOOP #1=1,TEAM FIND --WID*@. &V|SET &V1=%&TAB%%&PID%%&TAB%|LOAD #999*命令_FIND.EXE &V "" &V1|MSTR * &WID=<2>&V|CALC -BASE=16 &WID=%&WID%|SET-RET &WID=%&WID%|IFEX $%&WID%>0,EXIT LOOP!WAIT 100
WAIT 1500 *=%&TID%
IFEX $%&WID%>0,ENVI @@SENDMSG=%&WID%;0X102;0XD!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错|EXIT FILE
CALL @CMD_WIN

_SUB CMD_WIN,H410W600,DISKPART,CALL RUN EXIT
EDIT-| &CMD_EDIT1,L10T295H70W520,,,0X20
EDIT-| &CMD_EDIT,L10T10H280W580,,,0X864
ENVI @&CMD_EDIT.READONLY=1
LOOP #1=1,TEAM FIND $%PROCEED%=,!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错||KILL \||EXIT LOOP|MSTR * &V=-1,%&END_LEN%,&RET|IFEX*C '%&END%'='%&V%',TEAM SED -EX &V=0,(%&NL%DISKPART> )+,%&NL%DISKPART> ,&RET||DATE &T2 UPTIME||CALC &T3=%&T2%-%&T1%||ENVI @&CMD_EDIT=%&V%   ( 启动耗时 %&T3% ms )%&NL%%&NL%DISKPART> ||EXIT LOOP
SET-RAW &CMD=TEAM SET &RET_NEW=|DATE &T4 UPTIME|FORX *NL &CMD_EDIT1,&COMMAND,FIND $%&COMMAND%=,!TEAM DATE &T1 UPTIME||CALL RUN &COMMAND||DATE &T2 UPTIME||CALC &T3=%&T2%-%&T1%||ENVI @&CMD_EDIT=%&CMD_EDIT%%&COMMAND%   ( 耗时 %&T3% ms )%&NL%%&RET_NEW%|FIND $%&RET_NEW%=,!TEAM CALC &T5=%&T2%-%&T4%||ENVI @&CMD_EDIT=%&CMD_EDIT%   ( 总耗时 %&T5% ms )%&NL%%&NL%DISKPART> |FIND $%PROCEED%=,!KILL \
ITEM &CMD_BUT,L530T329H20W50,RUN,TEAM ENVI @&CMD_BUT.ENABLE=0|%&CMD%|ENVI @&CMD_BUT.ENABLE=1
_END

_SUB START,#,CATCH,
TIME -T:1 &TIMER1,100,TEAM EXEC* -PID:&PID @&RET=*DISKPART.EXE|ENVI PROCEED=0|KILL \
TIME &TIMER2,50,@TEAM @SET-RET2 &PID=%&PID%|@SET-RET2 &RET=%&RET%
EDIT-| &RET,L10T10H180W380
_END

_SUB RUN
FIND $%1=,EXIT _SUB
FIND $%1=EXIT,TEAM SET &CHAR=EXIT%&NL%|LOAD #999*命令_宽字符 &CHAR|FORX * %&CHAR%,&CHAR1,ENVI @@SENDMSG=%&WID%;0X102;0X%&CHAR1%|EXIT _SUB
TEAM SET &RET_=%RET%|^SET &CHAR=%%%~1%%%&NL%%&NL%|IFEX*C '%&CHAR%'='%&NL%%&NL%',EXIT _SUB
TEAM LOAD #999*命令_宽字符 &CHAR|FORX * %&CHAR%,&CHAR1,ENVI @@SENDMSG=%&WID%;0X102;0X%&CHAR1%
LOOP #1=1,TEAM FIND $%PROCEED%=,!TEAM MESS.+ICON0 DISKPART.EXE 未启动！@出错||EXIT LOOP|MSTR * &CHAR=-1,%&END_LEN%,&RET|IFEX*C ['%&END%'='%&CHAR%' & '%&RET%'<>'%&RET_%'],EXIT LOOP
TEAM READ -*,-1,&LINE,&RET_|CALC &LINE=%&LINE%+1|READ -*,%&LINE%+0,&RET_NEW,&RET|SED -EX &RET_NEW=0,(%&NL%DISKPART> )+,%&NL%DISKPART> ,&RET_NEW|SET-RET &RET_NEW=%&RET_NEW%
_END

527104427

m大好几年不出现，你们这是要疯的节奏啊，哈哈哈

datbik189

dos时代菜鸟 发表于 2019-7-18 23:40
code 和 sendmsg  用的摸不着头脑，也不知有没有更详细的解说

测试了WIN7系统，貌似只有你那个方法让diskpart一直后台挂着，再使用临时文件获取回显。EXE* 用不了。

dos时代菜鸟

红毛樱木 发表于 2019-7-19 15:22
那个输出结果的txt文件，不能删除，一直被占用

确实，应该等待 diskpart 进程 Exit 了以后 再删除。

dos时代菜鸟

datbik189 发表于 2019-7-19 21:08
测试了WIN7系统，貌似只有你那个方法让diskpart一直后台挂着，再使用临时文件获取回显。EXE* 用不了。

因为如果用  exec* 直接把结果传递给 控件 的 ，就要用  =  ，强制等待，而这个在  win7 下 失灵。

dos时代菜鸟

红毛樱木 发表于 2019-7-19 15:22
那个输出结果的txt文件，不能删除，一直被占用

http://bbs.wuyou.net/forum.php?m ... 8MTE5OHw0MTUzOTI%3D

http://bbs.wuyou.net/forum.php?m ... 92&fromuid=1198

这个 不会有 不能删除的问题。

红毛樱木

527104427 发表于 2019-7-19 17:04
m大好几年不出现，你们这是要疯的节奏啊，哈哈哈

还没到一年哎

Anson4

527104427 发表于 2019-7-18 22:28
1.我用手机编辑过，可能是这个原因，自动将“&”变成“&reg;”了。
2.其实要学到东西，还是要自己搞 ...

代码测试很成功，感谢回复！

然而我希望将这段代码通用化，当我将这段代码保存到文件，然后通过PECMD带参数LOAD的时候，就得不到相应的效果了，请指正！

保存到文件的代码（_Script.txt）：

1. SET  &FILE=%~1
   
2.     SET-raw  &String=%~2
   
3.     SET-raw  &ReplaceString=%~3
   
4.     READ %&FILE%,**,&STR
   
5.     SED  &String2=0,\\,\\\\,%&String%
   
6.     SED  &ReplaceString2=0,\\,\\\\,%&ReplaceString%
   
7.     SED  &Results=0,%&String2%,%&ReplaceString2%,%&STR%
   
8.     WRIT-UNICODE *c *fv %&FILE%,$0,&Results
   
9. _END
   
10. 
    
11. Replace "%~1" "%~2" "%~3"
    

复制代码

通过该命令LOAD：

1. PECMD.exe load "C:\A4\_Script.txt" "C:\A4\PECMD_Test.reg" "C:\\Program Files\\Adobe Photoshop CC 2018.1.8" "D:\\Design\\Adobe Photoshop CC 2018.1.8"
   

复制代码

527104427

Anson4 发表于 2019-7-20 08:43
代码测试很成功，感谢回复！

然而我希望将这段代码通用化，当我将这段代码保存到文件，然后通过PECM ...

少了一个_SUB吧

_SUB Replace
SET  &FILE=%1
SET-raw  &String=%~2
SET-raw  &ReplaceString=%~3
READ %&FILE%,**,&STR
SED  &String2=0,\\,\\\\,%&String%
SED  &ReplaceString2=0,\\,\\\\,%&ReplaceString%
SED  &Results=0,%&String2%,%&ReplaceString2%,%&STR%
WRIT-UNICODE *c *fv %&FILE%,$0,&Results
_END
Replace "%~1" "%~2" "%~3"

Anson4

527104427 发表于 2019-7-20 09:01
少了一个_SUB吧

_SUB Replace

惭愧

加上_SUB Replace也没有效果：

1. _SUB Replace
   
2.     SET  &FILE=%~1
   
3.     SET-raw  &String=%~2
   
4.     SET-raw  &ReplaceString=%~3
   
5.     READ %&FILE%,**,&STR
   
6.     SED  &String2=0,\\,\\\\,%&String%
   
7.     SED  &ReplaceString2=0,\\,\\\\,%&ReplaceString%
   
8.     SED  &Results=0,%&String2%,%&ReplaceString2%,%&STR%
   
9.     WRIT-UNICODE *c *fv %&FILE%,$0,&Results
   
10. _END
    
11. Replace "%~1" "%~2" "%~3"
    

复制代码

527104427

Anson4 发表于 2019-7-20 09:24
惭愧

加上_SUB Replace也没有效果：

你把全套文件发上来

Anson4

527104427 发表于 2019-7-20 09:39
你把全套文件发上来

好的，请看附件：
PECMD_Script_Test.zip (979.77 KB, 下载次数: 9)

2019-7-20 09:41 上传

点击文件名下载附件

527104427

Anson4 发表于 2019-7-20 09:41
好的，请看附件：

PECMD_Script.7z (468 Bytes, 下载次数: 7)

2019-7-20 10:42 上传

点击文件名下载附件

Anson4

527104427 发表于 2019-7-20 10:42

完美解决了，感谢指导！

527104427

Anson4 发表于 2019-7-20 11:02
完美解决了，感谢指导！

PECMD_Script.7z (433 Bytes, 下载次数: 13)

2019-7-20 17:07 上传

点击文件名下载附件

上面这个更好玩，可当批处理，也可当PECMD配置文件，不用再临时生成脚本。

Anson4

527104427 发表于 2019-7-20 10:42

我现在用的是本楼(14362#)附件这个脚本，今天又遇到了新的问题，比如将下图左边的字符串替换成右边的字符串（变量作为字符串不展开）时达不到效果：

请问这种情况需要怎么修改呢？（只需要修改LOAD指令的参数还是需要修改更多？）
PECMD_Script.zip (979.65 KB, 下载次数: 5)

2019-7-21 10:04 上传

点击文件名下载附件

2011npwjm

谢谢楼主的分享

527104427

Anson4 发表于 2019-7-21 10:05
我现在用的是本楼(14362#)附件这个脚本，今天又遇到了新的问题，比如将下图左边的字符串替换成右边的字 ...

你这要求越来越蛋疼了，CMD这么低级的东西，想实现真的很难。
干脆你直接说想干什么，全套发上来，我给你搞成PECMD脚本。

datbik189

Anson4 发表于 2019-7-21 10:05
我现在用的是本楼(14362#)附件这个脚本，今天又遇到了新的问题，比如将下图左边的字符串替换成右边的字 ...

把左边字符串替换成右边的对吧.

如果不想弄清楚PECMD的具体用法和继续使用CMD,用附件.

运行结果生成New.txt, 内容如下:
%ProgramFiles(x86)%\Adobe\Acrobat DC\Acrobat\adobeafp.dll                        %ProgramFiles(x86)%\Adobe\Acrobat DC\Acrobat\adobeafp.dll
%CommonProgramFiles(x86)%\Adobe\OOBE\PDApp\core\NPSWF32.dll        %CommonProgramFiles(x86)%\Adobe\OOBE\PDApp\core\NPSWF32.dll

CF32_        CF32_
PF32_                                PF32_

datbik189

527104427 发表于 2019-7-21 11:24
你这要求越来越蛋疼了，CMD这么低级的东西，想实现真的很难。
干脆你直接说想干什么，全套发上来，我给 ...

5大, 我猜他是想用一个脚本替代   fr.exe --- cmd下用的字符替换工具

527104427

datbik189 发表于 2019-7-21 12:01
5大, 我猜他是想用一个脚本替代   fr.exe --- cmd下用的字符替换工具

我看，倒是像搞绿化的，想用批处理代替手工操作，也是想偷懒的

Anson4

datbik189 发表于 2019-7-21 12:01
5大, 我猜他是想用一个脚本替代   fr.exe --- cmd下用的字符替换工具

你说得对！
FR和WFR处理的时候对UNICODE编码总是效果不理想。

527104427

datbik189 发表于 2019-7-21 11:59
把左边字符串替换成右边的对吧.

如果不想弄清楚PECMD的具体用法和继续使用CMD,用附件.

你这脚本为啥要加密呢，拿出来学习学习嘛

datbik189

Anson4 发表于 2019-7-21 18:25
你说得对！
FR和WFR处理的时候对UNICODE编码总是效果不理想。

那就下载14368楼的附件，应该能满足你的要求。

datbik189

527104427  2019-7-21 18:47
ó

自己写的命令块，粗浅得很，都不知有没有潜在问题，以后再说了。

http://bbs.wuyou.net/forum.php?m ... &highlight=2012

Anson4

datbik189 发表于 2019-7-21 18:47
那就下载14368楼的附件，应该能满足你的要求。

谢谢！
不过自己搞不懂的代码，恐怕会带来更多的疑问。

datbik189

Anson4 发表于 2019-7-21 19:01
谢谢！
不过自己搞不懂的代码，恐怕会带来更多的疑问。

只是给V1和V2赋值而已，简单得很。

想弄清楚就练练PECMD脚本吧，SED命令。

Anson4

datbik189 发表于 2019-7-21 19:05
只是给V1和V2赋值而已，简单得很。

想弄清楚就练练PECMD脚本吧，SED命令。

谢谢！
PECMD的帮助信息看起来比较吃力，一时半会上不了手，所以我还得选择稍微懂一点的CMD脚本。
好在FR的作者还有其他的能解决这个问题的工具，之前是我没用好，所以才有了前面几楼的问题求教。

datbik189

Anson4 发表于 2019-7-21 22:59
谢谢！
PECMD的帮助信息看起来比较吃力，一时半会上不了手，所以我还得选择稍微懂一点的CMD脚本。
好在 ...

好的，大家都是非科班出身的业余爱好者，做一些力所能及的事就好。

我一开始也是99%的CMD+1%的PECMD脚本，只用MESS，Wait，Kill，EXEC简单语句做一些CMD不能做的事，后来要打包批处理成单文件，写一些CMD脚本程序，又觉得运行太慢，才开始按触PECMD脚本。现在基本是1%的CMD+99%的PECMD脚本，用多了其实也不难，熟能生巧，CMD很少用了，太慢，功能一般，又要找一堆第三方工具实现其它功能。

Anson4

527104427 发表于 2019-7-21 11:24
你这要求越来越蛋疼了，CMD这么低级的东西，想实现真的很难。
干脆你直接说想干什么，全套发上来，我给 ...

谢谢！
不过，脚本比较长稍微复杂，转换成PECMD脚本的话恐怕要花不少时间测试，这样麻烦大神自己觉得过意不去。
概括来讲，脚本的功能是在绿化过程中提取注册表项、找出可以用REGSVR32注册的DLL和OCX并生成注册的脚本指令，然后将提取出来的注册表减去用REGSVR32注册的相关项。