EnableExplicit

#VK_MEDIA_PREV_TRACK = $B1
#VK_MEDIA_NEXT_TRACK = $B0
#VK_MEDIA_PLAY_PAUSE = $B3
#VK_MEDIA_STOP = $B2
#VK_VOLUME_UP = $AF
#VK_VOLUME_DOWN = $AE
#VK_VOLUME_MUTE = $AD

Procedure SetAsyncKeyState_(Key)
  Protected KeyStroke.INPUT
  KeyStroke\type = 1
  KeyStroke\ki\wVk = Key
  KeyStroke\ki\wScan = 0
  KeyStroke\ki\dwFlags = 0
  KeyStroke\ki\time = 0
  KeyStroke\ki\dwExtraInfo = 0
  ProcedureReturn SendInput_(1, @KeyStroke, SizeOf(INPUT))
EndProcedure

;SetAsyncKeyState_(#VK_MEDIA_PREV_TRACK)
;SetAsyncKeyState_(#VK_MEDIA_NEXT_TRACK)
;SetAsyncKeyState_(#VK_MEDIA_PLAY_PAUSE)
;SetAsyncKeyState_(#VK_MEDIA_STOP)
;SetAsyncKeyState_(#VK_VOLUME_UP)
;SetAsyncKeyState_(#VK_VOLUME_DOWN)
SetAsyncKeyState_(#VK_VOLUME_MUTE)