skip 10 or 20 seconds forward in a track?

by **Peke** » Thu Nov 01, 2018 6:25 pm

Have you tried Arrow keys in Full screen?

by **gggirlgeek** » Mon May 21, 2012 9:02 am

For the button script: the buttons worked well but when playing videos they are hidden no matter where I move them. It doesn't matter whether I'm in Fullscreen or simply maximized, there is no way to move the buttons beside the player module, or up to the menu bar (which are the only two "modules" shown while videos are playing). I tried skinned and unskinned modes too.

Fortunately, I have the mouse tilt button set to the shortcut key mentioned above, so this is a workaround for now.

I am thinking of using MM for more serious video watching because the sound is so much better than VLC. These buttons would be important in that case.

Suggestions?

by **gggirlgeek** » Mon May 21, 2012 8:46 am

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?

by **Escay** » Tue Sep 20, 2011 3:57 pm

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!

by **pacman10** » Fri Aug 19, 2011 6:06 am

Peke wrote: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.

by **fdiak** » Fri Jun 03, 2011 3:38 pm

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!!!!!!!

by **JackFrost** » Sun Oct 31, 2010 4:10 pm

Peke wrote: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.

by **nohitter151** » Fri Jul 09, 2010 8:10 am

bumper wrote: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.

by **bumper** » Fri Jul 09, 2010 12:10 am

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 ..

by **debu** » Sun Sep 13, 2009 6:05 pm

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!

by **debu** » Mon Aug 31, 2009 1:58 pm

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

by **Peke** » Sun Aug 23, 2009 6:45 pm

You replied to redirected post

No Problem.

by **Eyal** » Sun Aug 23, 2009 5:40 pm

@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...

by **nolabar** » Sun Aug 23, 2009 12:30 pm

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.

by **nolabar** » Sun Aug 23, 2009 4:01 am

Peke wrote: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!

skip 10 or 20 seconds forward in a track?

Post a reply

Expand view Topic review: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?

Re: skip 10 or 20 seconds forward in a track?