サボってないのに退席中表示になるのを回避する方法[Teams,Slack,Skype]

今は使ってないのですが以前仕事でSKYPEを使っていたことがあります。あれ、パソコンを操作しないでいると表示が「退席中」になるんですね。数分間PCを操作しないと、「連絡可能」→「退席中」に自動で表示が変わっていました。電話中でパソコン操作してなかったりすると退席中になり、さぼっていると言われたりしていました。
この退席中表示はTeamsやSlackにもあるみたいですね。
会社でTeamsが導入されそうなので回避方法を考えました。

ダブルクリックするだけ

次のZIPファイルをダウンロードして解凍すると中にSendKeyTest.txtが入っています。このファイルの拡張子をtxtからvbsに変えてダブルクリックします。これで退席中にならなくなります。
（サンプルなので9時から17時30分の間だけ動作します）

仕組み

9時から17時30分の間、
100秒に一回、自動的にShiftキーとF15キーを同時押ししています。
9時から17時30分の都合が悪ければ解説のところを読んでSendKeyTest.txtをメモ帳で開いて時間のところを書き換えてください。

中身

Dim currentHour, currentMinute
Do
 ' 現在時刻を取得
 currentHour = Hour(Now)
 currentMinute = Minute(Now)

 ' 午前9時から17時30分の間に処理を実行
 If currentHour >= 9 And currentHour < 17 Or (currentHour = 17 And currentMinute <= 30) Then
  CreateObject("WScript.Shell").SendKeys "+{F15}",True 'Shift + F15を送信
  WScript.Sleep 100000 ' 100秒（100,000ミリ秒）待機
 Else
  WScript.Echo " 時間外のため処理を終了します "
  Exit Do ' ループを終了
 End If
Loop

解説

If currentHour >= 9 And currentHour < 17 Or (currentHour = 17 And currentMinute <= 30) Then

のところが動作時間になっています。
例えば10時から15時25分に変えたかったら
If currentHour >= 10 And currentHour < 15 Or (currentHour = 15 And currentMinute <= 25) Then

に書き換えて保存すればOK

他の方法 マウスを使う

　マウスを小刻みに動かす方法もあります。

#リモートワークの日常 #やってみた #作ってみた #VBS #テレワーク #Teams #Slack #Skype