Sign in to follow this  
Followers 0
Asakor

Scroll by Pixels on FireFox webpage

1 post in this topic

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.

Share this post


Link to post
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
Sign in to follow this  
Followers 0