任务栏系统监测 | CPU/内存占用 | 磁盘读写 | 网卡速率 | 天气

♂隐 · 发表于 2024-4-12 08:28:14

这些功能是真的屌！研究这些的都是一些大佬啊！

jingyi11023995 · 发表于 2024-4-12 00:21:35

WMI，可以研究一下，有个工具，请查看我的一个求助贴。

.版本 2

.子程序枚举类属性
.局部变量 objWbemLocator, 对象
.局部变量 objWMIService, 对象
.局部变量 colClasses, 对象
.局部变量 Properties, 对象
.局部变量 NewEnum, 对象
.局部变量 objClass, 对象
.局部变量 hreslut, 整数型
.局部变量 Variant, 变体型
.局部变量 pcFetched, 整数型
.局部变量 value, 文本型

.如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\WMI”, , , , , , )  ' 连接服务器
.如果真 (objWMIService.是否为空 () ＝假)
      colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM MSAcpi_ThermalZoneTemperature”)
      .如果真 (colClasses.是否为空 () ＝假)
         NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )
         .如果真 (NewEnum.是否为空 () ＝假)
            .循环判断首 ()
                  hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)
                  .如果真 (hreslut ＝ 0)
                     objClass ＝ Variant.取对象 ()
                     Properties ＝ objClass.读对象型属性 (“Properties_”, )
                     value ＝ Properties.对象型方法 (“Item”, “CurrentTemperature”).读文本属性 (“value”, )
                     调试输出 (value)

                     objClass.清除 ()
                     Variant.清除 ()
                  .如果真结束
                  处理事件 ()
            .循环判断尾 (pcFetched ＝ 1)
            NewEnum.清除 ()
         .如果真结束
         colClasses.清除 ()
      .如果真结束
      objWMIService.清除 ()
.如果真结束
objWbemLocator.清除 ()

jingyi11023995 · 发表于 2024-4-12 00:13:52

鲁大师翻版……

996939439 · 发表于 2024-4-11 22:17:47

新技能已get√

hackerdell · 发表于 2024-4-11 19:37:48

任务栏系统监测 | CPU/内存占用 | 磁盘读写 | 网卡速率 | 天气

13618437957 · 发表于 2024-4-11 19:27:18

感谢分享，很给力！~

淘淘淘淘淘淘 · 发表于 2024-4-11 19:11:50

哇哦，比现在用的这个厉害

没有字的情书 · 发表于 2024-4-11 18:58:33

这个界面可以的

fengshou · 发表于 2024-4-11 18:00:14

支持开源，感谢楼主

hack315 · 发表于 2024-4-11 17:48:14

感谢分享，很给力！~

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

[易语言软件开源] 任务栏系统监测 | CPU/内存占用 | 磁盘读写 | 网卡速率 | 天气