PureBasic

Code : Tout sélectionner

; Auteur : progi1984
; Date : 31/07/08

Enumeration 
  #ORDER_WMP_PlayAndPause
  #ORDER_WMP_Stop
  #ORDER_WMP_Next
  #ORDER_WMP_Prev
  #ORDER_WMP_Random
EndEnumeration

  Order = #ORDER_WMP_PlayAndPause
  wmp.l = FindWindow_("WMPlayerApp", "Lecteur Windows Media")
  Select Order
    Case #ORDER_WMP_PlayAndPause
      SendMessage_(wmp, #WM_COMMAND, 18808, 0)
    Case #ORDER_WMP_Stop
      SendMessage_(wmp, #WM_COMMAND, 18809, 0)
    Case #ORDER_WMP_Next
      SendMessage_(wmp, #WM_COMMAND, 18811, 0)
    Case #ORDER_WMP_Prev
      SendMessage_(wmp, #WM_COMMAND, 18810, 0)
    Case #ORDER_WMP_Random
      SendMessage_(wmp, #WM_COMMAND, 18842, 0)
  EndSelect