2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« スクリプトでスリープを抑止する。 | トップページ | ショートカットに相対パスを指定する。(その2) »

2010年3月11日 (木)

スクリプトでスリープを抑止する。(その2)

もちろん、SetThreadExecutionState()関数を使う方法もあります。

SetThreadExecutionState.vbs

Set Excel=CreateObject("Excel.Application")
'Const ES_SYSTEM_REQUIRED=1
'Const ES_DISPLAY_REQUIRED=2
'Const ES_CONTINUOUS=-2147483648
MsgBox Hex(Excel.ExecuteExcel4Macro("CALL(""kernel32"",""SetThreadExecutionState"",""JJ"",-2147483647)")),,"Sleep抑止中(システム)"
'MsgBox Hex(Excel.ExecuteExcel4Macro("CALL(""kernel32"",""SetThreadExecutionState"",""JJ"",-2147483646)")),,"Sleep抑止中(モニター)"
'MsgBox Hex(Excel.ExecuteExcel4Macro("CALL(""kernel32"",""SetThreadExecutionState"",""JJ"",-2147483648)")),,"Sleep抑止解除"

« スクリプトでスリープを抑止する。 | トップページ | ショートカットに相対パスを指定する。(その2) »