Jump to content

Scroll by Pixels on FireFox webpage


Recommended Posts

Screenshot

Dim $Running

$Running = True
HotKeySet ("{F1}", "Stop")


While ($Running = True)
WinWaitActive("4walled - Google Chrome","")
MouseClick("left",63,339,1)
;Center of 1st Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",195,339,1)
;Center of 2nd Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",327,339,1)
;Center of 3rd Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",459,339,1)
;Center of 4th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",591,339,1)
;Center of 5th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",723,339,1)
;Center of 6th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",855,339,1)
;Center of 7th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",987,339,1)
;Center of 8th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",1119,339,1)
;Center of 9th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",1251,339,1)
;Center of 10th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",1383,339,1)
;Center of 11th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")

WinWaitActive("4walled - Google Chrome","")
MouseClick("left",1515,339,1)
;Center of 12th Thumbnail
WinWaitActive("4walled","")
MouseClick("right",818,165,1)
MouseClick("left",864,294,1)
WinWaitActive("Save As","")
Send("{ENTER}")
WinWaitActive("4walled","")
Send("{CTRLDOWN}w{CTRLUP}")
WEnd

Func Stop ()
    $Running = False

I have a script mostly typed out, I am trying to find a cmd line to allow me to literally scroll the webpage by X (74px) amount of pixels down.

What I am doing is opening a thumbnail (yellow Circle) to a image that I am saving. Closing the tab, and going to the next thumbnail to the right. Once I complete the line of links (images) I want to move the webpage up and then restart the progress.

I have been looking thru the GUIScrollBar cmds, only to get lost in the advanced coding. Only making out a few cmd lines.

Thanks for everyones time and effort.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...