Sign in to follow this  
Followers 0
EmptySpace

Screen capture after mouse click and capture screen depends of mouse coords

4 posts in this topic

#1 ·  Posted (edited)

So I have script which will get coords where mouse is clicked.

#Include
Global $pos
getpos()

Func GetPos()
While 1
if _IsPressed("01") then
$pos = MouseGetPos()
MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
EndIf
WEnd
EndFunc

And _ScreenCapture_Capture(@MyDocumentsDir & "GDIPlus_Image2.jpg", 0, 0, 796, 596) func from help file.

How to make it to capture screen like 50x50 pixels from mouse position? I hope you understood what I want.

Edit: Seems that I like to ask other first before search for it. Sorry I found solutions. Like here

Or no, its not what I want...

Edited by EdgarT

Share this post


Link to post
Share on other sites



EdgarT,

How to make it to capture screen like 50x50 pixels from mouse position

Simple maths! :D

$pos = MouseGetPos()
_ScreenCapture_Capture(@MyDocumentsDir & "GDIPlus_Image2.jpg", $pos[0] - 25, $pos[1] - 25, $pos[0] + 25, $pos[1] + 25)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

So I have script which will get coords where mouse is clicked.

#Include
Global $pos
getpos()

Func GetPos()
While 1
if _IsPressed("01") then
$pos = MouseGetPos()
MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
EndIf
WEnd
EndFunc

And _ScreenCapture_Capture(@MyDocumentsDir & "GDIPlus_Image2.jpg", 0, 0, 796, 596) func from help file.

How to make it to capture screen like 50x50 pixels from mouse position? I hope you understood what I want.

By calculating the rectangle.

#include <Misc.au3>
#include <ScreenCapture.au3>

Global $pos
getpos()

Func GetPos()
    While 1
        If _IsPressed("01") Then
            _ScreenCapture_Capture(@ScriptDir & "Captured.jpg", MouseGetPos(0), MouseGetPos(1), MouseGetPos(0) + 50, MouseGetPos(1) + 50)
            ExitLoop
        EndIf
    WEnd
    ShellExecute(@ScriptDir & "Captured.jpg")
EndFunc

Ok, M23 was faster again...

Br,

UEZ

Edited by UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites

Thanks. I knew about that but didnt managed to make it right. Thanks again

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