Media Tastendruck simulieren (z.B. Play / Pause oder Stop )

[lassma-asma]

Hallo Leute,

grade mal ne kurze Frage:

Wie kann ich denn einen Tastendruck einer Mediataste (z.B. Play oder Stop, Next Track etc) simulieren ?

Lg lassma-asma

[RSBasic]

Code: Alles auswählen

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)

[lassma-asma]

Hi RSBasic,

danke schon mal für die faste antwort...
sieht schon mal sehr gut nach dem aus was ich brauche....
allerdings wenn ich deinen code hier mit MUTE ausführe wird meine im WMP laufende musik nicht gemutet ....
muss ich den wmp noch in den vordergrund (fokus oder so) bringen ?

lg

[Mok]

@lassma-asma: Funktioniert hier einwandfrei. Funktioniert laut MSDN: Virtual Key-Codes nur auf Win XP und Win 2000 (und scheinbar Win 7 x86, wie's ich habe, auch).

[lassma-asma]

hi
ich hab win 7 64 bit und wmp 11 ....
hast du auch den 11er ?

habs grad mit stop getestet , das programm läuft durch aber es passiert nix ....

kann es sein, dass wegen meiner g15 iwas schief geht ?

[RSBasic]

Ich hab unter VPC Win7 32 Bit mit WMP 12 getestet.
Bei mir wird die Soundausgabe von Windows problemlos gemutet.
Vielleicht ist es bei 64 Bit anders, aber da kann ich dir leider nicht helfen.

[- chris -]

Also bei mit läufts unter Windows 7 64bit Ultimate,
nur mit PureBasic 32bit.

[lassma-asma]

ja bei mir gehts auch nur unter 32 Bit aber da wunderbar !!

Vielen Dank an alle für die schnelle und qualitativ hochwertige hilfe !!!
schöne grüße
lassma-asma