Post by KHA » 26 Jun 2019, 17:06
Hallo,
bei VLC gibt es leider keine Möglichkeit aktuell laufende Song zu löschen, da dachte ich es mir, mit AHK könnte ich das nachrüsten.
Leider, komme ich da nicht wirklich weiter.
Code: Select all
#SingleInstance, force
SetTitleMatchMode, 2
CoordMode, Mouse , Client
#IfWinExist, VLC media player
+Delete:: ;Umschalt + Entfernen
;Medieninformationen aufrufen um an den Pfad des aktuell gespielten Song zu kommen
;Strg+i oder Werkzeuge => Medieninformationen
;WinMenuSelectItem, VLC media player, , Werkzeuge, Medieninformationen ;funktioniert nicht
;WinMenuSelectItem, VLC media player, , 6&, 5& ;funktioniert nicht
;ControlSend , , {Ctrl Down}i{Ctrl Up}, VLC media player ;funktioniert nicht
ControlSend , , ^i, VLC media player ;Das hier funktioniert leider sporadisch
Sleep, 300
If !WinExist("Aktuelle Medieninformationen")
{
Msgbox, Aufruf des Fensters "Aktuelle Medieninformationen" hat nicht funktioniert
Return
}
;Wurde das Fenster "Aktuelle Medieninformationen" aufgerufen, dann 3x auf das Feld Ort Klicken um den Pfad zu markieren
/*
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
*/
ControlClick, x100 y352, VLC media player,, Left, 3
Sleep, 300
ClipSave := % Clipboard ;Inhalt der Zwischenablage speichern
Clipboard = ;Zwischenablage leeren
ControlSend , , ^c, Aktuelle Medieninformationen ;Den Pfad in die zwischenablage Speichern
ClipWait, 2
if ErrorLevel
{
MsgBox, Es wurde nicht kopiert!
Return
}
;Fenster Aktuelle Medieninformationen schließen
if WinExist("Aktuelle Medieninformationen")
{
WinClose, Aktuelle Medieninformationen
}
Sleep, 300
;ein N an VLC schicken, damit nächste Song abgespielt wird und zuvor abgespielte Titel zum Löschen freigegeben wird
ControlSend , , n, VLC media player
Sleep, 300
FileDelete, %Clipboard%
if ErrorLevel
{
MsgBox, Es wurde keine Datei gelöscht!
}
Clipboard := % ClipSave ;Inhalt der zuvor gespeicherten Zwischenablage wiederherstellen.
Return
#IfWinExist
Habe versucht den Script so gut wie möglich zu kommentieren
Danke und schöne Grüße
Hallo,
bei VLC gibt es leider keine Möglichkeit aktuell laufende Song zu löschen, da dachte ich es mir, mit AHK könnte ich das nachrüsten.
Leider, komme ich da nicht wirklich weiter.
[code]#SingleInstance, force
SetTitleMatchMode, 2
CoordMode, Mouse , Client
#IfWinExist, VLC media player
+Delete:: ;Umschalt + Entfernen
;Medieninformationen aufrufen um an den Pfad des aktuell gespielten Song zu kommen
;Strg+i oder Werkzeuge => Medieninformationen
;WinMenuSelectItem, VLC media player, , Werkzeuge, Medieninformationen ;funktioniert nicht
;WinMenuSelectItem, VLC media player, , 6&, 5& ;funktioniert nicht
;ControlSend , , {Ctrl Down}i{Ctrl Up}, VLC media player ;funktioniert nicht
ControlSend , , ^i, VLC media player ;Das hier funktioniert leider sporadisch
Sleep, 300
If !WinExist("Aktuelle Medieninformationen")
{
Msgbox, Aufruf des Fensters "Aktuelle Medieninformationen" hat nicht funktioniert
Return
}
;Wurde das Fenster "Aktuelle Medieninformationen" aufgerufen, dann 3x auf das Feld Ort Klicken um den Pfad zu markieren
/*
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
ControlClick, x332 y69, Aktuelle Medieninformationen,,,, Pos
sleep, 200
*/
ControlClick, x100 y352, VLC media player,, Left, 3
Sleep, 300
ClipSave := % Clipboard ;Inhalt der Zwischenablage speichern
Clipboard = ;Zwischenablage leeren
ControlSend , , ^c, Aktuelle Medieninformationen ;Den Pfad in die zwischenablage Speichern
ClipWait, 2
if ErrorLevel
{
MsgBox, Es wurde nicht kopiert!
Return
}
;Fenster Aktuelle Medieninformationen schließen
if WinExist("Aktuelle Medieninformationen")
{
WinClose, Aktuelle Medieninformationen
}
Sleep, 300
;ein N an VLC schicken, damit nächste Song abgespielt wird und zuvor abgespielte Titel zum Löschen freigegeben wird
ControlSend , , n, VLC media player
Sleep, 300
FileDelete, %Clipboard%
if ErrorLevel
{
MsgBox, Es wurde keine Datei gelöscht!
}
Clipboard := % ClipSave ;Inhalt der zuvor gespeicherten Zwischenablage wiederherstellen.
Return
#IfWinExist[/code]
Habe versucht den Script so gut wie möglich zu kommentieren
Danke und schöne Grüße