ファンクションキーとか分かんねーしMacのやつに変えてやったよ[iTunes][AutoHotkey]

2020年7月14日 20:11

バックグラウンドでも再生とか早送りとかPCの音量調節できるやつ。超便利。F7からF12まで潰してやった。
AutoHotkeyで作成。使い方とかは一個前のノートと同じ。

（7/15 修正）
・iTunes以外にも対応（巻き戻し・早送り機能は無し）
　　　iTunes起動時はiTunesを優先して制御
・実行時に自動でiTunesが立ち上がることのないようにした
・音量変化時に音量を表示

ホットキー

F7：前の曲へ（長押し：巻き戻し）
F8：再生・停止
F9：次の曲へ（長押し：早送り）
F10：消音・消音解除
F11：音量を下げる（Windowsの出力：マスター）
F12：音量を上げる（同上）

スクリプト

WaitTime = 0.4	;長押し判定(s)

F7::
	IfWinExist, ahk_exe iTunes.exe
	{
		iTunes := ComObjCreate("iTunes.Application")
		KeyWait, F7, T%WaitTime%
		if (ErrorLevel){
			iTunes.Rewind()
			KeyWait, F7
			iTunes.Resume()
			ObjRelease(iTunes)
			iTunes := ""
			return
		}
		iTunes.BackTrack()
		ObjRelease(iTunes)
		iTunes := ""
		return
	}
	Send, {Media_Prev}
	return

F8::Media_Play_Pause

F9::
	IfWinExist, ahk_exe iTunes.exe
	{
		iTunes := ComObjCreate("iTunes.Application")
		KeyWait, F9, T%WaitTime%
		if (ErrorLevel){
			iTunes.FastForward()
			KeyWait, F9
			iTunes.Resume()
			ObjRelease(iTunes)
			iTunes := ""
			return
		}
		iTunes.NextTrack()
		ObjRelease(iTunes)
		iTunes := ""
		return
	}
	Send, {Media_Next}
	return

F10::Volume_Mute

F11::Volume_Down

F12::Volume_Up