autohotkey v2でケアシステムの操作を簡単にする

操作を簡単にするため、autohotkey v2にたどり着いた。できなかったことができるので、これを採用しようと思う。例えば、ボタンおすと、リプレイバック２０秒動画の作成さいせいまでいくやつ。ボタンを押すと、動画けすとか、コマ送りをマウスでやるとか。できそうだぞ

山形市の天気は、晴れ。29.1/11.5。

2026年5月16日（土曜日）

#HotIf winactive("VLC")	;VLCでの操作コントロール

;up::Send "{Space}{up}"
;down::Send "{Space}{down}"
;left::Send "{Space}{down}"



;マウス右でコマ送り
$rbutton::
{
	if !keywait("rbutton","T0.1")
	{
		while getkeystate("rbutton","P")
		{
			Send "{right}"
			sleep 50
		}
	}
}


#HotIf

;閉じる
~$pgdn::
{
	if !keywait("pgdn","T0.9")
	{
	  if winexist( "VLC" )
	  { 
	   winactivate "VLC"
	   Send "!{F4}"
  	   sleep 1000
  	   winactivate "Videos"
	  }
	}
}
^!y::
{
	  if winexist( "VLC" )
	  { 
	   winactivate "VLC"
	   Send "!{F4}"
  	   sleep 1000
  	   winactivate "Videos"
	  }
}

;作成
~$end::
{
	if !keywait("end","T0.9")
	{
		winactivate "OBS"
		Send "^!r"
 		winactivate "Videos"
;  		sleep 4000
		result := msgbox("２０秒前の映像がでます " , , "0 T4")
		result := msgbox("開始します" , , "0 T1")
		Send "{end}"
		Send "{enter}"
 		winwait "VLC"
 		winactivate "VLC"
;		Send "{space}"
	}
}
;作成
^!t::
{
		winactivate "OBS"
		Send "^!r"
 		winactivate "Videos"
;  		sleep 4000
		result := msgbox("２０秒前の映像がでます " , , "0 T4")
		result := msgbox("開始します" , , "0 T1")
		Send "{end}"
		Send "{enter}"
 		winwait "VLC"
 		winactivate "VLC"
;		Send "{space}"
}

;削除
Rshift::
{
	if Keywait( "Rshift","T0.9" ){ 
		Send "{Rshift}"
	} else {
		result := msgbox("動画を削除 " , , "0 T4")
		winactivate "Videos"
		Send "{home}"
		Send "+{end}"
		Send "+{up}"
		Send "+{up}"
		Send "{del}" 
		winactivate "Videos"
	}
	Return
}

関連キーワード

関連記事

令和8年5月16日

• 平成37年5月16日
• 昭和101年5月16日
• 旧3月30日
• 皐月

今日は何の日

• 平和に共存する国際デー
• 国際光デー
• 旅の日
• 性交禁忌の日
• オリーゼの日
• 抗疲労の日
• HAE DAY
• 工事写真の日
• トロの日
• 十六茶の日
• いい色髪の日
• オコパー・タコパーの日
• 同窓会の日
• 透谷忌
• 愛鳥週間（バードウィーク）
• こちらから引用