HTA / VBScript Windows Gadget在睡眠状态下停止并且不会恢复

Question

我有一个我创建的Windows小工具，它在一个子中执行一个函数，该子函数是定时的（当前为10秒），它会检查每个10秒然后等待并循环再次执行该函数，但是，当循环停止时PC出现故障，它会停止运行并且不会恢复，我怎样才能阻止这种情况发生在VBScript / HTA中？

<SCRIPT LANGUAGE="VBScript">
    Option Explicit
    Dim iTimerID, RefreshList
    Sub
        Window_OnLoad RefreshList
        iTimerID = window.setInterval("RefreshList", 10000, "VBScript")
    End Sub
</SCRIPT>

Sub RefreshList {do something} End Sub