Dim $temp = "" $objWMIService = ObjGet("winmgmts:\\.\root\WMI") $colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature") $temp = "" For $objItem in $colItems $temp &= "CurrentTemperature: " & ($objItem.CurrentTemperature - 2732) / 10 & "°C" & @LF Next ToolTip(StringTrimRight($temp,1),100,0) $objWMIService = 0 if $temp>25°C then msgbox (0,0,"温度高于25度")
举报
Dim $temp = "" $objWMIService = ObjGet("winmgmts:\\.\root\WMI") $colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature") $temp = "" For $objItem in $colItems $temp &= "CurrentTemperature: " & ($objItem.CurrentTemperature - 2732) / 10 & "°C" & @LF Next ToolTip(StringTrimRight($temp,1),100,0) $objWMIService = 0 $digital = StringRegExp($temp,'\d+',1) if $digital[0]>25 Then msgbox (0,0,"温度高于25度")
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-2-24 02:10 , Processed in 0.079883 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.