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

Syl1us · 发表于 2022-10-9 13:45:49

很给力!

m92sf · 发表于 2022-10-12 18:04:56

学习一下，看看

香国妙手 · 发表于 2022-10-13 09:20:03

谢谢分享

shmoss · 发表于 2022-10-13 09:42:55

老师我把多个文件压缩为cab再编译到10|EXEDATA
释放它们就要PUTF再DEVI吗还是有更好的写法呢
IFEX %windir%\RegConvert.exe,!PUTF %windir%\RegConvert.cab,,"%myname%""#10|EXEDATA"
DEVI *extract %windir%\RegConvert.cab,,%windir%\

mdyblog · 发表于 2022-10-13 22:39:49

shmoss 发表于 2022-10-13 09:42
老师我把多个文件压缩为cab再编译到10|EXEDATA
释放它们就要PUTF再DEVI吗还是有更好的写法呢
IFEX %win ...

就是这么用

mdyblog · 发表于 2022-10-14 09:52:21

本帖最后由 mdyblog 于 2022-10-14 10:05 编辑

贝尔不等式的相关问题

这些天闭关研究了一番。
自己研究的结果和网上的不同。仔细对比，正向对比，反向对比。最后集中归结为贝尔不等式的一个依赖条件A的问题：
N1+N2+N3+N4+N5+N6+N7+N8=1
这在更复杂的条件下，不一定为1。绝对值可以很大。导致贝尔不等式的范围可以很大，失去判定效果。同样，据此，相关性也不一定是线性关系。
这样导致贝尔不等式不一定成立。从而用来判定定域性和因果性无效。从而用来判定上帝是否掷骰子无效。

先回顾历史。爱因斯坦等人提出隐变量理论。后来冯▪诺依曼从逻辑上证明隐变量理论不成立。导致人们不再关注隐变量理论。然而，后来贝尔研究发现，其证明犯了一个极其低级的错误，相当于简单的一个依赖条件错误（第5个）。也就是说，前面的证明阻碍了物理学的的发展。
然而贝尔的不等式，同样存在一个依赖条件错误。贝尔不等式逻辑上，看似巧妙精致，无懈可击。导致物理学家几十年不关注隐理论。阻碍了物理学几十年的发展。

当时，爱因斯坦未了方便说明，提到南北极手套的例子。这个例子中，上面依赖条件成立，从而贝尔不等式成立。
但是，一般说来，这只是一个举例。同时本来就是为了方便说明，自然举例简单。也就是这个例子，只是为了方便理解的最简单的例子。并不能代表所有的情况。
世界上，人们可以发表无数种不同的，满足定域性和因果性的，隐理论，它们可不满足依赖条件，从而贝尔不等式成立。
实际上，用有限的实验，证明，没有这样的隐理论，满足定域性实在性因果性不能成立，上帝不能不掷骰子，几乎不可能。
因为，这样的隐理论，是无穷的。否定一个，还可能提出无数个。没完没了。

那么现在人们怎么证明的呢？
否定无穷的问题，一般从反面用反证法。
虽然其有无穷多种可能，但是只要有一个成立，就满足某种具体的必然关系B。
只要有一个实验证明其违反关系B。那么证明关系B不是必须的，从而证明这些理论统统不成立。
这里的关系B就是贝尔不等式。也就是用贝尔不等式这个关系B，来判定这些理论统统不成立。

但是，现在关系B的依赖条件A，不是必然的，从而关系B不是必然的。从而不能否定存在这样的隐理论，有不能否定上帝不掷骰子。

根据我的推演，人们应当提出跟多的复杂的，满足定域性实在性因果性完备的隐理论。同时，根据我的推演，实验上，人们可以往纵的方向考虑，而不仅仅在横的方向上。

ZMLoveLH · 发表于 2022-10-14 16:34:23

看看这款 COOL MiniPE 的性能究竟如何啊

826773297 · 发表于 2022-10-15 13:06:49

mdyblog 发表于 2022-10-14 09:52
贝尔不等式的相关问题

这些天闭关研究了一番。

把网卡实时速率转成pecmd玩一下

https://download.csdn.net/download/fx524913413/7774949

mdyblog · 发表于 2022-10-16 08:52:29

本帖最后由 mdyblog 于 2022-10-16 09:00 编辑

826773297 发表于 2022-10-15 13:06
把网卡实时速率转成pecmd玩一下

https://download.csdn.net/download/fx524913413/7774949

参考代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

IFEX  %&CurFile%.LOG, LOGS --2 * %&CurFile%.LOG
ENVI$ &NL=0d 0a
ENVI^ EnviMode=1
ENVI^ ForceLOcal=1
WIN1
_SUB WIN1,W387H254,网络速度,
LABE &wMsg,L63T78W264H100,,,
CALL $--ret:&&hDll  ,-LoadLibrary,^Iphlpapi.dll
CALL $--ret:&&GetIfTable  ,-GetProcAddress,*%hDll%,GetIfTable
--MESS. [%&hDll%]  [%&GetIfTable%]

SET &sz0=0x100000
SET$$ &sz=0x00100000 0 0
SET#$ &Buf=*0x100100 0

SET &dwLastIn=0 //上一秒钟的接收字节数
SET &dwLastOut=0 //上一秒钟的发送字节数
SET &dwBandIn=0 //下载速度
SET &dwBandOut=0 //上传速度
SET &MAX_INTERFACE_NAME_LEN=256
SET &MAXLEN_PHYSADDR=8
SET &MAXLEN_IFDESCR=256
CALC #&&MIBLEN=%&MAX_INTERFACE_NAME_LEN% * 2 + 4*5 + %&MAXLEN_PHYSADDR% + 4*16 + %&MAXLEN_IFDESCR%
CALC #&&Ofb1=4 + %&MAX_INTERFACE_NAME_LEN% * 2 + 4*5 + %&MAXLEN_PHYSADDR%  + 4*3
//CALC #&&Ofb2=%&Ofb1% + 4*6
SET &dwInOctets=0
SET &dwOutOctets=0
TIME  T1,1000, CALL OnT1

_END

_SUB OnT1
SET-long sz=%&sz0%
SET-int64 Buf=0
^CALL $--ncd --nrcd --qd --ret:&&ret #,%&GetIfTable%,*&Buf,*&sz,#1
SET &dwNumEntries=%&Buf?long:0%
SET &I=0
SET &Of1=%Ofb1%
LOOP #%&I%<%&dwNumEntries%,
{*  CALC #&I=%&I% + 1
      ENVI?long &Buf=&&dwInOctetsI:%&Of1%  //DWORD
      ENVI?long &Buf=&&dwOutOctetsI:(%&Of1%+24)
      //^CALC #&&dwInOctetsI=%%Buf?long:%&Of1%%%  //DWORD
      //^CALC #&&dwOutOctetsI=%%&Buf?long:(%&Of1%+24)%%  //DWORD
      CALC #&dwInOctets=%&dwInOctets% + %&dwInOctetsI%  //dwInOctets
      CALC #&dwOutOctets=%&dwOutOctets% + %&dwOutOctetsI%  //dwOutOctets
      CALC #&Of1=%&Of1% + %&MIBLEN%
}
CALC &dwBandIn=(%&dwInOctets% - %&dwLastIn% ) / 1024#2    //下载速度
CALC &dwBandOut=(%&dwOutOctets% - %&dwLastOut%) / 1024#2 //上传速速
SET dwLastIn=%&dwInOctets%
SET dwLastOut=%&dwOutOctets%
ENVI  @&wMsg=收到字节: %&dwLastIn% bytes%&NL%发送字节: %&dwLastOut% bytes%&NL%下行速度: %&dwBandIn% KB%&NL%上行速度: %&dwBandOut% KB
_END

EXIT

typedef struct _MIB_IFTABLE {
  DWORD dwNumEntries;
  MIB_IFROW table[ANY_SIZE];
} MIB_IFTABLE, *PMIB_IFTABLE;
typedef struct _MIB_IFROW {
  WCHAR wszName[MAX_INTERFACE_NAME_LEN];
  DWORD dwIndex;
  DWORD dwType;
  DWORD dwMtu;
  DWORD dwSpeed;
  DWORD dwPhysAddrLen;
  BYTE bPhysAddr[MAXLEN_PHYSADDR];
  DWORD dwAdminStatus;
  DWORD dwOperStatus;
  DWORD dwLastChange;
  DWORD dwInOctets;  //
  DWORD dwInUcastPkts;
  DWORD dwInNUcastPkts;
  DWORD dwInDiscards;
  DWORD dwInErrors;
  DWORD dwInUnknownProtos;
  DWORD dwOutOctets; //
  DWORD dwOutUcastPkts;
  DWORD dwOutNUcastPkts;
  DWORD dwOutDiscards;
  DWORD dwOutErrors;
  DWORD dwOutQLen;
  DWORD dwDescrLen;
  BYTE bDescr[MAXLEN_IFDESCR];
} MIB_IFROW, *PMIB_IFROW;

smss · 发表于 2022-10-16 11:06:27

@mdyblog 老师
win11字体图标不同版本是不同的我提取最新版本图标给当前系统换上但是...

FONT - "D:\新建文件夹\SegoeIcons.ttf"
FONT "D:\SegoeIcons.ttf"

复制代码

有时可以有时不可以我是不是写错了
我有寻思这样写但上边实测不理想而实时上用系统自带右键的安装也不稳我也没判断出系统到底是依据什么作为来管控字体的只好来劳烦老师了

TEAM HASH %SystemRoot%\Fonts\SegoeIcons.ttf,md5|EXEC takeown /f %SystemRoot%\Fonts\SegoeIcons.ttf |EXEC icacls %SystemRoot%\Fonts\SegoeIcons.ttf /grant administrators:F|FONT - %SystemRoot%\Fonts\SegoeIcons.ttf
FIND $%md5%<>6DC8DF072D5E63A90FB2D035E16D6369,PUTF %SystemRoot%\Fonts\SegoeIcons.ttf,,"%myname%""#12|EXEDATA"

复制代码

smss · 发表于 2022-10-16 11:18:14

在这下载字体->https://share.weiyun.com/ExI0uacU

826773297 · 发表于 2022-10-16 11:24:46

mdyblog 发表于 2022-10-16 08:52
参考代码：

好的，感谢

826773297 · 发表于 2022-10-16 13:00:04

mdyblog 发表于 2022-10-16 08:52
参考代码：

adsl-wlan命令连接无线网络，支持多个名称相同ssid的连接吗，好像不好定义

Anson4 · 发表于 2022-10-16 18:39:32

本帖最后由 Anson4 于 2022-10-16 23:34 编辑

mdyblog 发表于 2022-10-16 08:52
参考代码：

请教M大，如何实现EDIT或者LIST控件在被激活和失去激活时执行指令？
比如，下图中的EDIT和LIST控件预设值为100，在控件被选择时将预设值100保存到变量，接着输入数值200（不回车），然后去选择其他控件（此时执行指令对比前一个控件的预设值与输入值）。

_TABL_EDIT_TEST.zip (966 Bytes, 下载次数: 2)

红毛樱木 · 发表于 2022-10-16 20:19:37

Anson4 发表于 2022-10-16 18:39
请教M大，如何实现EDIT或者LIST控件在被激活和失去激活时执行指令？
比如，下图中的EDIT和LIST控件预设 ...

.Enable
之前
.cmd
清空执行命令，之后再设置回来

mdyblog · 发表于 2022-10-16 23:37:50

826773297 发表于 2022-10-16 13:00
adsl-wlan命令连接无线网络，支持多个名称相同ssid的连接吗，好像不好定义

?????

mdyblog · 发表于 2022-10-16 23:45:08

Anson4 发表于 2022-10-16 18:39
请教M大，如何实现EDIT或者LIST控件在被激活和失去激活时执行指令？
比如，下图中的EDIT和LIST控件预设 ...

“被激活和失去激活”
是得到焦点失去焦点吗？

Anson4 · 发表于 2022-10-17 00:23:05

mdyblog 发表于 2022-10-16 23:45
“被激活和失去激活”
是得到焦点失去焦点吗？

好像不止是得到焦点失去焦点，举例说明：
点击EDIT1，输入数值，再点击EDIT2或者ITEM或者其他任意控件甚至是点击其他窗口等，此时触发执行命令（通过检测EDIT1的状态决定）。
不知道这么描述是否清楚？

527104427 · 发表于 2022-10-17 09:10:48

Anson4 发表于 2022-10-16 18:39
请教M大，如何实现EDIT或者LIST控件在被激活和失去激活时执行指令？
比如，下图中的EDIT和LIST控件预设 ...

直接说想达到什么最终效果吧

826773297 · 发表于 2022-10-17 12:50:47

Anson4 发表于 2022-10-17 00:23
好像不止是得到焦点失去焦点，举例说明：
点击EDIT1，输入数值，再点击EDIT2或者ITEM或者其他任意控件 ...

pecmd示例的edit内容改变和edit实时更新示例

826773297 · 发表于 2022-10-17 12:52:29

Anson4 发表于 2022-10-17 00:23
好像不止是得到焦点失去焦点，举例说明：
点击EDIT1，输入数值，再点击EDIT2或者ITEM或者其他任意控件 ...

还可以用wm消息监控窗体点击事件，比如你edit输入了内容，你点一下窗体，那就可以接收wm消息

826773297 · 发表于 2022-10-17 12:59:31

mdyblog 发表于 2022-10-16 23:37
?????

多个相同名称的ssid，如何指定连接

826773297 · 发表于 2022-10-17 13:01:13

Anson4 发表于 2022-10-17 00:23
好像不止是得到焦点失去焦点，举例说明：
点击EDIT1，输入数值，再点击EDIT2或者ITEM或者其他任意控件 ...

那还是给edit设置一个wm消息更方便，不用其他条件触发

Anson4 · 发表于 2022-10-17 13:38:43

527104427 发表于 2022-10-17 09:10
直接说想达到什么最终效果吧

就是 DiskGenius 快速分区对话框中分区容量输入编辑框的效果：点击编辑框，输入容量，点击其他，自动计算分配容量。

smss · 发表于 2022-10-17 17:55:19

EDIT -3D -center 品质,L175T378W30H16,%品质%,,0x410,0xDF0029
TEAM ENVI @品质.ID=?;品质_ID|ENVI @品质.Visible=1 //捕捉输入
ENVI @this.MSG=_COMMAND#%&品质_ID%#%&EN_CHANGE%::&wp,&lp,IFEX $%品质%>100,TEAM REGI $HKU\.DEFAULT\Software\Smss\\品质=100|ENVI @品质=100!REGI $HKU\.DEFAULT\Software\Smss\\品质=%品质%
参考这个@Anson4

Anson4 · 发表于 2022-10-17 19:11:51

smss 发表于 2022-10-17 17:55
EDIT -3D -center 品质,L175T378W30H16,%品质%,,0x410,0xDF0029
TEAM ENVI @品质.ID=?;品质_ID|ENVI @品 ...

这样处理的话，每输入一个字符就执行一次命令，不是很科学。
最好是输入完成后才执行命令，EDIT控件默认是以回车来结束输入的，而我希望的是以离开该控件（选择其他控件或者窗口等）来结束输入。

826773297 · 发表于 2022-10-17 19:30:43

本帖最后由 826773297 于 2022-10-17 19:36 编辑

Anson4 发表于 2022-10-17 19:11
这样处理的话，每输入一个字符就执行一次命令，不是很科学。
最好是输入完成后才执行命令，EDIT控件默认 ...

WIN1
_SUB WIN1,W545H468,新窗口1,
EDIT EDIT1,L85T85W318H30,EDIT1,,
EDIT EDIT2,L85T129W327H30,EDIT2,,
RADI RADI1,L77T180W60H30,RADI1,,,
CHEK CHEK1,L212T197W60H30,CHEK1,,
LIST LIST1,L358T204W60H100,LIST1,
ENVI @EDIT1.MSG=_0x0021:ENVI @WIN1=EDIT1
ENVI @EDIT2.MSG=_0x0021:ENVI @WIN1=EDIT2
ENVI @RADI1.MSG=_0x0021:ENVI @WIN1=RADI1
ENVI @CHEK1.MSG=_0x0021:ENVI @WIN1=CHEK1
ENVI @LIST1.MSG=_0x0021:ENVI @WIN1=LIST1
ENVI @WIN1.MSG=0x0202:ENVI @WIN1=左键
ENVI @WIN1.MSG=0x0204:ENVI @WIN1=右键
ENVI @WIN1.MSG=0x001C:ENVI @WIN1=未激活
_END

试试wm消息

WIN1
_SUB WIN1,W545H468,新窗口1,
EDIT EDIT1,L85T85W318H30,EDIT1,,
EDIT EDIT2,L85T129W327H30,EDIT2,,
RADI RADI1,L77T180W60H30,RADI1,,,
CHEK CHEK1,L212T197W60H30,CHEK1,,
LIST LIST1,L358T204W60H100,LIST1,
ENVI @EDIT1.MSG=_0x0008:ENVI @WIN1=EDIT1
ENVI @EDIT2.MSG=_0x0008:ENVI @WIN1=EDIT2
ENVI @RADI1.MSG=_0x0008:ENVI @WIN1=RADI1
ENVI @CHEK1.MSG=_0x0008:ENVI @WIN1=CHEK1
ENVI @LIST1.MSG=_0x0008:ENVI @WIN1=LIST1
_END

2010hook · 发表于 2022-10-20 15:47:27

如何将关闭资源管理器窗口的命令转换成纯粹的PECMD命令呢？

nircmd.exe win close class "CabinetWClass"

复制代码

527104427 · 发表于 2022-10-20 18:43:27

2010hook 发表于 2022-10-20 15:47
如何将关闭资源管理器窗口的命令转换成纯粹的PECMD命令呢？

set^ EnviMode=1
set^ ForceLocal=1
set wm_close=0x0010
find --class:CabinetWClass --wid*@ a,
forx *nl a,b,
{
mstr* * c=<2>b
set @@postmsg=%c%;%wm_close%;0;0
}
mess. ok

2010hook · 发表于 2022-10-20 19:37:36

本帖最后由 2010hook 于 2022-10-20 19:45 编辑

527104427 发表于 2022-10-20 18:43
set^ EnviMode=1
set^ ForceLocal=1
set wm_close=0x0010

感谢大牛出手帮助！
我要用在批处理里的，在卸载wim前关闭资源管理器保证没有错误，所以希望再帮忙缩减成一行，无提示。

另外，以下这组命令怎么写成一行？我想生成LNK，用team合并会显示双重内容：

FIND --pid*@ &&L,
MESS. %&L%

复制代码

感激！

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

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

点评

评分

点评

评分

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评