October 03, 2007

何がしかの理由で解除できないスクリーンセーバーが起動されてしまうことが、稀に都合が悪い時があります。大体、スクリーンセーバーを解除するときにアカウント情報を入力しないといけないので本人以外の人が元に戻せないことを回避したい時ではないかと思います。

そんな時に回避する仕掛けメモ

ファイル名：sendkey.vbs
--------------------------------------
Dim wsh
Set wsh = CreateObject("WScript.Shell")

while 1
wscript.sleep 300000
wsh.Sendkeys("\")
wend
--------------------------------------
5分おきに、\キーが送られます。エディタなどにフォーカスがあると\が入力されるので、処理としては非常にイマイチです。

作成したスクリプトをダブルクリックすると実行されます。
タスクマネージャに「wscript」が存在していたら動作中です。

終了する場合は昔のVBScriptウイルスさながら、タスクマネージャでWScriptを強制終了させることで終わります。

他に良い手があったら教えてください。

■同じカテゴリ[会社活動]のエントリー
>>前の記事 人は必ずあなたより考えていないから。
<<次の記事 自分のプレゼンが面白すぎる件

pookmark newsing it! はてなブックマーク

End Of 「スクリーンセーバーを起動させないプログラム」 （はてなスター）

■このblogの書き込み最新３件
AmazonのkindleとiTunes Store iPhoneのイノベーション、プラットフォームにうまく載れる人たち 何故、Linuxはデスクトップで普及していないのか？を読んで。