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

smss

太好了 又可以少写不少代码

mdyblog

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

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

826773297

mdyblog 发表于 2022-7-18 08:52
动态代码
前面加^, 会先解释一遍。
可多个^,解释多遍

m大帮忙翻译一下这个api
https://www.cnblogs.com/kybs0/p/12971567.html

红毛樱木

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

IsNetworkAlive这个已经被弃用了吧？

826773297

红毛樱木 发表于 2022-7-18 15:52
IsNetworkAlive这个已经被弃用了吧？

这个很符合我的要求，现在还能用

红毛樱木

826773297 发表于 2022-7-18 16:10
这个很符合我的要求，现在还能用

SET$# &&lpdwFlags=*4 0
CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,*&lpdwFlags
SET?long lpdwFlags=&&pdwFlags
MESS. %&pdwFlags%<%&IsNetworkAliveRet%>
我这里没数据
------------------------------------------------------
写错了,   API没带上

1. SET$# &&lpdwFlags=*4 0
   
2. CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,IsNetworkAlive,*&lpdwFlags
   
3. SET?long lpdwFlags=&&pdwFlags
   
4. MESS. %&pdwFlags%<%&IsNetworkAliveRet%>

复制代码

826773297

红毛樱木 发表于 2022-7-18 16:11
SET$# &&lpdwFlags=*4 0
CALL $--bool --ret:&&IsNetworkAliveRet Sensapi.dll,*&lpdwFlags
SET?long l ...

没数据吗。那有点难搞

mdyblog

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

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

复制代码

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

826773297

mdyblog 发表于 2022-7-18 18:16
简单情况， 没有虚拟网卡等。

好的。感谢m大

826773297

mdyblog 发表于 2022-4-12 18:52
下载最新 PECMD2012.1.88.05.86Stable-220331B.7z
ADSL-wlan  ,,stop,
挂断当前无线连接

ADSL-wlan ,,stop,wifi
这样不能断开无线连接吗，wifi为无线名

mdyblog

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

826773297

mdyblog 发表于 2022-7-18 21:45
ADSL-wlan ,,stop   //当前连接
或
ADSL-wlan  ,,stop,Atheros AR5B97 Wireless Network Adapter

好的，已经解决了

826773297

请教一下m大，adsl-wlan获取的无线列表，加密方式读哪个比较准确

mdyblog

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

826773297

mdyblog 发表于 2022-7-19 13:43
ADSL-wlan  ,,list,&&v
MESS. %&v%

好的

826773297

mdyblog 发表于 2022-7-19 13:43
ADSL-wlan  ,,list,&&v
MESS. %&v%

请教一下无边框的窗口可以加阴影效果吗

mdyblog

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

？？？？

826773297

527104427 发表于 2022-6-5 12:39
swin貌似不能自适应DPI:

#code=950T936

5大这个问题解决了吗，我也遇到了这个问题

826773297

mdyblog 发表于 2022-7-19 18:37
？？？？

m大看看swin命令不自适应dpi的问题，之前5大问过

mdyblog

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

新版

826773297

mdyblog 发表于 2022-7-19 23:00
新版

新版可以了，但是出现一个垂直滚动条，之前是项目多的时候才会出现

泮安宁

WIN
_SUB WIN,W500H300
    ITEM -nfocus item1,L40T100W200H30,ABC
_END

建立的按钮，当鼠标放上去的时候会闪几下，有办法解决吗

红毛樱木

泮安宁 发表于 2022-7-20 15:49
WIN
_SUB WIN,W500H300
    ITEM -nfocus item1,L40T100W200H30,ABC

仔细看了一下，好像是文字会闪？

泮安宁

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

对，按钮上的东西都会闪，不光文字，比如加上背景进度条，也会闪

mdyblog

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

给个最简单的演示例子，

mdyblog

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

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

826773297

mdyblog 发表于 2022-7-20 18:03
WIN
_SUB WIN,W500H300
    ITEM -nfocus item1,L40T100W200H30,ABC

#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

call GetDpiPercent
call @Page1

_sub Page1,w347 h297,,,,,, %ScaleCMD%
        swin swin1:Win1:-SwinMain1,l0 t0 w347 h205,,0x100
_end

_sub Win1,w347 h205,,,,:0xFFFFFF,, %ScaleCMD%
_end

_sub GetDpiPercent *
        call $user32.dll,SetProcessDPIAware
        call $--ret:hdc user32.dll,GetDC,#0
        call $--ret:LogPixels Gdi32.dll,GetDeviceCaps,#%hdc%,#90
        set ScaleCMD=-scalef:%LogPixels% -scale:%LogPixels%
_end

826773297

mdyblog 发表于 2022-7-20 17:59
给个最简单的演示例子，

只要给swin命令状态加垂直滚动条就会一直显示，不管项目多少

826773297

mdyblog 发表于 2022-7-20 17:59
给个最简单的演示例子，

之前是swin命令项目占满了才显示滚动条，现在是一直显示了

泮安宁

mdyblog 发表于 2022-7-20 18:03
WIN
_SUB WIN,W500H300
    ITEM -nfocus item1,L40T100W200H30,ABC

m大，这样虽然不闪了，但按钮视觉效果变了，能不能不闪，并且保持原来的显示效果