请教，语句问题

qq451763407 · 发表于 2012-7-29 16:59:46

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度")

请教下，上面那里错了，如何修改才能让它条件成立

xms77 · 发表于 2012-7-29 17:39:41

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度")

回复 1# qq451763407
字符串不好比较真实的大小，要转化为数字来比较。

魔导 · 发表于 2012-7-29 18:27:06

呵呵，很像我哦。

lpxx · 发表于 2012-7-29 18:37:40

if $temp>25°C then

qq451763407 · 发表于 2012-7-30 08:22:28

多谢二楼，问题解决

		自动登录	找回密码
密码			加入

[AU3基础] 请教，语句问题

相关帖子