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

hhh333 · 发表于 5 天前

mdyblog 发表于 2024-6-5 23:36
新版上传了
- 加前面，加后面，都可以。不就是参数提取嘛。
m：n

还有个BUG，SED &v3=2:-2,%&NL%,-,%&v1%怎么变成了SED &v3=2:-2,%&NL%,,%&v1%没被“-"代替

mdyblog · 发表于 5 天前

hhh333 发表于 2024-6-6 09:28
还有个BUG，SED &v3=2:-2,%&NL%,-,%&v1%怎么变成了SED &v3=2:-2,%&NL%,,%&v1%没被“-"代替

忙忘了，还有替换串。
改了
ENVI^ EnviMode=1
SET$ &NL=0d 0a
SET &v1=1A11%&NL%2A22%&NL%3A33%&NL%4A44%&NL%55A5
SED &v2=2:2,%&NL%,-,%&v1%
SED &v3=2:-0,%&NL%,-,%&v1%
MESS. v1[%&NL%%&v1%]%&NL%%&NL% v2[%&NL%%&v2%]%&NL%%&NL% v3[%&NL%%&v3%]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
v1[
1A11
2A22
3A33
4A44
55A5]

v2[
1A11
2A22
3A33-4A44-55A5]

v3[
1A11
2A22
3A33-4A44-55A5]

mdyblog · 发表于 5 天前

本帖最后由 mdyblog 于 2024-6-6 12:53 编辑

Zap 发表于 2024-6-6 08:40
比如按2次回车光标在第二行点击一个ITEM 就能在光标位置插入预设的代码

示例\Edit位置.wcs

获得光标位置：
GetPos  EditName PosStart PosEnd

移动动光标到位置（可选择一段）
SetPos  EditName PosStart [PosEnd]

替换，插入，删除参见
示例\RichEdit-替换特殊符号.wcs 的 OnInit函数

_SUB SetAt  // EditName PosStart PosEnd "内容"
SET &d2=%~3
FIND $%&d2%=, SET &d2=%~2
ENVI @%~1.SENDMSG=%EM_SETSEL%,%~2,%d&2%
ENVI @%~1.SENDMSG=%EM_REPLACESEL%,7,$%~4
_END

GetPos  &EG1 &&PosStart &&PosEnd

//SetPos  &EG1 %&PosStart% %&PosEnd%

SetAt  &EG1  %&PosStart% "" "&NewDat"
SetAt  &EG1  1 "" "&NewDat"

hhh333 · 发表于 5 天前

本帖最后由 hhh333 于 2024-6-6 16:06 编辑

mdyblog 发表于 2024-6-6 12:25
忙忘了，还有替换串。
改了
ENVI^ EnviMode=1

这次是彻底妥了
1、SED A=0或-0,  表示代替所有
2、SED A=X:Y,  表示左起Y+1位替代X次；
   SED A=-X:Y,或X:-Y,  表示右起Y+1位替代X次
3、SED A=N,  表示左起替代N次；
   SED A=-N,  表示右起替代N次
4、SED A=,即为空  表示左起首个位替代，相当于SED A=1:0,
   SED A=-,即只有负号  表示右起首个位替代，相当于SED A=-1:0或1:-0

Zap · 发表于 5 天前

mdyblog 发表于 2024-6-6 12:52
示例\Edit位置.wcs

获得光标位置：

谢谢好使

Zap · 发表于 5 天前

mdyblog 发表于 2024-6-6 12:52
示例\Edit位置.wcs

获得光标位置：

但是新的问题又出现了如果替换内容中有:会被吞不知道怎样转义
例如：mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\iBAT.lnk""):b.TargetPath=""%~dp0iBAT.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")"
会把:后内容全吞掉而只有mshta VBScript 我用set代入也一样

Zap · 发表于 5 天前

mdyblog 发表于 2024-6-6 12:52
示例\Edit位置.wcs

获得光标位置：

/也会被吞

mdyblog · 发表于 5 天前

hhh333 发表于 2024-6-6 15:51
这次是彻底妥了
1、SED A=0或-0, 表示代替所有
2、SED A=X:Y, 表示左起Y+1位替代X次；

那好

mdyblog · 发表于 5 天前

Zap 发表于 2024-6-6 18:37
但是新的问题又出现了如果替换内容中有:会被吞不知道怎样转义
例如：mshta VBScript:Execute("Set a= ...

？？？？？？？？？？？？？？？？？？？？？？？

mdyblog · 发表于 5 天前

Zap 发表于 2024-6-6 18:45
/也会被吞

？？？？？？？？？？？？、

hhh333 · 发表于 5 天前

我也没太看懂，怎么被呑

Zap · 发表于 5 天前

本帖最后由 Zap 于 2024-6-7 08:18 编辑

#code=936T950
ENVI^ EnviMode=1
ENVI^ ForceLocal=1
SET$ &NL=0d 0a
SET &EM_GETSEL=0x00B0
SET &EM_SETSEL=0x00B1
SET &EM_REPLACESEL=0x00C2
SET &WM_LBUTTONDOWN=0x0201
SET &WM_LBUTTONUP=0x0202
CALL @Calc_exe
_SUB Calc_exe,W536H628,计算器,
set &&Top=30
set &LogInfosShow=Proce
MEMO-+ -rich &&EC,L15T%&&Top%W460H(480 - %&&Top% - 6 - 4),%&LogInfosShow%,,0x200
LABE LABE1,L11T516W409H30,,,
set @this.MSG=+%&WM_LBUTTONDOWN%: OnMouse d
set @this.MSG=+%&WM_LBUTTONUP%: OnMouse u
LABE -mod -vcenter -center &&I1,L10T0W60H30,移到3,
LABE -mod -vcenter -center &&I2,L80T0W60H30,移到7,
LABE -mod -vcenter -center &&I3,L150T0W60H30,查询,TEAM GetPos &&EC &&v1 &&v2|set @LABE1=位置 %&v1% %&v2%
set n=210
forx* A B C D,i,team ^LABE -mod &&%i%,L%n%T0W30H30,%i%,GetPos &&EC &&v1 &&v2|calc n=%n%+30
// set @this.MSG=#1: OnInit
set @this.POSTMSG=#1
_END
//保存为UniCode 则可以显示
_SUB OnInit //显示特殊字符
set @&&EC.SENDMSG=%EM_SETSEL%,0x71,0x78
set @&&EC.SENDMSG=%EM_REPLACESEL%,7,$® Core™ //®™
_END
_SUB OnMouse
set @this.Cur=?&&X;&&Y;&&cX;&&cY
set &a=%%%%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
set &b=mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\iBAT.lnk""):b.TargetPath=""%~dp0iBAT.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set &c=for %%%%%%%%i in (bat cmd)do (%nl%reg add "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /t REG_SZ /d "用iBAT打开" /f%nl%reg add "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /v Icon /t REG_SZ /d "%%%%~dp0iBAT.exe" /f%nl%reg add "HKCR\SystemFileAssociations\.%%%%i\shell\iBAT\command" /t REG_SZ /d "%~dp0iBAT.exe ""%%%%%%%%1" /f%nl%)
set &d=(echo for %%%%%%%%i in ^(bat cmd^)do reg delete "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /f%nl%echo taskkill /f /im iBAT.exe /t^&TIMEOUT /T 1 /NOBREAK^&del "%%%%userprofile%%%%\desktop\iBAT.lnk"^&cd..^&rd/s/q "%%%%~dp0")>"%~dp0卸载.bat"
TryIt 10 0 60 30 %1 TEAM Set_Color &&I1|SetPos &&EC 3 3
TryIt 80 0 60 30 %1 TEAM Set_Color &&I2|SetPos &&EC 7 27
TryIt 150 0 60 30 %1 TEAM Set_Color &&I3|GetPos &&EC &&v1 &&v2|set @LABE1=位置 %&v1% %&v2%
TryIt 210 0 30 30 %1 TEAM Set_Color &&A|SetAt &&EC %&v1% %&v2% "%&a%" //编辑名称位置开始位置结束 "内容"
TryIt 240 0 30 30 %1 TEAM Set_Color &&B|SetAt &&EC %&v1% %&v2% "%&b%"
TryIt 270 0 30 30 %1 TEAM Set_Color &&C|SetAt &&EC %&v1% %&v2% "%&c%"
TryIt 300 0 30 30 %1 TEAM Set_Color &&D|SetAt &&EC %&v1% %&v2% "%&d%"
_END
_SUB Set_Color
TEAM set @%~1.bkcolor=0xDF0029|WAIT 20| set @%~1.bkcolor=-1
_END
_SUB TryIt
set &&X1=%1
set &&Y1=%2
set &&W=%3
set &&H=%4
CALC &&X2=%X1% + %W%
CALC &&Y2=%Y1% + %H%
MSTR &cmd=<6->%*
IFEX $%&cX%>%&X1%,!! IFEX $%&cX%<%&X2%,!! IFEX $%&cY%>%&Y1%,!! IFEX $%&cY%<%&Y2%,!! FIND $%5<>d, %&cmd%
_END
// GetPos EditName PosStart PosEnd
_SUB GetPos
SET$# &D1=*8 0
SET$# &D2=*8 0
set @%1.SENDMSG=%EM_GETSEL%,@&D1,@&D2
ENVI?long &D1=&&v1
ENVI?long &D2=&&v2
ENVI-ret %~2=%&v1%
ENVI-ret %~3=%&v2%
_END
_SUB SetPos
SET &d2=%~3
FIND $%&d2%=,SET &d2=%~2
set @%1.POSTMSG=%EM_SETSEL%,%~2,%d2%
_END
_SUB SetAt
SET &d2=%~3
set &d3=%~4
FIND $%&d2%=, SET &d2=%~2
set @%~1.SENDMSG=%EM_SETSEL%,%~2,%d2%
set @%~1.SENDMSG=%EM_REPLACESEL%,7,@&d3
_END

复制代码

还不理想如果加入DPI缩放情况不容乐观

mdyblog · 发表于 5 天前

Zap 发表于 2024-6-6 20:20

太长了。最小代码，仅仅够演示你的问题。

Zap · 发表于 5 天前

本帖最后由 Zap 于 2024-6-6 21:37 编辑

mdyblog 发表于 2024-6-6 20:29
太长了。最小代码，仅仅够演示你的问题。

52行替换为 set d=123:456 : 后边的字符被吞了

mdyblog · 发表于 5 天前

Zap 发表于 2024-6-6 21:33
52行替换为 set d=123:456 : 后边的字符被吞了

如是sed问题
专门写一个小脚本演示问题。

mdyblog · 发表于 5 天前

新版可以返会字体名称

FONT -p:&&f:&&fnm segmdl2.ttf.cmz
MESS. font:[%&f%] [%&fnm%]

=================
font:[0x700021B] ["Segoe MDL2 Assets"]

Zap · 发表于 5 天前

本帖最后由 Zap 于 2024-6-6 21:59 编辑

mdyblog 发表于 2024-6-6 21:38
如是sed问题
专门写一个小脚本演示问题。

19302楼已修改点替换便知

set d=123:456 而光标处替换成了"123

泮安宁 · 发表于 5 天前

LOAD --mem可以支持偏移吗

mdyblog · 发表于 5 天前

泮安宁发表于 2024-6-6 22:05
LOAD --mem可以支持偏移吗

//LOAD --mem &MyStript A B C
SET-mkfixdummy  &MyStript3 =&MyStript@$16;~  //偏移16WCHAR
LOAD --mem &MyStript16 A B C

mdyblog · 发表于 5 天前

Zap 发表于 2024-6-6 21:33
52行替换为 set d=123:456 : 后边的字符被吞了

试试 SED -ts1
这个禁止转义符。就是普通字符串替换。

ENVI^ EnviMode=1
SET$ &NL=0d 0a
SET V1=123X456
SED -ts1 &v2=,X,\1,%&V1%
MESS. v1[%&NL%%&v1%]%&NL%%&NL% v2[%&NL%%&v2%]

=================
v1[
123X456]

v2[
123\1456

泮安宁 · 发表于 5 天前

mdyblog 发表于 2024-6-6 22:27
//LOAD --mem &MyStript A B C
SET-mkfixdummy &MyStript3 =&MyStript@$16;~ //偏移16WCHAR
LOAD - ...

load --mem好像不支持动态改变啊，比如load --mem &a但&a中有一句清空a内容的语句，那么清空语句后面的命令继续执行时因内容改变应该导致执行结果相应改变(在这个例子中应该没有反应)

ENVI$# &a=0x4D 0x45 0x53 0x53 0x20 0x61 0x61 0x61 0x0D 0x0A 0x45 0x4E 0x56 0x49 0x2D 0x7A 0x65 0x72 0x6F 0x20 0x26 0x61 0x3D 0x0D 0x0A 0x4D 0x45 0x53 0x53 0x20 0x62 0x62 0x62
LOAD --mem &a

复制代码

a的原始内容为

MESS aaa
ENVI-zero &a=
MESS bbb

复制代码

mdyblog · 发表于 5 天前

泮安宁发表于 2024-6-6 23:04
load --mem好像不支持动态改变啊，比如load --mem &a但&a中有一句清空a内容的语句，那么清空语句后面的命 ...

为什么要动态改变，什么用处？

泮安宁 · 发表于 5 天前

本帖最后由泮安宁于 2024-6-6 23:37 编辑

mdyblog 发表于 2024-6-6 23:22
为什么要动态改变，什么用处？

看说明说支持

LOAD [--logs:[*]log文件名] --mem 变量名 [命令行参数] //运行内存动态文件代码

复制代码

可能我理解错了，以为是实时改变的

Zap · 发表于 4 天前

mdyblog 发表于 2024-6-6 22:42
试试 SED -ts1
这个禁止转义符。就是普通字符串替换。

19302楼已修改但不理想

liangnijian · 发表于 3 天前

PECMD怎么判断服务是否被禁用（手动、自动），比如 defragsvc 。以及怎么判断这个服务是否存在，没被精简

红毛樱木 · 发表于 3 天前

liangnijian 发表于 2024-6-8 10:17
PECMD怎么判断服务是否被禁用（手动、自动），比如 defragsvc 。以及怎么判断这个服务是否存在，没被精简

SERV有查询功能，多试几下就晓得了

yajiji · 发表于前天 16:56

辛苦了

财源茂盛 · 发表于昨天 17:17

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评