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

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不是必然的。从而不能否定存在这样的隐理论，有不能否定上帝不掷骰子。

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

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;

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控件预设 ...

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

mdyblog · 发表于 2023-4-7 17:06:38

conlin888 发表于 2023-4-6 18:35
各位大大，请问下如何用正则表达式查找不含ABC的行号。现在的笨办法是先查找包含ABC的行号，再逆推。

SET$ &NL=0d 0a
SET S=123ABC111%&NL%222%&NL%333%&NL%ABCzzz%&NL%5ABC55
-----------------------
SED &V1=0,[^%&NL%]*ABC[^%&NL%]*%&NL%,,%&S% //后面有NL
SED &V2=0,[^%&NL%]*ABC[^%&NL%]*$,,%&V1% //最后一行是，但没有NL
MESS. 【%&V2%】

mdyblog · 发表于 2023-4-7 17:13:54

826773297 发表于 2022-11-6 21:02
pecmd是不是不能用白图标，毛刺太多了

CALL $--ret:&DPIA user32.dll,SetProcessDPIAware

图标缩放的情况，要亲图标过渡缓和，不要很窄的线过渡。
相机照出来的就很好。
电脑做的图标，先用 PS 模糊一下，保证缩放时还是清楚的。

mdyblog · 发表于 2023-4-7 17:40:23

527104427 发表于 2022-12-3 16:42
有个比较严重的BUG：拖动滑块不会执行命令

call @WIN1

有啊

call @WIN1
_SUB WIN1,W455H187,a,
SLID SLID1,L35T53W378H30,0:100,ENVI @LABE1=$$$[%SLID1%]$$$$,0x40
LABE LABE1,L58T98W156H30,LABE1,,
_END

// $$$[20]$$$$

mdyblog · 发表于 2023-4-7 17:46:07

2011wyy 发表于 2023-1-14 16:27
**** 作者被禁止或删除内容自动屏蔽 ****

用 ResEdit 或 ResHacker 编辑 PECMD.EXE ，在保存。
内置帮助文档是

RC数据/301

调入新的文本文件即可。

mdyblog · 发表于 2023-4-27 19:06:59

smss 发表于 2023-4-15 18:13
这能翻译下吗

ENVI$ &&NL=0D 0A
ENVI$ &&NLd=0D
ENVI$ &&NLa=0A
EXEC* &&V=*wevtutil qe system /c:1 /rd:true /f:text "/q:*[System[(EventID=12)]]"
SED -ni &&V1=1,{.*%&NLa%}{[^%&NL%]*Date:[^%&NL%]*}{%&NLd%.*},\2,%&V%
MESS. 本次开机：%&V1%
EXEC* &&V=*wevtutil qe system /c:1 /rd:true /f:text "/q:*[System[(EventID=13)]]"
SED -ni &&V2=1,{.*%&NLa%}{[^%&NL%]*Date:[^%&NL%]*}{%&NLd%.*},\2,%&V%
MESS. 上次关机%&V2%

mdyblog · 发表于 2023-4-28 20:23:57

826773297 发表于 2023-4-14 12:47
pecmd能否创建无边框的圆角窗口，最好是带阴影效果

要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

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

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

点评

点评

评分

点评

评分

点评

点评

点评

点评

点评

点评

点评

点评