小编Zod*_*iak的帖子

我想做的是编写一个脚本，当我的计算机电池电量降至 20% 时，该脚本会创建一个消息框/弹出窗口。我希望消息框仅出现一次\xe2\x80\x94，在单击“确定”后，它不应再次出现，除非我为计算机充电并让它再次耗尽 20%。

问题是，当我的电池电量低于 20% 时，我的代码会导致消息框每隔几分钟出现一次。我的代码如下：

set oLocator = CreateObject("WbemScripting.SWbemLocator")\nset oServices = oLocator.ConnectServer(".","root\\wmi")\nset oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")\n \nfor each oResult in oResults\n    iFull = oResult.FullChargedCapacity\nnext\n\nwhile (1) \n    set oResults = oServices.ExecQuery("select * from batterystatus")\n    for each oResult in oResults\n        iRemaining = oResult.RemainingCapacity\n        bCharging = oResult.Charging\n    next\n    iPercent = Round((iRemaining / iFull) * 100)\n    \n    if iRemaining and not bCharging and (iPercent < 21) and (iPercent > 10) Then msgbox "Your battery power is low (" …