Script to help you vaginate trough these forums

[aSushiRoll]

Hi guys,

Sorry about the subject title I hope I'm not being inappropriate, great forums, great forums!

I've been pouring all this info and reading up on everything posted here for a few weeks now. Getting there! But I want to do my part and share a small script I've written to help navigate these forums.

Basicly what it does is when you have capslock ON you can use the left&right arrow keys to page back&forward in stead of having to click on the NEXT or number buttons in a thread

just don't use it TOO quickly, or it wont' work. So far I have only tested it on windows & chrome, since it uses ALT+D keyboard shortcut to get the titlebar address.

Here's the link to the compiled .exe
https://www.dropbox.com/s/jh3ey85zxeawwya/vaginate.exe
Here's the autohotkey script if you don't trust me (great program!)
https://www.dropbox.com/s/swxpkb6yua8rh8u/vaginate.ahk

Code: Select all

~Right::
{
    GetKeyState, state, CapsLock, T
    if state = D
    {
    	BackupClipbrd := Clipboard
        Send {ALT down}d{ALT up} ; Select the url textbox
        Sleep 50
        Send ^c ; Copy the url
        ClipWait 0.1
        If ERRORLEVEL
        {
        	Clipboard := BackupClipbrd
    	    Return
        }
    	if(InStr(Clipboard ,"stevehopwoodforex",false))
        {
          reg1 := ".*?start=(\d+)"
          reg2 := "(.*t=\d+)"
          reg3 := "(.*?start=)\d+"
          postfix1 := "&start=10"
          postfix2 := ""
          incr := 10
    	}
    
    	regexmatch(Clipboard,reg1,match)
    	if match1 =
    	{
           	regexmatch(Clipboard,reg2,matchtwo)
           	newpage = %matchtwo1%%postfix1%
     		Clipboard = % newpage
            Send !d^v{ENTER}
       	}
    	else
    	{
           	newpage := % match1 + incr
           	regexmatch(Clipboard,reg3,matchtwo)
          	newpage = %matchtwo1%%newpage%%postfix2%
    		Clipboard = % newpage
            Send !d^v{ENTER}
       	}
        Clipboard := BackupClipbrd
    	return
    }
	return
}

~Left::
{
    GetKeyState, state, CapsLock, T
    if state = D
        {
    	BackupClipbrd := Clipboard
        Send !d ; Select the url textbox
        Send ^c ; Copy the url
        ClipWait 0.1
        If ERRORLEVEL
        {
        	Clipboard := BackupClipbrd
    	    Return
        }
    	if(InStr(Clipboard ,"stevehopwoodforex",false))
        {
          reg1 := ".?start=(\d+)"
          reg2 := "(.*?)start=10"
          reg3 := "(.*start=)\d+"
          postfix1 :=
          postfix2 :=
          decr := 10
          firstpage := 10
    	}
    	regexmatch(Clipboard,reg1,match)
    	if match1 =
    	{
    		return
    	}
    	else
    	{
           	newpage =
               ; test to see if first page or not
            if % match1 = firstpage
            {
                regexmatch(Clipboard,reg2,matchtwo)
                newpage = %matchtwo1%
            }
            else
            {
        	    newpage := % match1 - decr
    	       	regexmatch(Clipboard,reg3,matchtwo)
        		newpage = %matchtwo1%%newpage%
            }
    		Clipboard = % newpage
            Send !d^v{ENTER}
    	}
        Clipboard := BackupClipbrd
    	return
	}
	return
}

[KevinT]

[Mahapathy]

Thanks Susai, is it possible to go to specified page like 663 of a forum thread...

[SteveHopwood]

That's fabulous. I am going to add links to my Welcome message to new members and to my weekly roundup. Thanks.

[milanese]

Thanks Susai, is it possible to go to specified page like 663 of a forum thread...

This is easy look at the img

exp.png

[Mahapathy]

Thank you so much it works

[giailang]

VAGinate LOL, as in vaguely innate...

Great "indie"

Now seriously, a much needed help navigating 4 thousand posts threads really... thanks a lot.

I just wander what the likes of Pippa or Ozgirl will have to say to...

You'd better state that you are in no way a misogynist... (even if you are a woman yourself (sushi roll ))

Cheers mate

This member reminds me of very famous NuckingFut character since the old FF's days. Same mindset, but not neccessary same person

[taipan]

Hi guys,

Sorry about the subject title I hope I'm not being inappropriate, great forums, great forums!

I've been pouring all this info and reading up on everything posted here for a few weeks now. Getting there! But I want to do my part and share a small script I've written to help navigate these forums.

Basicly what it does is when you have capslock ON you can use the left&right arrow keys to page back&forward in stead of having to click on the NEXT or number buttons in a thread

just don't use it TOO quickly, or it wont' work. So far I have only tested it on windows & chrome, since it uses ALT+D keyboard shortcut to get the titlebar address.

Here's the link to the compiled .exe
https://www.dropbox.com/s/jh3ey85zxeawwya/vaginate.exe
Here's the autohotkey script if you don't trust me (great program!)
https://www.dropbox.com/s/swxpkb6yua8rh8u/vaginate.ahk

Code: Select all

~Right::
{
    GetKeyState, state, CapsLock, T
    if state = D
    {
    	BackupClipbrd := Clipboard
        Send {ALT down}d{ALT up} ; Select the url textbox
        Sleep 50
        Send ^c ; Copy the url
        ClipWait 0.1
        If ERRORLEVEL
        {
        	Clipboard := BackupClipbrd
    	    Return
        }
    	if(InStr(Clipboard ,"stevehopwoodforex",false))
        {
          reg1 := ".*?start=(\d+)"
          reg2 := "(.*t=\d+)"
          reg3 := "(.*?start=)\d+"
          postfix1 := "&start=10"
          postfix2 := ""
          incr := 10
    	}
    
    	regexmatch(Clipboard,reg1,match)
    	if match1 =
    	{
           	regexmatch(Clipboard,reg2,matchtwo)
           	newpage = %matchtwo1%%postfix1%
     		Clipboard = % newpage
            Send !d^v{ENTER}
       	}
    	else
    	{
           	newpage := % match1 + incr
           	regexmatch(Clipboard,reg3,matchtwo)
          	newpage = %matchtwo1%%newpage%%postfix2%
    		Clipboard = % newpage
            Send !d^v{ENTER}
       	}
        Clipboard := BackupClipbrd
    	return
    }
	return
}

~Left::
{
    GetKeyState, state, CapsLock, T
    if state = D
        {
    	BackupClipbrd := Clipboard
        Send !d ; Select the url textbox
        Send ^c ; Copy the url
        ClipWait 0.1
        If ERRORLEVEL
        {
        	Clipboard := BackupClipbrd
    	    Return
        }
    	if(InStr(Clipboard ,"stevehopwoodforex",false))
        {
          reg1 := ".?start=(\d+)"
          reg2 := "(.*?)start=10"
          reg3 := "(.*start=)\d+"
          postfix1 :=
          postfix2 :=
          decr := 10
          firstpage := 10
    	}
    	regexmatch(Clipboard,reg1,match)
    	if match1 =
    	{
    		return
    	}
    	else
    	{
           	newpage =
               ; test to see if first page or not
            if % match1 = firstpage
            {
                regexmatch(Clipboard,reg2,matchtwo)
                newpage = %matchtwo1%
            }
            else
            {
        	    newpage := % match1 - decr
    	       	regexmatch(Clipboard,reg3,matchtwo)
        		newpage = %matchtwo1%%newpage%
            }
    		Clipboard = % newpage
            Send !d^v{ENTER}
    	}
        Clipboard := BackupClipbrd
    	return
	}
	return
}

Thanks for the great program and I am too late for the party. The download links have been deleted, appreciate you could upload again.

[SteveHopwood]

It is on my old machine that is currently not working so I cannot get at it. Can anyone repost it here please, so I can place it in post 1?