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

mdyblog

shmoss 发表于 2022-7-29 09:00
//RH编译时使用压缩算法打包。这会减小文件大小，也使查看和提取变得困难
编译png和bmp会让其不可见 pecmd ...

新版。
正常的BMP文件 用CMPS  -m 压缩。
添加到EXEDATA下。
然后就可以用了。

    IMAG IMAG1,L6T0W60H60,%&CurDir%\pecmd1.exe#1|EXEDATA      //BMP 用高级方式显示，会自动缩放

    IMAG IMAG1,L6T0W60H60,%&CurDir%\pecmd1.exe#1|EXEDATA*BITMAP   //BMP强制用BITMAP显示，不缩放。

mdyblog

826773297 发表于 2022-7-29 08:11
鼠标没法滚动吗

28F版
示例\swinbar-color.wcs

mdyblog

shmoss 发表于 2022-7-30 09:10
56KB压缩成8KB 太棒了但应该怎样切换呢
ENVI @图标.update=88:88:518:5::;pecmd1.exe#2%Z7%|EX ...

ENVI @图标.update=88:88:518:5::;pecmd1.exe#2%Z7%|EXEDATA*BITMAP
-------------------

1： 这次更新 打包后加大了2M 我在工具中内置了一个PECMD

可以内置到主程序本身#2， 不必须pecmd1.exe
^ENVI @图标.update=88:88:518:5::;#2|EXEDATA*BITMAP


2：但应该怎样切换呢
^ENVI @图标.update=88:88:518:5::;#2|EXEDATA*BITMAP
^ENVI @图标.update=88:88:518:5::;#3|EXEDATA*BITMAP

mdyblog

826773297 发表于 2022-7-30 08:29
不是绑定哪个窗口就滚动哪个吗

28G 滑块可以设定颜色

1. #code=950T936
   
2. @TEAM ENVI^ EnviMode=1| ENVI^ ForceLocal=1
   
3. //call GetDpiPercent
   
4. call @Page1
   
5. _sub Page1,L100T0W360H500,,,,,, %ScaleCMD%
   
6.     ENVI @this.bkcolor=0x000000
   
7.     LABE -left -trans WLAN,W100H30,WLAN,,ffffff,12:宋体**####3
   
8.     swin swin1:Win1:-SwinMain1,L1T20W335H400,,
   
9.     SBAR -color:0xFF0000:0x00FFFF:*SwinMain1   SBARV,L336T20W15H400,0:800:100:400,,
   
10. _end
    
11. _sub Win1,W335H800,,,,,, %ScaleCMD%
    
12.     ENVI @this.bkcolor=0x0000F0
    
13.     LABE -wx Label1,L150T0W10H800,0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijiklnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
    
14. _END

复制代码

SBAR去掉*   则  SWIN上不响应滚轮

mdyblog

泮安宁 发表于 2022-7-30 19:09
最新版，swin不用0x180，也不加SBAR滚动条，子窗口也会滚动，是不是bug

最新版 应该不会的。
#code=950T936
@TEAM ENVI^ EnviMode=1| ENVI^ ForceLocal=1
call @Page1
_sub Page1,L100T0W360H500,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -left -trans WLAN,W100H15,WLAN,,ffffff,12:宋体**####3
    swin swin1:Win1:-SwinMain1,L1T20W335H400,,
    //SBAR -color:0xFF0000:0x00FFFF:*SwinMain1   SBARV,L336T20W15H400,0:800:100:400,,  //NO*: SwinMain1 no WHEEL
_end

_sub Win1,W335H800,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x0000F0
    LABE -wx Label1,L150T0W10H800,0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijiklnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
_END

mdyblog

泮安宁 发表于 2022-7-30 21:06
28D版不会滚动

试试最新28H

mdyblog

泮安宁 发表于 2022-7-30 23:04
还是会滚动

请试试28I

mdyblog

那好

mdyblog

mdyblog 发表于 2022-7-31 14:26
那好

Win7任务栏进度条(28K版) 示例\TaskbarPbr-tst.WCS

_SUB TaskBarPer  // %__WinID%  进度数  总数
ENVI^ ForceLocal=1
  SET$ mpTaskBarlist3=*8 0
  SET &CLSCTX_INPROC_SERVER=0x1
  SET#$ &CLSID_TaskbarList=44 f3 fd 56   6d fd   d0 11   95 8a  00 60 97 c9 a0 90  //CLSID_TaskbarList={56fdf344-fd6d-11d0-958a-006097c9a090}
  SET#$ &IID_ITaskbarList3=91 FB 1A EA   28 9E   86 4B   90 E9  9E 9F 8A 5E EF AF  //IID_ITaskbarList3={EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF}
  lock .ole
  CALL $--ret:* --qd --16  OLE32.DLL,CoCreateInstance,&&hr,*CLSID_TaskbarList,#0,#%CLSCTX_INPROC_SERVER%,*IID_ITaskbarList3,*mpTaskBarlist3
  SET?ptr  mpTaskBarlist3=&&vpTaskBarlist3  //BIN==>字符串形式vpTaskBarlist3
  IFEX  #[ 0<>%&hr% | 0=%vpTaskBarlist3% ], EXIT
  SET?ptr  %vpTaskBarlist3%=&&Vtbl3
  ^SET?ptr  %Vtbl3%=&&Release:(%ptrlen%*2)
  ^SET?ptr  %Vtbl3%=&&HrInit:(%ptrlen%*3)
  ^SET?ptr  %Vtbl3%=&&SetProgressValue:(%ptrlen%*9)
  ^SET?ptr  %Vtbl3%=&&SetProgressState:(%ptrlen%*10)
  CALL $--ret:&&rs --qd#  #,%HrInit%,%vpTaskBarlist3%
  IFEX #[ 0<=%~2 & %~2<=0xF & ''='%~3' ], ^CALL $--ret:&&rs --qd#  #,%SetProgressState%,%vpTaskBarlist3%,%~1,%~2
  IFEX #[ 0<=%~2 & 0<%~3 ],!! ^CALL $--ret:&&ri --qd:##<<  #,%SetProgressValue%,%vpTaskBarlist3%,%~1,%~2,%~3
  CALL $--ret:&&ri --qd#  #,%Release%,%vpTaskBarlist3%  //释放COM
_END

----------------
TaskBarPer   WinID  进度数  总数
TaskBarPer   WinID  0   //取消
TaskBarPer   WinID  1   //滚动
TaskBarPer   WinID  2   //正常颜色
TaskBarPer   WinID  4   //红色
TaskBarPer   WinID  8   //暂停

  
测试
WIN1
_SUB WIN1,W730H254,任务栏进度条演示,
    TIME -t:1 T1,0,TEAM TaskBarPer %__WinID%  40 100|  WAIT 1000| TaskBarPer %__WinID%  80  100|  WAIT 1000| TaskBarPer %__WinID%  100 100|  WAIT 2000| TaskBarPer %__WinID%  0
_END

mdyblog

826773297 发表于 2022-8-1 12:57
如何知道每个网卡连接的无线名

PCIP ? IP,MASK,GW,DNS,0?NAME,MAC,LINK   
MESS  [%LINK%]

PCIP ? IP,MASK,GW,DNS,1?NAME,MAC,LINK
PCIP ? IP,MASK,GW,DNS,2?NAME,MAC,LINK
...   

mdyblog

826773297 发表于 2022-8-1 12:57
如何知道每个网卡连接的无线名

无线名  ???

mdyblog

红毛樱木 发表于 2022-8-1 16:03
已链接的吗？

WLAN_AVAILABLE_NETWORK_CONNECTED

ADSL-wlan  ,,?list,&&V
MESS. %&V%

其中：
CALC #Connected=%Flags% & 1  

//CALC #HasProfile=%Flags% & 2  

参考：https://docs.microsoft.com/zh-cn/windows/win32/api/wlanapi/ns-wlanapi-wlan_available_network?redirectedfrom=MSDN

mdyblog

826773297 发表于 2022-8-2 09:51
这个很详细，新版有加入吗

一直都有的。

mdyblog

826773297 发表于 2022-8-2 10:00
怎么连接已经输入过密码的无线

                DOT11_SSID dot11Ssid = { 0 };
                memcpy(dot11Ssid.ucSSID, account, strlen(account) + 1);
                dot11Ssid.uSSIDLength = strlen(account);

                WLAN_CONNECTION_PARAMETERS connectionParameters;
                memset(&connectionParameters, 0, sizeof(connectionParameters));
                connectionParameters.pDot11Ssid = &dot11Ssid;
                connectionParameters.wlanConnectionMode = wlan_connection_mode_profile;
                connectionParameters.strProfile = wideSsid;   /* clear 可以填NULL */  //Unicode of account(SSID)
                connectionParameters.dot11BssType = dot11_BSS_type_infrastructure;//dot11_BSS_type_independent;   /* msdn说可以dot11_BSS_type_any，实测不行 */
                connectionParameters.pDesiredBssidList = NULL;
                connectionParameters.dwFlags = 0; /* WLAN_CONNECTION_ADHOC_JOIN_ONLY */

                Sleep(300);

                value = WlanConnect(m_handle, &(m_infoList->InterfaceInfo[0].InterfaceGuid),
                        &connectionParameters, NULL);

mdyblog

826773297 发表于 2022-8-2 10:00
怎么连接已经输入过密码的无线

28N版
ADSL-wlan  SSID,,start

mdyblog

mdyblog 发表于 2022-8-2 12:34
28N版
ADSL-wlan  SSID,,start

感觉PECMD.EXE本身不用增加功能了， 免得把PECMD.EXE体积搞大了。
直接用API脚本来实际增加功能。

mdyblog

826773297 发表于 2022-8-2 10:00
怎么连接已经输入过密码的无线

前面有谁问过  判断连接互联网
有API：
//#include "netlistmgr.h"
bool IsConnectedToInternet()
{
bool bol = false; //是否联网,联网 true,不联网 false   
CoInitialize(NULL);
//  通过NLA接口获取网络状态
IUnknown *pUnknown = NULL;
INetworkListManager *pNetworkListManager = NULL;
HRESULT Result = CoCreateInstance(CLSID_NetworkListManager, NULL, CLSCTX_ALL, IID_IUnknown, (void **)&pUnknown);
if (SUCCEEDED(Result))
{
  if (pUnknown)
   Result = pUnknown->QueryInterface(IID_INetworkListManager, (void **)&pNetworkListManager);
  if (SUCCEEDED(Result))
  {
   VARIANT_BOOL IsConnect = VARIANT_FALSE;
   if (pNetworkListManager)
    Result = pNetworkListManager->get_IsConnectedToInternet(&IsConnect);
   if (SUCCEEDED(Result))
   {
    bol = (IsConnect == VARIANT_TRUE) ? true : false;
   }
  }
  if (pNetworkListManager)
   pNetworkListManager->Release();
}
if (pUnknown)
  pUnknown->Release();
CoUninitialize();
return bol;
}

可参照 TaskbarPbr-tst.wcs修改。

另外 判断是否有网络（不一定连上互联网）
    Result = pNetworkListManager->get_IsConnected

(&IsConnect);

参考资料：  https://docs.microsoft.com/zh-cn/windows/win32/api/netlistmgr/nf-netlistmgr-inetworklistmanager-get_isconnected

另外拷贝一份 VS2010-VC的头文件， 方便找数据结构，API，常数。

mdyblog

826773297 发表于 2022-8-2 12:49
ok，哪一栏是已经输入过密码的标识

hasProfile
CALC #HasProfile=%Flags% & 2  

mdyblog

826773297 发表于 2022-8-2 12:51
我放弃使用dpi了，采用盲猜模式，依赖更少

没事。
发上来。 有人用API写的位函数的。

mdyblog

freesoft00 发表于 2022-8-2 12:58
pecmd功能已经很多了。测试版都测试了小半年了。
稳定了也该转正了。

嗯

mdyblog

826773297 发表于 2022-8-2 12:59
有现成的接口吗

函数
IsConnectInternet  // BICon [bLCon]
目前用的简化写法，需要 {28o版} PECMD。
{28o版}\示例\IsConnectInternet.wcs  含文档
MSDN文档传到网盘了，方便找调用API需要的资料
=======================================
ENVI^ ForceLocal=1

IsConnectInternet &&InternetRet &&LocalRet
MESS Internet[%&InternetRet%]  LocalNet[%LocalRet%]

_SUB IsConnectInternet  // BICon [bLCon]
  SET &bIntnet=
  SET &bLConnect=
  SET$ &mpNetworkListManager=*8 0
  SET &CLSCTX_INPROC_SERVER=0x1
  CALC #&&CLSCTX_ALL=1|2|4|0x10
  SET#$ &CLSID_NetworkListManager=01 0C B0 DC  0F 57  9B 4A  8D 69  19 9F DB A5 72 3B //{DCB00C01-570F-4A9B-8D69-199FDBA5723B}
  SET#$ &IID_INetworkListManager=00 00 B0 DC  0F 57 9B 4A  8D 69  19 9F DB A5 72 3B  //{DCB00000-570F-4A9B-8D69-199FDBA5723B}
  SET &pNetworkListManager=0

  {*
    lock .ole
    CALL $--ret:* --qd --16  OLE32.DLL,CoCreateInstance,&&rs,*CLSID_NetworkListManager,#0,#%CLSCTX_ALL%,*IID_INetworkListManager,*mpNetworkListManager
    IFEX  #[ 0<>%&rs% ], EXIT -
    SET &get_IsConnectedToInternet=11  //函数序号
    SET &get_IsConnected=12  //函数序号
  
    SET#$  &IsConnect=*8 0
    FIND $%~1<>,
    {* ^CALL $--ret:&&rs --qd*  #,*&mpNetworkListManager.%get_IsConnectedToInternet%,IsConnect
        @IFEX #%rs%=0,!! @IFEX #%&IsConnect?short:0%<>0, SET bIntnet=1! SET SET bIntnet=0
    }
    FIND $%~2<>,
    {* CALL $--ret:&&rs --qd*  #,*&mpNetworkListManager.%get_IsConnected%,IsConnect
      @IFEX #%rs%=0,!! @IFEX #%&IsConnect?short:0%<>0, SET bIntnet=1! SET SET bIntnet=0
    }
    CALL $--ret:&&rs  #,*&mpNetworkListManager.2 //2:Release() 释放COM
  }
  ENVI-ret %~1=%bIntnet%
  FIND $%~2<>, ENVI-ret %~2=%bLConnect%
_END

mdyblog

Anson4 发表于 2022-8-2 21:45
这几天发现一个问题：当 TABL 的表头和内容分开各自设置对齐之后，就不能用鼠标调整列宽了。应该是从 PECMD ...

28P

mdyblog

红毛樱木 发表于 2022-8-3 00:41
这个是很久之前就想要的COM接口调用？
------------------------
里面的格式备注，是否能更详细些？

对。

CALL $...    #,*&COM指针PE变量.COM函数索引,COM参数1，COM参数2...
或
CALL $...    #,COM指针PE数值.COM函数索引,COM参数1，COM参数2...
SET?ptr   &COM指针PE变量=COM指针PE数值   //2进制转可见的数字串， 提前翻译出来。所以后者不用加个*了。

查找 SDK文档的 COM结构的 C结构说明， 会列出全部 函数， 索引从0 开始。
注意， 参数按C++格式写， 默认的THis指针， 不用再写了，方便，PECMD自己处理。

    SET &get_IsConnectedToInternet=11  //函数序号
   
    CALL $--ret:&&rs --qd*  #,*&mpNetworkListManager.%get_IsConnectedToInternet%,IsConnect


其实这不仅针针对COM， 适用 所有C++ 虚函数调用。COM均是虚函数。

mdyblog

Anson4 发表于 2022-8-3 00:21
问题已解决，感谢更新！
不过，此时发现了另一个问题：当 EDIT 控件设置了背景色时，如果使用某些字体比 ...

最简单演示代码

mdyblog

Anson4 发表于 2022-8-3 10:10
使用字体 Segoe UI 或者 微软雅黑 后：
1. LIST 控件的高度变大
2. EDIT 控件的背景色左右两端超出边界 ...

哦。 和 字体 有关
怪不得， 我自己的代码复现不了。
与 背景色 无关

ENVI @This.Font=9:宋体
就不会。
这个字体 有外溢

mdyblog

Anson4 发表于 2022-8-3 10:35
还有个问题让我很是困扰：TABL 的内容偶尔会出现某一行内容乱码，字体变形等现象，没有发现什么规律，也 ...

是不是 动态 删除行的时候？

mdyblog

Anson4 发表于 2022-8-3 10:37
但是有些版本不会出现这个现象，比如 PECMD2012.1.88.05.88Stable-220527G

所有版本都会的
这个版本 也会的， -vcenter + 特殊字体，就会溢出：


不用 -venter就不会。

mdyblog

Anson4 发表于 2022-8-3 10:10
使用字体 Segoe UI 或者 微软雅黑 后：
1. LIST 控件的高度变大
2. EDIT 控件的背景色左右两端超出边界 ...

28G版
-vcenter:-6
表示 预留字体高度的1/6.

mdyblog

Anson4 发表于 2022-8-3 13:35
28Q可以了，这是个新的参数还是 -vcenter 改成 -venter 了呢？
我差点看成了 -vcenter:-6

是 -vcenter:-6
就是原来的 -vcenter 扩展了下

mdyblog

Anson4 发表于 2022-8-3 14:29
明白了，可是 -vcenter:-6 不起作用，而 -venter:-6 可以。

新版PECMD才可以 -vcenter:-6。
应该是 -vcenter:-6


-venter:-6 的作用在于 把  -vcenter也高没了。 没 -vcenter， 不会出溢出问题。
相当于：
    EDIT EDIT1,L37T71W160H26, EDIT1,,,0xFF00#0xFFFFFF
这样不会溢出。