スクリーンセイバーの解除方法

質問

画面がスクリーンセイバーの実行状態で、ある時間がきたらそのスクリーンセイバーをVBプログラムで解除して通常の画面に戻したいのですが、方法を教えてください。

回答No.1

taka_tetsu · ベストアンサー

>ある時間がきたら

ここが重要ですね。

・ある時刻になったら
・スクリーンセイバーが起動してから特定の時間が経過したら

のどちらでしょう？
下でしたらちょっと大変です。

解除するにはSendKeysで適当なキーを送れば普通のスクリーンセイバーは解除できます。
＃ロックがかかるものはだめですけど。

お礼

早々の回答ありがとうございました。

今確認をしているのですが、VBのTimerを使用してある時刻になったら解除しようとしています。
スクリーンセイバー状態になるとTimerは止まってしまうのでしょうか？

回答No.2

taka_tetsu

>スクリーンセイバー状態になるとTimerは止まってしまうのでしょうか？

そんなことはないはずですけど、それぐらいでしたら自分で試したほうが早いかと。

お礼

回答ありがとうございます。
今以下のようなPGを組んで試しているのですが上手くいきません。スクリーンセイバー状態で、電卓は起動し数字の"5"も入るのですが解除されません。
すいませんがアドバイスを下さい。(Win2000,VB6)

Private Sub Timer1_Timer()
Dim ReturnValue
Cnt = Cnt + 1
If Cnt = 20 Then
ReturnValue = Shell("calc.exe", 1)
AppActivate ReturnValue
SendKeys "5"
End If
End Sub