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

红毛樱木

smss 发表于 2022-7-15 17:49

来个示例代码

smss

M大，实测从原始版到未压缩版都存在这个问题，望大神排查

mdyblog

smss 发表于 2022-7-15 18:02
M大，实测从原始版到未压缩版都存在这个问题，望大神排查

发个测试包上来

IT小森

签到

527104427

mdyblog 发表于 2022-7-15 18:45
发个测试包上来

试了一下，是cab方式内置的exe或bat不能运行了：

exec -exe:*cab:#100:7zG.exe
exec -exe:*?.cmd:cab:#101:a.bat

mdyblog

527104427 发表于 2022-7-16 12:04
试了一下，是cab方式内置的exe或bat不能运行了：

exec -exe:*cab:#100:7zG.exe

(简单）单个程序
用bootice.exe 试试

527104427

mdyblog 发表于 2022-7-16 12:21
(简单）单个程序
用bootice.exe 试试

就是单个程序。

mdyblog

527104427 发表于 2022-7-16 12:04
试了一下，是cab方式内置的exe或bat不能运行了：

exec -exe:*cab:#100:7zG.exe

重新下载

smss

可以加
for /l %%i in (1,3,12)do echo %%i
for /l %%i in (10,2,0)do echo %%i
这样的cmd 递增或递减 迭代形式的吗

smss

@Echo off
for /l %%i in (1,3,12)do echo %%i
pause
for /l %%i in (10,-2,0)do echo %%i
pause

mdyblog

smss 发表于 2022-7-17 10:10
可以加
for /l %%i in (1,3,12)do echo %%i
for /l %%i in (10,2,0)do echo %%i

PECMD2012.1.88.05.90Stable-220717A测试.7z
FORX *L 1 3 12,&&I,MESS %&&I%


*L 可以写为 /L

smss

1. TEAM set^ EnviMode=1|set^ ForceLocal=1
   
2. 举个栗子
   
3. _SUB 举个栗子,W300H800
   
4.         team fdrv 你尝尝=*:|set n=1
   
5.         FORX* %你尝尝%,i,
   
6.         {*        FORM DriveType=%i%
   
7.                 team calc T=0+30*%n%|set 盘%n%=%i%|set~ p=盘%n%|mess %p%
   
8.                 ITEM -left ,L50T%T%W200H28,%i%,EXEC $%p% //%i%               
   
9.                 calc n=%n%+1
   
10.         }
    
11. _end

复制代码

M大能修复下这个吗 EXEC总是循环结束的值

smss

1. TEAM set^ EnviMode=1|set^ ForceLocal=1
   
2. 举个栗子
   
3. _sub 举个栗子,W300H500
   
4.         team fdrv 你尝尝=*:|set n=1
   
5.         FORX* %你尝尝%,i,team calc T=0+30*%n%|ITEM ,L50T%T%W200H28,%i%,EXEC $%i%|calc n=%n%+1
   
6. _end

复制代码

mdyblog

smss 发表于 2022-7-17 21:28
M大能修复下这个吗 EXEC总是循环结束的值

1. TEAM ENVI^ EnviMode=1|ENVI^ ForceLocal=1
   
2. 举个栗子
   
3. _SUB 举个栗子,W300H800
   
4.     team fdrv 你尝尝=*:|set n=1
   
5.     FORX  *  %你尝尝%,i,
   
6.     {*  FORM DriveType=%i%
   
7.         team calc T=0+30*%n%|set 盘%n%=%i%|set~ p=盘%n%| mess %p%
   
8.         ^ITEM -left ,L50T%T%W200H28,%i%,EXEC $%p% //%i%               
   
9.         calc n=%n%+1
   
10.     }
    
11. _end

复制代码

smss

太好了 又可以少写不少代码

mdyblog

smss 发表于 2022-7-18 06:33
太好了 又可以少写不少代码

动态代码
前面加^, 会先解释一遍。
可多个^,解释多遍

826773297

mdyblog 发表于 2022-7-18 08:52
动态代码
前面加^, 会先解释一遍。
可多个^,解释多遍

m大帮忙翻译一下这个api
https://www.cnblogs.com/kybs0/p/12971567.html

红毛樱木

826773297 发表于 2022-7-18 15:21
m大帮忙翻译一下这个api
https://www.cnblogs.com/kybs0/p/12971567.html

IsNetworkAlive这个已经被弃用了吧？

826773297

红毛樱木 发表于 2022-7-18 15:52
IsNetworkAlive这个已经被弃用了吧？

这个很符合我的要求，现在还能用

红毛樱木

826773297 发表于 2022-7-18 16:10
这个很符合我的要求，现在还能用

SET$# &&lpdwFlags=*4 0
CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,*&lpdwFlags
SET?long lpdwFlags=&&pdwFlags
MESS. %&pdwFlags%<%&IsNetworkAliveRet%>
我这里没数据
------------------------------------------------------
写错了,   API没带上

1. SET$# &&lpdwFlags=*4 0
   
2. CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,IsNetworkAlive,*&lpdwFlags
   
3. SET?long lpdwFlags=&&pdwFlags
   
4. MESS. %&pdwFlags%<%&IsNetworkAliveRet%>

复制代码

826773297

红毛樱木 发表于 2022-7-18 16:11
SET$# &&lpdwFlags=*4 0
CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,*&lpdwFlags
SET?long l ...

没数据吗。那有点难搞

mdyblog

826773297 发表于 2022-7-18 15:21
m大帮忙翻译一下这个api
https://www.cnblogs.com/kybs0/p/12971567.html

1. ENVI^ EnviMode=1
   
2. 
   
3. HasNetLink &&RetMsg  &&Debug
   
4. MESS %&RetMsg%     / 调试信息:[%&Debug%]
   
5. 
   
6. //简单情况， 没有虚拟网卡等。
   
7. _SUB HasNetLink  //RetMsg
   
8.     SET$ &&lpdwFlags=*4 0SENSAPI
   
9.     CALL $--ret:&&Ret Sensapi.dll,IsNetworkAlive,*&lpdwFlags
   
10.     CALL $--ret:&&eCode Kernel32.dll,GetLastError
    
11.     SET?long lpdwFlags=&&pdwFlags
    
12.     SET &Debug=DEBUG: flags=%&pdwFlags%  ret=%&Ret% ErrCode=%eCode%
    
13.       //1722        The RPC server is unavailable.        RPC_S_SERVER_UNAVAILABLE
    
14. 
    
15.     //IsNetworkAlive 返回值（bool）
    
16.     //当返回值为true，且无错误Code时，表示网络已连接
    
17.     //当返回值为false，且无错误Code时，表示网络未连接
    
18. 
    
19.     SET &RetMsg=未知
    
20.     IFEX  #[ %&eCode%=0 & %Ret%=1 ], SET RetMsg=网络已连接
    
21.     IFEX  #[ %&eCode%=0 & %Ret%=0 ], SET RetMsg=网络未连接
    
22.     ENVI-ret %~1=%&RetMsg%
    
23.     ENVI-ret %~2=%&Debug%
    
24. _END

复制代码

简单情况， 没有虚拟网卡等。

826773297

mdyblog 发表于 2022-7-18 18:16
简单情况， 没有虚拟网卡等。

好的。感谢m大

826773297

mdyblog 发表于 2022-4-12 18:52
下载最新 PECMD2012.1.88.05.86Stable-220331B.7z
ADSL-wlan  ,,stop,
挂断当前无线连接

ADSL-wlan ,,stop,wifi
这样不能断开无线连接吗，wifi为无线名

mdyblog

ADSL-wlan ,,stop   //当前连接
或
ADSL-wlan  ,,stop,Atheros AR5B97 Wireless Network Adapter
或
ADSL-wlan  ,,stop,{GUID}
或
ADSL-wlan  ,,stop,链接序号

826773297

mdyblog 发表于 2022-7-18 21:45
ADSL-wlan ,,stop   //当前连接
或
ADSL-wlan  ,,stop,Atheros AR5B97 Wireless Network Adapter

好的，已经解决了

826773297

请教一下m大，adsl-wlan获取的无线列表，加密方式读哪个比较准确

mdyblog

826773297 发表于 2022-7-19 10:41
请教一下m大，adsl-wlan获取的无线列表，加密方式读哪个比较准确

ADSL-wlan  ,,list,&&v
MESS. %&v%



-----
DOT11_AUTH_ALGORITHM:
  DOT11_AUTH_ALGO_80211_OPEN        = 1,
  DOT11_AUTH_ALGO_80211_SHARED_KEY  = 2,
  DOT11_AUTH_ALGO_WPA               = 3,
  DOT11_AUTH_ALGO_WPA_PSK           = 4,
  DOT11_AUTH_ALGO_WPA_NONE          = 5,
  DOT11_AUTH_ALGO_RSNA              = 6,
  DOT11_AUTH_ALGO_RSNA_PSK          = 7,
  DOT11_AUTH_ALGO_IHV_START         = 0x80000000,
  DOT11_AUTH_ALGO_IHV_END           = 0xffffffff



DOT11_CIPHER_ALGORITHM:
  DOT11_CIPHER_ALGO_NONE           = 0x00,
  DOT11_CIPHER_ALGO_WEP40          = 0x01,
  DOT11_CIPHER_ALGO_TKIP           = 0x02,
  DOT11_CIPHER_ALGO_CCMP           = 0x04,
  DOT11_CIPHER_ALGO_WEP104         = 0x05,
  DOT11_CIPHER_ALGO_WPA_USE_GROUP  = 0x100,
  DOT11_CIPHER_ALGO_RSN_USE_GROUP  = 0x100,
  DOT11_CIPHER_ALGO_WEP            = 0x101,
  DOT11_CIPHER_ALGO_IHV_START      = 0x80000000,
  DOT11_CIPHER_ALGO_IHV_END        = 0xffffffff

826773297

mdyblog 发表于 2022-7-19 13:43
ADSL-wlan  ,,list,&&v
MESS. %&v%

好的

826773297

mdyblog 发表于 2022-7-19 13:43
ADSL-wlan  ,,list,&&v
MESS. %&v%

请教一下无边框的窗口可以加阴影效果吗