最近はずっとPCにかじりついている。

あれやこれやサーバの設定をいじってみたり、ドキュメントを作ってみたり、勉強したりしているのだが、気がつくと何時間も経って、体がカチコチになっていることが多い。

なので、１時間おきにこういうダイアログを出すようにした。

デフォルトボタンがキャンセルに指定されているので、勢いでEnterキーを押したりしても、OKを押すまで何度でも出てくる。システムモーダルなので、他の画面をクリックしても常に前面に表示されて隠れることがない。

ということで、単純だがけっこう役に立っている。VBSで作った簡単なプログラムなので、ここに晒しておこう。

While _
 MsgBox("休憩しましょう" & vbCR & "疲れる前に休みましょう", _
 vbExclamation +vbOKCancel + vbDefaultButton2 + vbSystemModal, _
 "休憩時間です") <> 1
Wend