{Media_next} für iTunes?

PokerFace

Hallo,
ich führe iTunes minimiert aus und möchte mit den Tasten +,- und * (Alle auf dem Numpad) die Titel wechseln bzw. Play/Pause machen.
Mein Skript sieht so aus:

Spoiler anzeigen

[autoit]

#RequireAdmin
HotKeySet ("{NUMPADADD}", "weiter")
HotKeySet ("{NUMPADSUB}", "zurueck")
HotKeySet ("{END}", "aus")
HotKeySet ("{NUMPADMULT}", "play_pause")

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep (1000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func weiter ()
Send('{MEDIA_NEXT}')
Sleep (1100)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func zurueck ()
Send('{MEDIA_PREV}')
Sleep (1100)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func aus ()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func play_pause ()
Send('{MEDIA_PLAY_PAUSE}')
Sleep (1100)
EndFunc

[/autoit]

Leider klappt dies nicht.
Kann mir jemand helfen?

---------------------------------------------------------------------------------------------
GELÖST
Für alle die, die das selbe Problem haben:

[autoit]

#RequireAdmin

[/autoit][autoit][/autoit][autoit]

HotKeySet ("{NUMPADADD}", "media_next")
HotKeySet ("{NUMPADSUB}", "media_prev")
HotKeySet ("{END}", "aus")
HotKeySet ("{NUMPADMULT}", "media_play_pause")

[/autoit][autoit][/autoit][autoit]

If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf

[/autoit][autoit][/autoit][autoit]

While True
sleep(333)
WEnd

[/autoit][autoit][/autoit][autoit]

Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func aus()
Exit
EndFunc

[/autoit]

JuraX

machs doch so
wenn hotkey focus auf Itunes--> Funktion --> Fokus entfernen

Ich weiß die Funktionen leider nicht auswendig

Edit:
https://autoit.de/index.php?page…ster#post142992

**Schnitzel**

schau mal hier^^

https://autoit.de/index.php?page=Thread&threadID=14549

PokerFace

Es funktioniert leider nicht.
Btw:
Ich nutze Windows 7 und die neuste AutoIt Version.

**Schnitzel**

oh sry stimmt.

ich hatte es mir auch für win7 abgeändert.
so gehts bei mir:

Spoiler anzeigen

[autoit]

#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{LAUNCH_MEDIA}", "media_start")
HotKeySet("{MEDIA_PLAY_PAUSE}", "media_play_pause")
HotKeySet("{MEDIA_PREV}", "media_prev")
HotKeySet("{MEDIA_NEXT}", "media_next")

[/autoit] [autoit][/autoit] [autoit]

If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf

[/autoit] [autoit][/autoit] [autoit]

While True
sleep(333)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func media_start()
If Not WinExists("iTunes") Then
Run("C:\Programme\iTunes\iTunes.exe", "C:\Programme\iTunes")
$hWnd = WinGetHandle("iTunes")
If @error Then
sleep(1800)
$hWnd = WinGetHandle("iTunes")
EndIf
Else
$hWnd = WinGetHandle("iTunes")
EndIf
EndFunc
Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc
Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc
Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc

[/autoit]

SEuBo

Probier mal das:

Spoiler anzeigen

[autoit]

#include <SendMessage.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{NUMPADADD}", "_HKS")
HotKeySet("{NUMPADSUB}", "_HKS")
HotKeySet("{END}", "_HKS")
HotKeySet("{NUMPADMULT}", "_HKS")

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _HKS()
Local $sKey, $hWnd = WinGetHandle("iTunes")
If @HotKeyPressed = "{END}" Then Exit
If @HotKeyPressed = "{NUMPADADD}" Then $sKey = "{RIGHT}"
If @HotKeyPressed = "{NUMPADSUB}" Then $sKey = "{LEFT}"
If @HotKeyPressed = "{NUMPADMULT}" Then $sKey = "{SPACE}"
If Not IsHWnd($hWnd) Then Return ConsoleWrite("Konnte iTunes Handle nicht erlangen" & @CRLF)
_SendMessage($hWnd, $WM_SETFOCUS,1)
ControlSend($hWnd, "", "Static26", $sKey)
ConsoleWrite("+> Send! " & $sKey & @CRLF)
_SendMessage($hWnd, $WM_KILLFOCUS,1)
Sleep(500)
EndFunc ;==>_HKS

[/autoit]

PokerFace

Anscheinend kommt der "Send" nicht bei iTunes an.
Hier mal ein Screenshot des ganzen!

**Schnitzel**

wie siehts denn mit der version aus?

Spoiler anzeigen

[autoit]

#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

HotKeySet ("{NUMPADADD}", "media_next")
HotKeySet ("{NUMPADSUB}", "media_prev")
HotKeySet ("{END}", "aus")
HotKeySet ("{NUMPADMULT}", "media_play_pause")

[/autoit] [autoit][/autoit] [autoit]

If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf

[/autoit] [autoit][/autoit] [autoit]

While True
sleep(333)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func aus()
Exit
EndFunc

[/autoit]

SEuBo

Und ich hätte noc hdie hier zu bieten:

Spoiler anzeigen

[autoit]

HotKeySet("{NUMPADADD}", "_HKS")
HotKeySet("{NUMPADSUB}", "_HKS")
HotKeySet("{END}", "_HKS")
HotKeySet("{NUMPADMULT}", "_HKS")

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _HKS()
Local $sKey, $hWnd = WinGetHandle("iTunes")
If @HotKeyPressed = "{END}" Then Exit
If @HotKeyPressed = "{NUMPADADD}" Then $sKey = "{RIGHT}"
If @HotKeyPressed = "{NUMPADSUB}" Then $sKey = "{LEFT}"
If @HotKeyPressed = "{NUMPADMULT}" Then $sKey = "{SPACE}"
If Not IsHWnd($hWnd) Then Return ConsoleWrite("Konnte iTunes Handle nicht erlangen" & @CRLF)
ControlSend($hWnd, "", "Button10", $sKey)
ConsoleWrite("+> Send! " & $sKey & @CRLF)
Sleep(500)
EndFunc ;==>_HKS

[/autoit] [autoit][/autoit] [autoit][/autoit]

PokerFace

Vielen Dank an Schnitzel und SeuBo !
Es hat funktioniert.
Dann kann ich beim zocken endlich die Musik steuern.

Vielen Dank und schöne Ostertage

L3viathan

Gibt es nicht auch ein COM-Objekt für iTunes?

anno2008

[autoit]

HotKeySet("{NUMPADADD}", "media_next")
HotKeySet("{NUMPADSUB}", "media_prev")
HotKeySet("{END}", "aus")
HotKeySet("{NUMPADMULT}", "media_play_pause")

[/autoit][autoit][/autoit][autoit]

Global $iTunesApp
$iTunesApp = ObjCreate("iTunes.Application")
If @error Then
MsgBox(0, "Error", "Fehler beim erstellen des Objektes" & @CRLF & Hex(@error, 8))
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(100)
WEnd

[/autoit][autoit][/autoit][autoit]

Func media_play_pause()
Switch $iTunesApp.PlayerState()
Case 0
$iTunesApp.Play()
Case 1
$iTunesApp.Pause()
EndSwitch
EndFunc ;==>media_play_pause

[/autoit][autoit][/autoit][autoit]

Func media_prev()
$iTunesApp.PreviousTrack()
EndFunc ;==>media_prev

[/autoit][autoit][/autoit][autoit]

Func media_next()
$iTunesApp.NextTrack()
EndFunc ;==>media_next

[/autoit][autoit][/autoit][autoit]

Func aus()
Exit
EndFunc ;==>aus

[/autoit]