skip 10 or 20 seconds forward in a track?

Any ideas about how to improve MediaMonkey? Let us know!

Moderator: Gurus

debu
Posts: 158
Joined: Fri May 11, 2007 9:52 pm

skip 10 or 20 seconds forward in a track?

Post by debu » Wed Jul 22, 2009 10:04 pm

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! :o :(
If there are no plans to implement this soon, I'm open to any workarounds people can think of. thanks

Peke
Posts: 12500
Joined: Tue Jun 10, 2003 7:21 pm
Location: Serbia
Contact:

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

Post by Peke » Thu Jul 23, 2009 7:26 am

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
Best regards,
Pavle
MediaMonkey Team lead QA/Tech Support guru
Admin of Free MediaMonkey addon Site HappyMonkeying
Image
Image
How to add SCREENSHOTS to forum

nolabar

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

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

nolabar

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

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

Eyal
Posts: 3110
Joined: Sun Jun 26, 2005 9:27 am
Location: Québec

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

Post 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...
Skins for MediaMonkey: Cafe, Carbon, Helium, Spotify, Zekton. [ Wiki Zone ].

Peke
Posts: 12500
Joined: Tue Jun 10, 2003 7:21 pm
Location: Serbia
Contact:

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

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

You replied to redirected post ;) No Problem.
Best regards,
Pavle
MediaMonkey Team lead QA/Tech Support guru
Admin of Free MediaMonkey addon Site HappyMonkeying
Image
Image
How to add SCREENSHOTS to forum

debu
Posts: 158
Joined: Fri May 11, 2007 9:52 pm

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

Post 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

debu
Posts: 158
Joined: Fri May 11, 2007 9:52 pm

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

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

bumper

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

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

nohitter151
Posts: 23640
Joined: Wed Aug 09, 2006 10:20 am
Location: NJ, USA
Contact:

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

Post 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.
MediaMonkey user since 2006
Need help? Got a suggestion? Can't find something?

Please no PMs in reply to a post. Just reply in the thread.

JackFrost
Posts: 4
Joined: Sun Oct 31, 2010 4:03 pm

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

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

fdiak
Posts: 1
Joined: Fri Jun 03, 2011 3:22 pm

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

Post 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 :D

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
Posts: 7
Joined: Sat Jul 23, 2011 9:10 am

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

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

Escay
Posts: 1
Joined: Tue Sep 20, 2011 3:49 pm

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

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

gggirlgeek
Posts: 67
Joined: Mon Feb 11, 2008 4:24 pm
Location: Seattle, WA

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

Post 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?
My current favorite software: MediaMonkey Gold!

Post Reply