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

mdyblog · 发表于 2022-7-16 15:08:01

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

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

重新下载

mdyblog · 发表于 2022-7-17 11:47:07

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

mdyblog · 发表于 2022-7-18 00:02:02

本帖最后由 mdyblog 于 2022-7-18 00:06 编辑

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

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

复制代码

mdyblog · 发表于 2022-7-18 08:52:07

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

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

mdyblog · 发表于 2022-7-18 18:16:12

本帖最后由 mdyblog 于 2022-7-18 19:31 编辑

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

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

复制代码

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

mdyblog · 发表于 2022-7-18 21:45:52

本帖最后由 mdyblog 于 2022-7-19 01:52 编辑

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

mdyblog · 发表于 2022-7-19 13:43:30

本帖最后由 mdyblog 于 2022-7-19 13:50 编辑

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

mdyblog · 发表于 2022-7-19 18:37:58

826773297 发表于 2022-7-19 17:47
请教一下无边框的窗口可以加阴影效果吗

？？？？

mdyblog · 发表于 2022-7-19 23:00:56

826773297 发表于 2022-7-19 21:39
m大看看swin命令不自适应dpi的问题，之前5大问过

新版

mdyblog · 发表于 2022-7-20 17:59:28

826773297 发表于 2022-7-20 08:08
新版可以了，但是出现一个垂直滚动条，之前是项目多的时候才会出现

给个最简单的演示例子，

mdyblog · 发表于 2022-7-20 18:03:43

红毛樱木发表于 2022-7-20 16:01
仔细看了一下，好像是文字会闪？

WIN
_SUB WIN,W500H300
ITEM -nfocus item1,L40T100W200H30,ABC
ENVI @item1.nxp=
_END

mdyblog · 发表于 2022-7-20 20:08:42

本帖最后由 mdyblog 于 2022-7-20 20:09 编辑

826773297 发表于 2022-7-20 18:53
这是新版本SWIN修复了dpi的效果，但是滚动条一直出现

PECMD2012.1.88.05.91Stable-220720C测试.7z

mdyblog · 发表于 2022-7-20 21:19:40

826773297 发表于 2022-7-20 20:16
SCRN命令可以获取除去任务栏的高度吗，就是不要把任务栏的高度计算在内

试试 SCRN -win

mdyblog · 发表于 2022-7-20 21:43:53

826773297 发表于 2022-7-20 20:26
或者怎么获取任务栏高度

FIND --class:Shell_TrayWnd --wid* &hw,
ENVI @@POS=?%&hw%:X:Y:W:H:
MESS %&hw% X=%X% Y=%Y% W=%W% H=%H%

mdyblog · 发表于 2022-7-20 21:47:53

826773297 发表于 2022-7-20 21:25
-win似乎不对

1：实际分辨率多少
2：显示设置为100% 再试试

mdyblog · 发表于 2022-7-20 21:58:57

本帖最后由 mdyblog 于 2022-7-20 22:04 编辑

826773297 发表于 2022-7-20 21:49
1920x1080分辨率，dpi是125%

那就对了

1536 * 1.25 = 1920
(824+40) * 1.25 = 1080
824 * 1.25 = 1030

mdyblog · 发表于 2022-7-20 22:06:37

826773297 发表于 2022-7-20 22:04
嗯，但是-win参数好像获取不准确
这个界面不知道是不是有问题，设置了125%缩放时出现错位情况

SCRN -win W,H,X,Y,p
MESS %X% %Y% %W% %H% %p%

824 * 1.25 = 1030 // 1030 是对的

mdyblog · 发表于 2022-7-20 22:55:26

826773297 发表于 2022-7-20 22:04
嗯，但是-win参数好像获取不准确
这个界面不知道是不是有问题，设置了125%缩放时出现错位情况

SCRN -taskbar W,H,X,Y,p
MESS %X% %Y% %W% %H% %p%

824 * 1.25 = 1030 // 1030 是对的

mdyblog · 发表于 2022-7-21 11:56:09

泮安宁发表于 2022-7-21 10:52
m大，这个描述什么意思，是不是不加 -disaltmv参数就可以用Alt键加鼠标拖动窗口，但我测试好像没用，不加 ...

-top -forcenomin -disminb -maxb -discloseb -nosysmenu -nocap -[dis]altmv -size -trap -na]
-------------

-disaltmv 是默认的
用 -altmv ：用Alt键加鼠标拖动窗口

mdyblog · 发表于 2022-7-21 12:46:49

泮安宁发表于 2022-7-21 12:22
可以了，但如果鼠标放在了控件上就没法拖动了，只能放在空白窗口上，这个有办法解决吗

最简单的演示代码

mdyblog · 发表于 2022-7-21 13:30:01

本帖最后由 mdyblog 于 2022-7-21 15:01 编辑

泮安宁发表于 2022-7-21 12:52
Windows1
_SUB Windows1,W360H440,WinCMD功能演示,,,,,-altmv
ITEM item1,l50t100w200h50, ...

//临时禁用控件，响应AltMove

ENVI^ EnviMode=1
SET ::WM_KEYDOWN=0x0100
SET ::WM_KEYUP=0x0101
SET ::WM_SYSKEYDOWN=0x0104
SET ::WM_SYSKEYUP=0x0105
Windows1
_SUB Windows1,W360H440,WinCMD功能演示,,,20,,-altmv
ITEM item1,l50t100w200h50,ABC
SET &bAlt=1
//临时禁用控件，响应AltMove
ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
ENVI @item1.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @item1.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
_END
_SUB ForAltMove
SET bAlt=%1
ENVI @item1.Enable=%1
_END

复制代码

mdyblog · 发表于 2022-7-21 18:44:01

泮安宁发表于 2022-7-21 17:46
如果有多个按钮

ENVI^ EnviMode=1

ENVI^ EnviMode=1
SET ::WM_KEYDOWN=0x0100
SET ::WM_KEYUP=0x0101
SET ::WM_SYSKEYDOWN=0x0104
SET ::WM_SYSKEYUP=0x0105
SET ::VK_ALT=0x12
Windows1
_SUB Windows1,W360H440,WinCMD功能演示,,,20,,-altmv
ITEM item1,l50t100w200h50,ABC
ITEM item2,l50t160w200h50,ABC
SET &SubCtr=item1 item2
SET &bAlt=1
//临时禁用控件，响应AltMove
TIME -t:1 ,0,CALL * RegAltMove
_END
_SUB ForAltMove
SET bAlt=%1
FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
_END
_SUB RegAltMove *
ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
FORX * %&SubCtr%,&&Ctr,
{* ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
}
_END

复制代码

mdyblog · 发表于 2022-7-21 19:27:04

泮安宁发表于 2022-7-21 19:04
好的

ENVI^ EnviMode=1
SET ::WM_KEYDOWN=0x0100
SET ::WM_KEYUP=0x0101
SET ::WM_SYSKEYDOWN=0x0104
SET ::WM_SYSKEYUP=0x0105
SET ::VK_ALT=0x12
CALC #&&iALT=%&VK_ALT% + 1
Windows1
_SUB Windows1,W360H440,WinCMD功能演示,,,20,,-altmv
ITEM item1,l50t100w200h50,ABC
ITEM item2,l50t160w200h50,ABC
SET &SubCtr=item1 item2
SET &V0=
SET &bAlt=1
//临时禁用控件，响应AltMove
TIME -t:1 ,0,CALL * RegAltMove
_END
_SUB ForAltMove
@IFEX #%~1=%bAlt%, EXIT
WAIT -scanall &&V
FIND *&V0=&V, EXIT _SUB
SET-copy V0=&V
MSTR &&VAlt=<%iALT%>%&V%
CALC #&VAlt=%VAlt% & 0x80
IFEX #0=%~1, IFEX #%VAlt%<>0x80, EXIT
IFEX #1=%~1, IFEX #%VAlt%=0x80, EXIT
SET bAlt=%1
FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
_END
_SUB RegAltMove *
ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
FORX * %&SubCtr%,&&Ctr,
{* ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
}
_END

复制代码

mdyblog · 发表于 2022-7-21 23:36:39

mdyblog 发表于 2022-7-21 19:27

ENVI^ EnviMode=1
SET ::WM_KEYDOWN=0x0100
SET ::WM_KEYUP=0x0101
SET ::WM_SYSKEYDOWN=0x0104
SET ::WM_SYSKEYUP=0x0105
SET ::VK_ALT=0x12
Windows1
_SUB Windows1,W360H440,控件上AltMove,,,20,,-altmv
ITEM item1,l50t100w200h50,ABC
ITEM item2,l50t160w200h50,ABC
SET &SubCtr=item1 item2
SET &bAlt=1
//临时禁用控件，响应AltMove
TIME -t:1 ,0,CALL * RegAltMove
_END
_SUB ForAltMove
@IFEX #%~1=%bAlt%, EXIT
WAIT -scan:%&VK_ALT% &&VAlt
CALC #&VAlt=%VAlt% & 0x80
IFEX #0=%~1, IFEX #%VAlt%<>0x80, EXIT
IFEX #1=%~1, IFEX #%VAlt%=0x80, EXIT
SET bAlt=%1
FORX * %&SubCtr%,&&Ctr, ENVI @%&Ctr%.Enable=%1
_END
_SUB RegAltMove *
ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
FORX * %&SubCtr%,&&Ctr,
{* ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
}
_END

复制代码

mdyblog · 发表于 2022-7-22 04:07:44

mdyblog 发表于 2022-7-21 23:36

不变灰版

ENVI^ EnviMode=1
SET ::WM_KEYDOWN=0x0100
SET ::WM_KEYUP=0x0101
SET ::WM_SYSKEYDOWN=0x0104
SET ::WM_SYSKEYUP=0x0105
SET ::VK_ALT=0x12
//临时禁用控件，响应AltMove,不变灰
Windows1
_SUB Windows1,W360H440,控件上AltMove(不变灰),,,20,,-altmv
SWIN -:WinIn:SwinWin1,L0T0W360H440,
SET &bAlt=1
TIME -t:1 ,0,CALL * RegAltMove1
_END
_SUB WinIn,W360H440,
ITEM item1,l50t100w200h50,ABC
ITEM item2,l50t160w200h50,ABC
SET &SubCtr=item1 item2
TIME -t:1 ,0,CALL * RegAltMove
_END
_SUB ForAltMove
@IFEX #%~1=%bAlt%, EXIT
WAIT -scan:%&VK_ALT% &&VAlt
IFEX #0=%~1, IFEX #%VAlt%<0x80, EXIT
IFEX #1=%~1, IFEX #%VAlt%>=0x80, EXIT
SET bAlt=%1
ENVI @SwinWin1.Enable=%1
_END
_SUB RegAltMove1 *
ENVI @this.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
ENVI @this.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
_END
_SUB RegAltMove *
FORX * %&SubCtr%,&&Ctr,
{* ^ENVI @%&Ctr%.MSG=$%WM_KEYDOWN%::&&wp,&&lp, ForAltMove 0
^ENVI @%&Ctr%.MSG=$%WM_SYSKEYDOWN%::&&wp,&&lp, ForAltMove 0
^ENVI @%&Ctr%.MSG=$%WM_SYSKEYUP%::&&wp,&&lp, ForAltMove 1
}
_END

复制代码

mdyblog · 发表于 2022-7-22 09:02:29

泮安宁发表于 2022-7-22 07:20
最近发的这两个版本测试都不可以移动呢

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评