For those wanting shortcuts instead of buttons, this works for me:
Store this in a file 'fastforward.vbs' in /Scripts, not in /Scripts/Auto
Code: Select all
Sub Forward
Dim pltime
'ffwd time in seconds
pltime = 20
'Script.Reload(Script.ScriptPath)
if (SDB.Player.isPlaying) And (Not SDB.Player.isStartingPlayback) Then
If Not (SDB.Player.PlaybackTime+(pltime*1000) > SDB.Player.CurrentSongLength) Then
SDB.Player.PlaybackTime = SDB.Player.PlaybackTime+(pltime*1000)
end If
End If
End Sub
Sub Rewind
Dim pltime
'rewind time in seconds
pltime = 10
'Script.Reload(Script.ScriptPath)
If (SDB.Player.isPlaying) And (Not SDB.Player.isStartingPlayback) Then
If Not (SDB.Player.PlaybackTime-(pltime*1000) < 0) Then
SDB.Player.PlaybackTime = SDB.Player.PlaybackTime-(pltime*1000)
end if
End if
End sub
Then add 2 shortcuts by adding the following code at the end of /Scripts/Scripts.ini:
Code: Select all
[FastForward]
FileName=fastforward.vbs
ProcName=Forward
Order=60
DisplayName=Fast Forward 20
Description=Fast Forwards 20 seconds
Language=VBScript
ScriptType=0
Shortcut=.
[FastRewind]
FileName=fastforward.vbs
ProcName=Rewind
Order=61
DisplayName=Fast Rewind 10
Description=Fast Rewinds 10 seconds
Language=VBScript
ScriptType=0
Shortcut=,
Now you can fast forward 20 seconds with . and rewind 10 seconds with ,
Change the Shortcut= to your own preferences. See
http://www.mediamonkey.com/wiki/index.p ... _scripting for more info on the Shortcut=
Thank you all for the original script!