skip 10 or 20 seconds forward in a track?

[debu]

I know of the keyboard shortcut to skip 5 seconds forward in a track, but sometimes it's not far enough when going through a ton of tracks to prepare for a dj set. 10 or 20 seconds isn't already an option I'm missing right?

Seems like a lazy thing to want, but my wrists are starting to ache clicking forward with the mouse in track!
If there are no plans to implement this soon, I'm open to any workarounds people can think of. thanks

[Peke]

One of benefits of MediaMonkey you can easily add new feature if you want
Save this Code to Scripts\Auto under name fwdrewbuttons.vbs and restart MM you will get two buttons that will fwd rew on entered number seconds (10 By default)

Code: Select all

Dim pltime
'time in seconds
pltime = 10

Sub OnStartup
  Dim rew10
  Set rew10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("rew10") = rew10
  rew10.Caption = "Rewind "&pltime&" seconds"
  rew10.OnClickFunc = "Rewind"
  rew10.UseScript = Script.ScriptPath
  rew10.IconIndex = 0
  rew10.Hint = "Clicking on this will rewind playing track "&pltime&" seconds"

  Dim fwd10
  Set fwd10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("fwd10") = fwd10
  fwd10.Caption = "Forward "&pltime&" seconds"
  fwd10.OnClickFunc = "Forward"
  fwd10.UseScript = Script.ScriptPath
  fwd10.IconIndex = 4
  fwd10.Hint = "Clicking on this will forward playing track "&pltime&" seconds"
End Sub

Sub Forward(arg)
  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(arg)
  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

[nolabar]

One of benefits of MediaMonkey you can easily add new feature if you want
Save this Code to Scripts\Auto under name fwdrewbuttons.vbs and restart MM you will get two buttons that will fwd rew on entered number seconds (10 By default)

Code: Select all

Dim pltime
'time in seconds
pltime = 10

Sub OnStartup
  Dim rew10
  Set rew10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("rew10") = rew10
  rew10.Caption = "Rewind "&pltime&" seconds"
  rew10.OnClickFunc = "Rewind"
  rew10.UseScript = Script.ScriptPath
  rew10.IconIndex = 0
  rew10.Hint = "Clicking on this will rewind playing track "&pltime&" seconds"

  Dim fwd10
  Set fwd10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("fwd10") = fwd10
  fwd10.Caption = "Forward "&pltime&" seconds"
  fwd10.OnClickFunc = "Forward"
  fwd10.UseScript = Script.ScriptPath
  fwd10.IconIndex = 4
  fwd10.Hint = "Clicking on this will forward playing track "&pltime&" seconds"
End Sub

Sub Forward(arg)
  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(arg)
  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

Thanks for your reply! I'm down with a lot of scripts, and I appreciate you suggesting that one. What I was referring to is a slightly taller progress bar, and not the whole playback area. Not longer even drastically taller, at that. In other skins I just hit a spot that I want and it's there but your bar is so thin that I always miss, lol. But you know what? Your skin is so badass that I use it, anyway. The only I've liked anywhere near yours is the "MMultimate." I used that for what seems like ever, but the I like how elegant/minimal this one is. I have my MM set up with a minimal of icons and clutter, and the skin really accentuates the clean look. Thanks again!

[nolabar]

Either I posted this in the wrong forum, or it was moved incorrectly!. I was referring to a specific skin, in a thread about that specific skin.

[Eyal]

@nolabar you'd be better to register the forum, it's free! You will be notified of replies (by email), you can edit/delete your posts, and much more...

[Peke]

You replied to redirected post No Problem.

[debu]

Hi, this is something I've been looking for quite a while.
I have three questions: Would it be possible to have the buttons near the play button? Any possibility to have the buttons on the mini version, and most importantly can the 10/20 seconds be linked to a keyboard shorcut? thanks

[debu]

I know it's not a normal use of MM, but I have to go through about 10,000 tracks and select a few from them. A keyboard shortcut tied to skip forward would SERIOUSLY help out that task. Is this possible? thanks!

[bumper]

Bumpity for this old one. Is it possible now?

My laptop doesnt have any physical buttons for "Media Fast Forward" and "Media Rewind"... which are the global hotkeys set stock for the 10s skip fuction in MediaMonkey.

I can whip out the laptops remote to send this command .. but I really need a way to do it with the keyboard AS WELL (not excluding the original hotkey). Apologetic if this is covered somewhere already ..

[nohitter151]

Bumpity for this old one. Is it possible now?

My laptop doesnt have any physical buttons for "Media Fast Forward" and "Media Rewind"... which are the global hotkeys set stock for the 10s skip fuction in MediaMonkey.

I can whip out the laptops remote to send this command .. but I really need a way to do it with the keyboard AS WELL (not excluding the original hotkey). Apologetic if this is covered somewhere already ..

Just make your own new hotkey at Options > Hotkeys.

[JackFrost]

One of benefits of MediaMonkey you can easily add new feature if you want
Save this Code to Scripts\Auto under name fwdrewbuttons.vbs and restart MM you will get two buttons that will fwd rew on entered number seconds (10 By default)

Code: Select all

Dim pltime
'time in seconds
pltime = 10

Sub OnStartup
  Dim rew10
  Set rew10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("rew10") = rew10
  rew10.Caption = "Rewind "&pltime&" seconds"
  rew10.OnClickFunc = "Rewind"
  rew10.UseScript = Script.ScriptPath
  rew10.IconIndex = 0
  rew10.Hint = "Clicking on this will rewind playing track "&pltime&" seconds"

  Dim fwd10
  Set fwd10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("fwd10") = fwd10
  fwd10.Caption = "Forward "&pltime&" seconds"
  fwd10.OnClickFunc = "Forward"
  fwd10.UseScript = Script.ScriptPath
  fwd10.IconIndex = 4
  fwd10.Hint = "Clicking on this will forward playing track "&pltime&" seconds"
End Sub

Sub Forward(arg)
  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(arg)
  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

Hey Peke,
Thanks for this. Can this be made into a function I can bind to hotkeys? If so, how?
Thanks much.
J.

[fdiak]

Hi
Just want to revive this thread, as the script is awesome, cant believe i lived without it for so long

Would it be possible to link those buttons to hot keys? I tried in the configuration/options area, but only standard functions can be linked there. So it looks like the script might need to be edited, which I unfortunately do not know how to do.

Thanks!

MediaMonkey rocks!!!!!!!

[pacman10]

One of benefits of MediaMonkey you can easily add new feature if you want
Save this Code to Scripts\Auto under name fwdrewbuttons.vbs and restart MM you will get two buttons that will fwd rew on entered number seconds (10 By default)

Code: Select all

Dim pltime
'time in seconds
pltime = 10

Sub OnStartup
  Dim rew10
  Set rew10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("rew10") = rew10
  rew10.Caption = "Rewind "&pltime&" seconds"
  rew10.OnClickFunc = "Rewind"
  rew10.UseScript = Script.ScriptPath
  rew10.IconIndex = 0
  rew10.Hint = "Clicking on this will rewind playing track "&pltime&" seconds"

  Dim fwd10
  Set fwd10 = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0)
  SDB.Objects("fwd10") = fwd10
  fwd10.Caption = "Forward "&pltime&" seconds"
  fwd10.OnClickFunc = "Forward"
  fwd10.UseScript = Script.ScriptPath
  fwd10.IconIndex = 4
  fwd10.Hint = "Clicking on this will forward playing track "&pltime&" seconds"
End Sub

Sub Forward(arg)
  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(arg)
  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

Super gadget ! Thanks. I often use MediaMonkey for running foreign language podcasts. If I don't immediately understand a word I can zip back 5 seconds with this "5-second rewind" button. The perfect solution.

[Escay]

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!

[gggirlgeek]

Thank you both! I needed these scripts.

For the hotkey script: FYI, you can set additional hotkeys for them in the Options>>Hotkeys dialog. They are under the heading "General: Execute Script:" in the new hotkey dropdown. I set them to Right and Left arrow keys. Then I made them Global. My mouse's scroll wheel happens to use the same shortcuts when I "tilt" it left or right. Very convenient as a remote control for audiobooks, videos and podcasts. The arrow keys no longer work normally while MM is open though, so I might try something else later.

As an aside, all of the "CODE:" text here copied 4 spaces in front of each line into the scripts in notepad. Caused a problem when pasting the text into the Scripts.ini file so I edited them out. The other .vbs files had no problem with the spaces. Weird that the CODE: wrapper did that?