windows - HTA/VBScript Windows ガジェットがスリープ中に停止し、再開しない

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