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

826773297 · 发表于 2022-7-30 19:38:25

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

今天，你低调了没

826773297 · 发表于 2022-7-30 19:39:07

mdyblog 发表于 2022-7-30 14:19
28G 滑块可以设定颜色

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

好的

泮安宁 · 发表于 2022-7-30 19:45:31

826773297 发表于 2022-7-30 19:38
今天，你低调了没

看你表演

mdyblog · 发表于 2022-7-30 19:47:02

泮安宁发表于 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

泮安宁 · 发表于 2022-7-30 21:06:46

mdyblog 发表于 2022-7-30 19:47
最新版应该不会的。
#code=950T936
@TEAM ENVI^ EnviMode=1| ENVI^ ForceLocal=1

28D版不会滚动

泮安宁 · 发表于 2022-7-30 22:12:52

m大，pecmd可以在任务栏显示文字吗，图示箭头所指的ABC的位置

mdyblog · 发表于 2022-7-30 22:32:35

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

试试最新28H

泮安宁 · 发表于 2022-7-30 23:04:02

mdyblog 发表于 2022-7-30 22:32
试试最新28H

还是会滚动

mdyblog · 发表于 2022-7-31 06:48:30

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

请试试28I

泮安宁 · 发表于 2022-7-31 08:17:43

mdyblog 发表于 2022-7-31 06:48
请试试28I

28J可以了

mdyblog · 发表于 2022-7-31 14:26:52

那好

mdyblog · 发表于 2022-7-31 21:36:21

本帖最后由 mdyblog 于 2022-8-1 08:34 编辑

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

826773297 · 发表于 2022-8-1 12:47:28

pecmd是否有"忘记网络"/获取已输入密码的无线名称/已输入密码的无线直接连接功能

826773297 · 发表于 2022-8-1 12:57:27

如何知道每个网卡连接的无线名

mdyblog · 发表于 2022-8-1 14:38:27

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 · 发表于 2022-8-1 14:38:51

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

无线名 ???

红毛樱木 · 发表于 2022-8-1 16:03:37

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

已链接的吗？

WLAN_AVAILABLE_NETWORK_CONNECTED

不知道是不是PECMD里的bConnectabl，要自己翻微软的官方文档。应该是这个结构体里的_WLAN_AVAILABLE_NETWORK

826773297 · 发表于 2022-8-1 21:10:35

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

WLAN_AVAILABLE_NETWORK_CONNECTED

对，已连接的

826773297 · 发表于 2022-8-1 21:11:36

mdyblog 发表于 2022-8-1 14:38
PCIP ? IP,MASK,GW,DNS,0?NAME,MAC,LINK
MESS [%LINK%]

pcip可以判断是否连接，无法判断到底连接的那个无线

mdyblog · 发表于 2022-8-1 23:10:42

本帖最后由 mdyblog 于 2022-8-1 23:11 编辑

红毛樱木发表于 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

826773297 · 发表于 2022-8-2 09:51:14

mdyblog 发表于 2022-8-1 23:10
ADSL-wlan ,,?list,&&V
MESS. %&V%

这个很详细，新版有加入吗

mdyblog · 发表于 2022-8-2 09:55:09

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

一直都有的。

826773297 · 发表于 2022-8-2 10:00:00

mdyblog 发表于 2022-8-2 09:55
一直都有的。

怎么连接已经输入过密码的无线

mdyblog · 发表于 2022-8-2 11:19:03

本帖最后由 mdyblog 于 2022-8-2 11:58 编辑

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 · 发表于 2022-8-2 12:34:28

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

28N版
ADSL-wlan SSID,,start

mdyblog · 发表于 2022-8-2 12:36:11

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

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

mdyblog · 发表于 2022-8-2 12:48:41

本帖最后由 mdyblog 于 2022-8-2 16:57 编辑

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，常数。

826773297 · 发表于 2022-8-2 12:49:48

mdyblog 发表于 2022-8-2 12:36
感觉PECMD.EXE本身不用增加功能了，免得把PECMD.EXE体积搞大了。
直接用API脚本来实际增加功能。

ok，哪一栏是已经输入过密码的标识

mdyblog · 发表于 2022-8-2 12:51:29

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

hasProfile
CALC #HasProfile=%Flags% & 2

826773297 · 发表于 2022-8-2 12:51:33

mdyblog 发表于 2022-8-2 12:48
前面有谁问过判断连接互联网
有API：
bool IsConnectedToInternet()

我放弃使用dpi了，采用盲猜模式，依赖更少

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

浏览过的版块