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

527104427

mdyblog 发表于 2022-5-30 23:08
xiaojinglf   
反馈一个问题。ADSL-wlan命令对某些特殊的中文ssid不支持，无法识。比如：“老虎油”  “爱 ...

请教一下，这个滑块怎么弄成透明的？

call @WinMain

_sub WinMain,w527 h221,新窗口1,
    swin Swin:Win1:-SwinMain,l0 t0 w557 h138,,
    item ITEM1,l425 t147 w88 h30,应用,
    item ITEM2,l329 t147 w88 h30,刷新,
_end

_sub Win1,w527 h175,,,,:0xFFFFFF
    labe -trans LABE1,l15 t20 w63 h22,当前DPI：,,
    edit+ -3D EDIT1,l67 t23 w60 h23,EDIT1,,
    labe -trans LABE2,l180 t20 w60 h22,推荐DPI:,,
    edit+ -3D EDIT2,l229 t21 w60 h23,EDIT2,,
    list LIST1,l425 t21 w64 h100,LIST1,
    //labe -3d ,l-7 t131 w401 h1,LABE4,,
    slid SLID1,l194 t79 w304 h30,0:100,,0x40
    radi RADI1,l345 t15 w76 h30,选择DPI：,,,
    radi RADI2,l20 t76 w95 h30,自定义DPI：,,,
    edit+ -3D EDIT3,l104 t83 w60 h23,EDIT3,,
    labe -trans LABE3,l205 t110 w264 h26,LABE3,,
    set @RADI1.bkcolor=#0xFFFFFF##0xFFFFFF
    set @RADI2.bkcolor=#0xFFFFFF##0xFFFFFF
_end

狼人72105

mdyblog 发表于 2022-5-30 23:08
xiaojinglf   
反馈一个问题。ADSL-wlan命令对某些特殊的中文ssid不支持，无法识。比如：“老虎油”  “爱 ...

确实想他所说 在11PE下 手动输入密码连接就没有问题 然后adsl-wlan命令连接都没有反应。。。有视频为证。。。

mdyblog

狼人72105 发表于 2022-5-31 20:05
确实想他所说 在11PE下 手动输入密码连接就没有问题 然后adsl-wlan命令连接都没有反应。。。有视频为证。 ...

先断开其他网络连接。
我冒险将路由器WIFI改为 爱老虎油
测试通过：

mdyblog

527104427 发表于 2022-5-31 12:24
请教一下，这个滑块怎么弄成透明的？

call @WinMain

新版 slid 添加透明支持
ENVI @SLID1.trans=1*  


另外， 新版 IFEX FIND LOOP  FORX  支持用“;:”替代逗号， 这样后面可以用 %^OS:~1,2%
FIND;  $%^OS:~1,2%<>; MESS YYY! MESS NNNN

狼人72105

mdyblog 发表于 2022-6-1 05:22
先断开其他网络连接。
我冒险将路由器WIFI改为 爱老虎油
测试通过：

M大，你这个是在正常的win7系统下测试的，不知道你再11系统和11PE下有没有做测试了？

527104427

mdyblog 发表于 2022-6-1 05:33
新版 slid 添加透明支持
ENVI @SLID1.trans=1*  

好的。

服务器问题，多点了几下

mdyblog

狼人72105 发表于 2022-6-1 07:13
M大，你这个是在正常的win7系统下测试的，不知道你再11系统和11PE下有没有做测试了？

请用PECMD >= 2022-05-12
并且 以管理员 方式运行
重新再U盘装个标准WIn11（10 、8、7）测试。

WIn11标准系统效果：


WIn8标准系统效果：

826773297

mdyblog 发表于 2022-6-1 10:42
请用PECMD >= 2022-05-12
并且 以管理员 方式运行
重新再U盘装个标准WIn11（10 、8、7）测试。

m大，pecmd有办法给txt文本去重复项目吗

狼人72105

826773297 发表于 2022-6-1 11:18
m大，pecmd有办法给txt文本去重复项目吗

好了，你完了，11系统下么有问题，PE下不能命令连接，是不是说明PECMD中adsl-wlan命令还有依赖？

mdyblog

826773297 发表于 2022-6-1 11:18
m大，pecmd有办法给txt文本去重复项目吗

得说具体。

826773297

mdyblog 发表于 2022-6-1 14:54
得说具体。

就是文本里的重复行只留一个

826773297

狼人72105 发表于 2022-6-1 12:37
好了，你完了，11系统下么有问题，PE下不能命令连接，是不是说明PECMD中adsl-wlan命令还有依赖？

下载新版本pecmd试试

mdyblog

826773297 发表于 2022-6-1 17:38
就是文本里的重复行只留一个

连续的相同行， 只保留1行， 是吗？

826773297

mdyblog 发表于 2022-6-2 20:59
连续的相同行， 只保留1行， 是吗？

可能是连续，也可能不连续，顺序打乱的

mdyblog

826773297 发表于 2022-6-3 08:55
可能是连续，也可能不连续，顺序打乱的

可能不连续，
只保留第一次出现的行， 是吗？

826773297

mdyblog 发表于 2022-6-3 10:16
可能不连续，
只保留第一次出现的行， 是吗？

对的

826773297

M大，还有一个很有难度的问题，怎么把这个vbs代码转换为pecmd，这个太难了
根据inf修改reg.7z (162.5 KB, 下载次数: 16)

2022-6-3 11:06 上传

点击文件名下载附件

527104427

826773297 发表于 2022-6-3 11:06
M大，还有一个很有难度的问题，怎么把这个vbs代码转换为pecmd，这个太难了

如果能说清楚VBS的作用，具体的实现细节，就能用PECMD做出来。

826773297

527104427 发表于 2022-6-3 12:03
如果能说清楚VBS的作用，具体的实现细节，就能用PECMD做出来。

pecmd很难实现，真的很难，read读reg文件需要大概一秒时间，这个时候vbs已经处理好了，vbs就是根据已存在inf，把reg内不存在的inf给加上删除标记

826773297

我是想研究一下pecmd这个文本处理，看看为什么我写不出来这个代码，而且效率很低

mdyblog

826773297 发表于 2022-6-3 13:01
我是想研究一下pecmd这个文本处理，看看为什么我写不出来这个代码，而且效率很低

可以用 FORX  *NL
在内存中处理。

826773297

mdyblog 发表于 2022-6-3 13:06
可以用 FORX  *NL
在内存中处理。

我就是在内存中处理，速度很慢，vbs已经处理好了，我还在找行号

红毛樱木

826773297 发表于 2022-6-3 13:12
我就是在内存中处理，速度很慢，vbs已经处理好了，我还在找行号

不会vbs，看不懂vbs。
如果慢，可以用GEFT读位置，再用PUTF修改。

826773297

红毛樱木 发表于 2022-6-3 13:16
不会vbs，看不懂vbs。
如果慢，可以用GEFT读位置，再用PUTF修改。

reg是文本，我要根据文本内inf文件名判断文件是否存在，GETF读起始位置，这个好像不着边吧

红毛樱木

826773297 发表于 2022-6-3 13:21
reg是文本，我要根据文本内inf文件名判断文件是否存在，GETF读起始位置，这个好像不着边吧

还是一次性把原理讲清楚吧，讲半天还是瞎猜

826773297

红毛樱木 发表于 2022-6-3 13:41
还是一次性把原理讲清楚吧，讲半天还是瞎猜

就是根据现有inf文件，把reg文本内的不存在的inf内容加上删除标记

mdyblog

826773297 发表于 2022-6-3 13:54
就是根据现有inf文件，把reg文本内的不存在的inf内容加上删除标记

1. <p>ENVI^ ForceLocal=1
   
2. SET$ &NL=0d 0a
   
3. 
   
4. SET &D=11\Windows\inf
   
5. SET &REG=.\DriverDeviceIds.reg
   
6. 
   
7. FORX *off  %&D%\*.inf,&FS,,*
   
8. //MESS. %&FS%
   
9. 
   
10. READ %&REG%,**,&RV
    
11. //MESS %&RV%
    
12. SED -ex &&RV2=0,(%&NL%)*\[HKEY[^%&NL%]*,,&RV
    
13. //MESS. %&RV2%
    
14. 
    
15. SET &FS2=
    
16. FORX *NL &FS,&&Fi,
    
17. {* SED -ni -ex &&pi=?1,"%&Fi%",,&RV2
    
18.    IFEX #%pi%<=0, SET< FS2=%NL%%&Fi%
    
19. }
    
20. MSTR * &FS3=3,0,FS2
    
21. ///REG 中没有的 INF
    
22. MESS. %FS3%

复制代码

==============
挺快的

527104427

mdyblog 发表于 2022-6-3 17:03
==============
挺快的

EDIT只读状态能不能设成白色的？下面的7种方法都无效
call @Win2
_sub Win2,w452 h305,
        edit+-| edit4,l0 t0 w352 h205,aaa,,0x8
        CALL $--ret:&&vs  UxTheme.dll,IsAppThemed
        IFEX #%&vs%>0, SET &BKC=0xFFFFFF*! SET &BKC=0xFFFFFF
        ENVI @edit4.bkcolor=%BKC%
        //ENVI @edit4.bkcolor=#0xFFFFFF##0xFFFFFF
        //ENVI @edit4.bkcolor=0xFFFFFF*0xFFFFFF
        //ENVI @edit4.trans=0xFFFFFF*1;1
        //TEAM ENVI @edit4.trans=1*4| ENVI @edit4.trans=0xFFFFFF*
        //ENVI @edit4.trans=*3;0x10001
        //ENVI @edit4.Color=:::;0xFFFFFF#0xFFFFFF
_end

mdyblog

527104427 发表于 2022-6-3 17:47
EDIT只读状态能不能设成白色的？下面的7种方法都无效
call @Win2
_sub Win2,w452 h305,

非只读 可以吗？

527104427

mdyblog 发表于 2022-6-3 18:09
非只读 可以吗？

非只读本来就是白色的呀，只读可以弄一下不？
用labe解决了，只不过不能复制内容，有点遗憾

还有个奇怪的问题，SWIN横向滚动条，用鼠标拖不动，拖走又回到原来的位置：
call @Page2
_sub Page2,w358 h297,
        swin swin2:Win2:-SwinMain2,l0 t0 w347 h205,,0x180
        item item3,l250 t219 w88 h30,关闭,
_end
_sub Win2,w547 h405,,,,:0xFFFFFF
        labe -trans -left labe2,l0 t0 w547 h405,每英寸 96 像素aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbb,,
_end