INSTALLATIONSABLAUF:
EINTRAG IN DATEI Scripts.ini - öffnen mit Editor
unter %Appdata% Ordner Mediamonkey\Scripts
ACHTUNG: bei Portable-Installation stimmt obiger Pfad nicht.
1. Kopiere folgende Einträge in die Datei Script.ini
danach "speichern" und Editor beenden
[SpieleNaechstenSong]
FileName=Auto\SpieleNaechstenSong.vbs
ProcName=PlayNext
Order=659
DisplayName=SpieleNaechstenSong
Description=SpieleNaechstenSong
Language=VBScript
ScriptType=0
'-------------------------------
2. Kopiere untenstehenden Code in eine neue Editor-Datei
3. Speichern unter "%Appdata% Ordner Mediamonkey\Scripts\Auto" mit Namen "SpieleNaechstenSong"
... ACHTUNG: bei Portable-Installation stimmt obiger Pfad nicht.
4. Beende Editor
5. Suche jetzt die Datei "SpieleNaechstenSong" und ändere die Erweiterung auf .vbs
6. Starte MediaMonkey
7. 'Extras> Optionen> Allgemein ... Tastenkürzel ... Tastenkürzel bearbeiten:
... suche die Aktion "Allgemein: Songliste basierend auf den aktuellen Song auswählen"
... und lege dafür die Taste F8 fest
... falls du eine andere Taste belegst, musst du den Befehl a.SendKeys "{F8}" ändern
8. suche die Aktion "Allgemein: Script ausführen:"
.. und wähle das Script "SpieleNaechstenSong" und weise dafür die Nummernblocktaste 0 zu
9. Setzte vorerst noch die Löschbestätigung unter ... Extras> Optionen> Allgemein ... Bestätigungen
... "Entfernen der zur Zeit gespielten Datei bestätigen" aktivieren
10. JEDE ÄNDERUNG, ob Script oder Tastenzuweisung, ERFORDERT EINEN MM-NEUSTART.
... jetzt brauchst du nur mehr die Nummernblocktast 0 zu drücken - spielt den nächsten Titel UND setzt den Fokus
... jetzt kannst Du entscheiden Taste 'Entf' ODER mit Nummernblocktaste 0 zum nächsten Song.
ACHTUNG-UPDATE 18.01.2021 15:54: Fehlercode abfangen - erstellt von "Peke"
Code: Select all
'Autor Erwin Hanzl im Jänner 2021
'Dieses Script wird mittels HOTKEY aufgerufen
'Nächster Song wird gespielt UND MARKIERT
'sinnvoll, wenn man unbekannte Songs abspielt
'dadurch kann ich mich sofort entscheiden: Song LÖSCHEN?
Dim InEventHandler : InEventHandler = False ' Control variable (shows if event handler is executing): by Pavle "Peke"
Sub PlayNext
If InEventHandler Then Exit Sub ' Prevent executing event handler from within itself: by Pavle "Peke"
InEventHandler = True ' Event starts --> set control variable: by Pavle "Peke"
If (SDB.Player.isPlaying) And (Not SDB.Player.isStartingPlayback) Then
SDB.Player.Next
Dim a
Set a = CreateObject("WScript.Shell")
a.SendKeys "{F8}"
End if
End Sub