Hi!
Habs endlich hinbekommen!!!
Allerdings nicht mit dem Subclassing-Tipp. Woher soll ich denn die Konstanten kennen? Sind einfach nirgends zu finden! Hab allerdings nach LANGER suche doch noch was anderes gefunden:
http://www.vb-magazin.de/archiv/2575.htm
Auf den ersten Blick nur Schrott, aber wenn man sich die Zeit nimmt und sämtliche fehlenden Zeilenumbrüche und Tabs einfügt bekommt man einen wunderschönen Source:
Private Declare Sub keybd\_event Lib "user32.dll" ( \_
ByVal bVk As Byte, \_
ByVal bScan As Byte, \_
ByVal dwFlags As Long, \_
ByVal dwExtraInfo As Long)
Private Const VK\_MEDIA\_PLAY\_PAUSE As Long = &HB3
Private Const VK\_MEDIA\_STOP As Long = &HB2
Private Const VK\_MEDIA\_NEXT\_TRACK As Long = &HB0
Private Const VK\_MEDIA\_PREV\_TRACK As Long = &HB1
Private Const KEYEVENTF\_KEYUP As Long = &H2
'###### ZUM FESTSTELLEN DER WINDOWS VERSION ################
Private Declare Function GetVersionEx Lib "kernel32" Alias \_
"GetVersionExA" (lpVersionInformation As \_ OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String \* 128
End Type
Public Function IsWinNT() As Boolean
Dim osvi As OSVERSIONINFO
Dim intRet As Integer
osvi.dwOSVersionInfoSize = 148
osvi.szCSDVersion = Space$(128)
intRet = GetVersionEx(osvi)
If osvi.dwMajorVersion \> 4 Then IsWinNT = True
End Function
'###########################################################
Public Sub Media\_Play()
If IsWinNT = True Then
keybd\_event VK\_MEDIA\_PLAY\_PAUSE, 0, 0, 0
keybd\_event VK\_MEDIA\_PLAY\_PAUSE, 0, 0, KEYEVENTF\_KEYUP
Else
keybd\_event VK\_MEDIA\_PLAY\_PAUSE, 1, 0, 0
keybd\_event VK\_MEDIA\_PLAY\_PAUSE, 1, 0, KEYEVENTF\_KEYUP
End If
End Sub
Public Sub Media\_Stop()
If IsWinNT = True Then
keybd\_event VK\_MEDIA\_STOP, 0, 0, 0
keybd\_event VK\_MEDIA\_STOP, 0, 0, KEYEVENTF\_KEYUP
Else
keybd\_event VK\_MEDIA\_STOP, 1, 0, 0
keybd\_event VK\_MEDIA\_STOP, 1, 0, KEYEVENTF\_KEYUP
End If
End Sub
'Dieser Code simuliert das drücken der Media-Zusatztasten auf der Tastertur. Mit VK\_MEDIA\_NEXT\_TRACK und
'VK\_MEDIA\_PREV\_TRACK kann man das ganze noch erweitern.
So, ich hoffe alle die in zukunft nach sowas suchen landen irgendwann hier anstatt vergeblich das Netz zu durchforsten.
Schöne Grüße, Phil
