AutoHotkey Community

zayntheboss wrote: ↑

22 Apr 2019, 09:03

Here's a script I wrote that does just that

Code: Select all

^q::
sleep, 100
send {PrintScreen}
sleep, 500
run MSPaint
Sleep, 1000
Send, #{Up}
Sleep, 500
Mouseclick, left, 250, 250, 5
Sleep, 200
send ^v
sleep, 500
Send ^s
Random, filename, 10000, 99999
Sleep, 500
Send %filename%
Sleep, 500
Send ^l
Sleep, 200
Send, desktop
Loop, 5 {
Send, {enter}
Sleep, 300
}

Ridwan wrote: ↑

22 Apr 2019, 09:12

I use Gdip.ahk by tic to save the screenshot as file.
btw, you can use other Hotkey, not just PrintScreen

Code: Select all

#Include Gdip.ahk

PrintScreen::
    CurrentDate := A_YYYY "-" A_MM "-" A_DD
    CurrentTime := A_Hour "-" A_Min "-" A_Sec "." A_MSec

    Screenshot(CurrentDate "_" CurrentTime ".png")
Return

Screenshot(OutFile)
{
    pToken := Gdip_Startup()

    screen=0|0|%A_ScreenWidth%|%A_ScreenHeight%
    pBitmap := Gdip_BitmapFromScreen(screen)

    Gdip_SaveBitmapToFile(pBitmap, OutFile, 100)
    Gdip_DisposeImage(pBitmap)
    Gdip_Shutdown(pToken)
}

Here is the link:
https://github.com/tariqporter/Gdip/
https://www.autohotkey.com/boards/viewtopic.php?f=6&t=6517

songdg wrote: ↑

13 Jun 2019, 20:38

If I want to use Gdip.ahk to select a rectangle area of the screen manually and save it as an image, how to do that, thanks.

Hellbent wrote: ↑

13 Jun 2019, 20:49

songdg wrote: ↑

13 Jun 2019, 20:38

If I want to use Gdip.ahk to select a rectangle area of the screen manually and save it as an image, how to do that, thanks.

I just posted a script here that has that written into it.


https://www.autohotkey.com/boards/viewtopic.php?f=6&t=60949

It only draws on the main monitor, but can be tweaked to work on any monitor, in fact, I just wrote a class yesterday that I intend to use for these tasks.
https://www.autohotkey.com/boards/viewtopic.php?f=76&t=65366


There are a few functions in that first script that use my own custom gdip functions. They can be found in the lower part of the script.

If you need help picking out the code let me know.

Good luck.

songdg wrote: ↑

17 Jun 2019, 01:57

Thanks for your help, your scrip is a bit complex for a newbie like me.
Use that function?
Gdip_DrawRectangle(pGraphics, pPen, x, y, w, h){
Ptr := A_PtrSize ? "UPtr" : "UInt"
return DllCall("gdiplus\GdipDrawRectangle", Ptr, pGraphics, Ptr, pPen, "float", x, "float", y, "float", w, "float", h)
}

Ridwan wrote: ↑

22 Apr 2019, 09:12

I use Gdip.ahk by tic to save the screenshot as file.
btw, you can use other Hotkey, not just PrintScreen

Code: Select all

#Include Gdip.ahk

PrintScreen::
    CurrentDate := A_YYYY "-" A_MM "-" A_DD
    CurrentTime := A_Hour "-" A_Min "-" A_Sec "." A_MSec

    Screenshot(CurrentDate "_" CurrentTime ".png")
Return

Screenshot(OutFile)
{
    pToken := Gdip_Startup()

    screen=0|0|%A_ScreenWidth%|%A_ScreenHeight%
    pBitmap := Gdip_BitmapFromScreen(screen)

    Gdip_SaveBitmapToFile(pBitmap, OutFile, 100)
    Gdip_DisposeImage(pBitmap)
    Gdip_Shutdown(pToken)
}

Here is the link:
https://github.com/tariqporter/Gdip/
https://www.autohotkey.com/boards/viewtopic.php?f=6&t=6517

PrintScreen::
Send, #{PrintScreen}

!Space::
Send, #{PrintScreen}

Ridwan wrote: ↑

22 Apr 2019, 09:12

I use Gdip.ahk by tic to save the screenshot as file.
btw, you can use other Hotkey, not just PrintScreen

Code: Select all

#Include Gdip.ahk

PrintScreen::
    CurrentDate := A_YYYY "-" A_MM "-" A_DD
    CurrentTime := A_Hour "-" A_Min "-" A_Sec "." A_MSec

    Screenshot(CurrentDate "_" CurrentTime ".png")
Return

Screenshot(OutFile)
{
    pToken := Gdip_Startup()

    screen=0|0|%A_ScreenWidth%|%A_ScreenHeight%
    pBitmap := Gdip_BitmapFromScreen(screen)

    Gdip_SaveBitmapToFile(pBitmap, OutFile, 100)
    Gdip_DisposeImage(pBitmap)
    Gdip_Shutdown(pToken)
}

Here is the link:
https://github.com/tariqporter/Gdip/
viewtopic.php?f=6&t=6517

BOLTGG wrote: ↑ I am new to ahk so i don't that much of it want to change the place where it saves the .png how do i do that

Screenshot("C:\PathToMyFile\" CurrentDate "_" CurrentTime ".png")

Screenshot("Images\" CurrentDate "_" CurrentTime ".png")

boiler wrote: ↑

06 Jan 2022, 13:19

Like this for an absolute path:

Code: Select all

Screenshot("C:\PathToMyFile\" CurrentDate "_" CurrentTime ".png")

LAPIII wrote: ↑

boiler wrote: ↑ Like this for an absolute path:

Code: Select all

Screenshot("C:\PathToMyFile\" CurrentDate "_" CurrentTime ".png")

Where was it saving and doesn't matter where I place this in the script?

Caution: The title could contain unallowable file name characters, so you may want to clean it up first.

transform,s,chr,34
title:="    This is : a test < see here \  /   |  ?   > " . s . " title   你好  " . s . "    END      "
msgbox,OLDTITLE="%title%"   
newStr  := RegExReplace(title, "[<>:""/\\|?*]")
NewTitle:=RegExReplace(newstr,"\x20{2,}"," ")     ;- keep only one space
newtitle=%newtitle%
msgbox,NEWTITLE="%newtitle%"
;-
;-- remove in Title if used for Fileappend :
/*
Use any character in the current code page for a name, including Unicode characters and characters in the extended character set (128–255), except for the following:
The following reserved characters:
https://docs.microsoft.com/en-us/windows/win32/fileio/naming-a-file#naming-conventions
< (less than)
> (greater than)
: (colon)
" (double quote)
/ (forward slash)
\ (backslash)
| (vertical bar or pipe)
? (question mark)
* (asterisk)
*/