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

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.清除 ()