|
分類:[VB6以前]
分類:[VB6以前]
はじめまして、初めて書き込みをさせていただきます。 どうぞよろしくお願いいたします。
開発言語:VB6.0 OS:Windows server 2003
現在あるシステムの中で バッチ処理を終了後、自動でシャットダウンするような処理を 行いたいと思っております。 しかしながら商用環境の制約で10分でスクリーンセーバの ロックがかかってしまいます。 スクリーンセーバーのロックがかかるとうまくシャットダウンが かかりません。
そこで処理の先頭でスクリーンセーバーを解除し 処理の最後で再設定をするプログラムを作りたいと思っておりますが Windows server 2000ではうまく行くのですがWindows server 2003では うまくできません。
何か良い方法はないでしょうか? よろしくお願いいたします。
**********プログラム********** Option Explicit
Private Sub Command1_Click(Index As Integer)
Select Case Index Case 0 'スクリーンセーバを有効にする Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, True, 0, SPIF_SENDWININICHANGE) Case 1 'スクリーンセーバを無効にする Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, False, 0, SPIF_SENDWININICHANGE) End Select
End Sub
|