Серый форум — AHK: Сохранить скриншот в файл

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 15:09:36 +0000

__Михаил__ пишет:

Вот весь код, должно заработать я полагаю (если есть GDIplus):

4::
Format := "jpg"
Quality := 55
T := % A_ScriptDir "\ScreenS1\"
FileName := T . A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format
FileCreateDir, % T
SaveScreenshotToFile(FileName)
Return


SaveScreenshotToFile(filePath, x := 0, y := 0, w := 0, h := 0, Quality := 75)
{
   If (W+H < 2)
   {
    W := A_ScreenWidth
    H := A_ScreenHeight
   }
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath, Quality)
   gdip.DisposeImage(pBitmap)
}

GetHBitmapFromScreen(x, y, w, h)  {
   hDC := DllCall("GetDC", Ptr, 0, Ptr)
   hBM := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, w, Int, h, Ptr)
   pDC := DllCall("CreateCompatibleDC", Ptr, hDC, Ptr)
   oBM := DllCall("SelectObject", Ptr, pDC, Ptr, hBM, Ptr)
   DllCall("BitBlt", Ptr, pDC, Int, 0, Int, 0, Int, w, Int, h, Ptr, hDC, Int, x, Int, y, UInt, 0x00CC0020)
   DllCall("SelectObject", Ptr, pDC, Ptr, oBM)
   DllCall("DeleteDC", Ptr, pDC)
   DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
   Return hBM  ; should be deleted with DllCall("DeleteObject", Ptr, hBM)
}

class GDIplus   {
   __New()  {
      if !DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("LoadLibrary", Str, "gdiplus")
      VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
      DllCall("gdiplus\GdiplusStartup", PtrP, pToken, Ptr, &si, Ptr, 0)
      this.token := pToken
   }
   
   __Delete()  {
      DllCall("gdiplus\GdiplusShutdown", Ptr, this.token)
      if hModule := DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("FreeLibrary", Ptr, hModule)
   }
   
   BitmapFromHBitmap(hBitmap, Palette := 0)  {
      DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", Ptr, hBitmap, Ptr, Palette, PtrP, pBitmap)
      Return pBitmap  ; should be deleted with this.DisposeImage(pBitmap)
   }
   
   SaveBitmapToFile(pBitmap, sOutput, Quality=75)  {
      SplitPath, sOutput,,, Extension
      if Extension not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG
         Return -1

      DllCall("gdiplus\GdipGetImageEncodersSize", UIntP, nCount, UIntP, nSize)
      VarSetCapacity(ci, nSize)
      DllCall("gdiplus\GdipGetImageEncoders", UInt, nCount, UInt, nSize, Ptr, &ci)
      if !(nCount && nSize)
         Return -2
      
      Loop, % nCount  {
         sString := StrGet(NumGet(ci, (idx := (48+7*A_PtrSize)*(A_Index-1))+32+3*A_PtrSize), "UTF-16")
         if !InStr(sString, "*." Extension)
            continue
         
         pCodec := &ci+idx
         break
      }
      
      if !pCodec
         Return -3

      if RegExMatch(Extension, "i)^J(PG|PEG|PE|FIF)$") && Quality != 75  {
         DllCall("gdiplus\GdipGetEncoderParameterListSize", Ptr, pBitmap, Ptr, pCodec, UintP, nSize)
         VarSetCapacity(EncoderParameters, nSize, 0)
         DllCall("gdiplus\GdipGetEncoderParameterList", Ptr, pBitmap, Ptr, pCodec, UInt, nSize, Ptr, &EncoderParameters)
         Loop, % NumGet(EncoderParameters, "UInt")  {
            elem := (24+A_PtrSize)*(A_Index-1) + 4 + (pad := A_PtrSize = 8 ? 4 : 0)
            if (NumGet(EncoderParameters, elem+16, "UInt") = 1) && (NumGet(EncoderParameters, elem+20, "UInt") = 6)  {
               p := elem+&EncoderParameters-pad-4
               NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20, "UInt")), "UInt")
               break
            }
         }      
      }
      
      if A_IsUnicode
         pOutput := &sOutput
      else  {
         VarSetCapacity(wOutput, StrPut(sOutput, "UTF-16")*2, 0)
         StrPut(sOutput, &wOutput, "UTF-16")
         pOutput := &wOutput
      }
      E := DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, pOutput, Ptr, pCodec, UInt, p ? p : 0)
      Return E ? -5 : 0
   }
   
   DisposeImage(pBitmap)  {
      Return DllCall("gdiplus\GdipDisposeImage", Ptr, pBitmap)
   }
}
Return

УУУ Круть!
Он еще и папочку создаёт)
Всёравно я прикрутил

ToolTip Скриншот создан
sleep 2000
ToolTip

И жду секунду прежде чем он сохранится. Оповещения не хватает.

По этой же аналогии хотелось бы увидеть применение команды FileAppend со счётчиком,
Например

первый клик, вид строки: Строка 1, переменная1, переменная2, переменная3
второй клик: Строка2, переменная1, переменная2, переменная3, переменная4
третий клик: Строка3, переменная6, переменная8, переменная2, переменная9

по типу: Если создана запись в файл, то ей присваивается номер(№1 начиная со старта скрипта, или обнуление по ключу, но тут FileDelete сгодится) создаётся оповещение об этом(подтверждает успешность выполнения), и предлагает создать следующую, но уже присваивает ей №2 в файле и так далее, до бесконечности.
+ Функция удаления предыдущей записи по ключу
т.к. я пока сейчас пользуюсь:

A::
{
ToolTip, Предыдущая запись неверна `nЗадайте новую
FileAppend, Предыдущая строка неверна`nНовая строка:`n, %A_ScriptDir%\Test.txt
SoundPlay, %A_ScriptDir%\New.wav
return
}

Re: AHK: Сохранить скриншот в файл

null@example.com (__Михаил__) — Sun, 19 Jul 2020 14:38:16 +0000

Вот весь код, должно заработать я полагаю (если есть GDIplus):

4::
Format := "jpg"
Quality := 55
T := % A_ScriptDir "\ScreenS1\"
FileName := T . A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format
FileCreateDir, % T
SaveScreenshotToFile(FileName)
Return


SaveScreenshotToFile(filePath, x := 0, y := 0, w := 0, h := 0, Quality := 75)
{
   If (W+H < 2)
   {
    W := A_ScreenWidth
    H := A_ScreenHeight
   }
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath, Quality)
   gdip.DisposeImage(pBitmap)
}

GetHBitmapFromScreen(x, y, w, h)  {
   hDC := DllCall("GetDC", Ptr, 0, Ptr)
   hBM := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, w, Int, h, Ptr)
   pDC := DllCall("CreateCompatibleDC", Ptr, hDC, Ptr)
   oBM := DllCall("SelectObject", Ptr, pDC, Ptr, hBM, Ptr)
   DllCall("BitBlt", Ptr, pDC, Int, 0, Int, 0, Int, w, Int, h, Ptr, hDC, Int, x, Int, y, UInt, 0x00CC0020)
   DllCall("SelectObject", Ptr, pDC, Ptr, oBM)
   DllCall("DeleteDC", Ptr, pDC)
   DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
   Return hBM  ; should be deleted with DllCall("DeleteObject", Ptr, hBM)
}

class GDIplus   {
   __New()  {
      if !DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("LoadLibrary", Str, "gdiplus")
      VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
      DllCall("gdiplus\GdiplusStartup", PtrP, pToken, Ptr, &si, Ptr, 0)
      this.token := pToken
   }
   
   __Delete()  {
      DllCall("gdiplus\GdiplusShutdown", Ptr, this.token)
      if hModule := DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("FreeLibrary", Ptr, hModule)
   }
   
   BitmapFromHBitmap(hBitmap, Palette := 0)  {
      DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", Ptr, hBitmap, Ptr, Palette, PtrP, pBitmap)
      Return pBitmap  ; should be deleted with this.DisposeImage(pBitmap)
   }
   
   SaveBitmapToFile(pBitmap, sOutput, Quality=75)  {
      SplitPath, sOutput,,, Extension
      if Extension not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG
         Return -1

      DllCall("gdiplus\GdipGetImageEncodersSize", UIntP, nCount, UIntP, nSize)
      VarSetCapacity(ci, nSize)
      DllCall("gdiplus\GdipGetImageEncoders", UInt, nCount, UInt, nSize, Ptr, &ci)
      if !(nCount && nSize)
         Return -2
      
      Loop, % nCount  {
         sString := StrGet(NumGet(ci, (idx := (48+7*A_PtrSize)*(A_Index-1))+32+3*A_PtrSize), "UTF-16")
         if !InStr(sString, "*." Extension)
            continue
         
         pCodec := &ci+idx
         break
      }
      
      if !pCodec
         Return -3

      if RegExMatch(Extension, "i)^J(PG|PEG|PE|FIF)$") && Quality != 75  {
         DllCall("gdiplus\GdipGetEncoderParameterListSize", Ptr, pBitmap, Ptr, pCodec, UintP, nSize)
         VarSetCapacity(EncoderParameters, nSize, 0)
         DllCall("gdiplus\GdipGetEncoderParameterList", Ptr, pBitmap, Ptr, pCodec, UInt, nSize, Ptr, &EncoderParameters)
         Loop, % NumGet(EncoderParameters, "UInt")  {
            elem := (24+A_PtrSize)*(A_Index-1) + 4 + (pad := A_PtrSize = 8 ? 4 : 0)
            if (NumGet(EncoderParameters, elem+16, "UInt") = 1) && (NumGet(EncoderParameters, elem+20, "UInt") = 6)  {
               p := elem+&EncoderParameters-pad-4
               NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20, "UInt")), "UInt")
               break
            }
         }      
      }
      
      if A_IsUnicode
         pOutput := &sOutput
      else  {
         VarSetCapacity(wOutput, StrPut(sOutput, "UTF-16")*2, 0)
         StrPut(sOutput, &wOutput, "UTF-16")
         pOutput := &wOutput
      }
      E := DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, pOutput, Ptr, pCodec, UInt, p ? p : 0)
      Return E ? -5 : 0
   }
   
   DisposeImage(pBitmap)  {
      Return DllCall("gdiplus\GdipDisposeImage", Ptr, pBitmap)
   }
}
Return

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 14:34:46 +0000

__Михаил__ пишет:

Примерно так будет выглядеть код:

Понятно. У меня всё равно не работает. Там половины переменных в виде функций нет.
Но мне сама идея первого поста понравилась - то, что по нажатию можно сохранять скриншот без сторонних программ. Но вот отсуствие потока смены имён, и как следствие нескольких скриншотов подряд ... это минус.
Я надеялся как-то так сделать

fgslm пишет:

Или проверку: Если файл test ++i уже существует, то +++i что-то такое

Со временем конечно не новая идея, но не всё же к нему привязываться.

Re: AHK: Сохранить скриншот в файл

null@example.com (__Михаил__) — Sun, 19 Jul 2020 13:22:28 +0000

Примерно так будет выглядеть код:

4::
Format := "jpg"
Quality := 55
T := % A_ScriptDir "\ScreenS1\"
FileName := T . A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format
FileCreateDir, % T
SaveScreenshotToFile(FileName)
Return


SaveScreenshotToFile(filePath, x := 0, y := 0, w := 0, h := 0, Quality := 75)
{
   If (W+H < 2)
   {
    W := A_ScreenWidth
    H := A_ScreenHeight
   }
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath, Quality)
   gdip.DisposeImage(pBitmap)
}

Re: AHK: Сохранить скриншот в файл

null@example.com (__Михаил__) — Sun, 19 Jul 2020 13:02:15 +0000

fgslm

Не нужно глупо копировать чужой код. Я предоставил лишь одну строку, у вас же нет переменных 'T' и 'Format' как у меня.

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 12:55:30 +0000

__Михаил__ пишет:

fgslm
Логика просто на высшем уровне:
4::
ToolTip, Скриншот сохранён.
sleep 200
ToolTip
...
Сначала отобразить информации о сохранении, подождать (окно изменить что-нибудь) и сохранить. Это же не верно.
Не легче в имени файла добавлять время? Я так скриншотам имя выдаю:
FileName := T A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format

Я чет неверное не туда поставил, но у меня не работает

4::

;ToolTip, Скриншот сохранён.
;sleep 20
;ToolTip

FileName := T A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format
;i := 0
;SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\FileName" . ++i . ".png")
SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\FileName" . . ".png")
;Run, % A_ScriptDir . "\test.png"


SaveScreenshotToFile(x, y, w, h, filePath)  {
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath)
   gdip.DisposeImage(pBitmap)
}

один файл создал и всё.

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 12:43:13 +0000

__Михаил__ пишет:

Это же не верно

А почему это неработает с точки зрения логики языка? Там же нет никаких команд - просто вывод информации.
Где там скобки надо поставить чтобы последовательно выполнялось?

Re: AHK: Сохранить скриншот в файл

null@example.com (__Михаил__) — Sun, 19 Jul 2020 12:41:21 +0000

fgslm

Логика просто на высшем уровне:

4::
ToolTip, Скриншот сохранён.
sleep 200
ToolTip
...

Сначала отобразить информации о сохранении, подождать (окно изменит что-нибудь) и сохранить. Это же не верно.

Не легче в имени файла добавлять время? Я так скриншотам имя выдаю:

FileName := T A_YYYY "." A_MM "." A_DD " (" A_Hour "." A_Min "." A_Sec "." A_MSec ")." Format

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 12:36:02 +0000

teadrinker пишет:

Нет, не начинает. Наверно как-то криво написали. Покажите свой код полностью.

4::
ToolTip, Скриншот сохранён.
sleep 200
ToolTip
{
i := 0
SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test" . ++i . ".png")
;Run, % A_ScriptDir . "\test.png"


SaveScreenshotToFile(x, y, w, h, filePath)  {
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath)
   gdip.DisposeImage(pBitmap)
}

GetHBitmapFromScreen(x, y, w, h)  {
   hDC := DllCall("GetDC", Ptr, 0, Ptr)
   hBM := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, w, Int, h, Ptr)
   pDC := DllCall("CreateCompatibleDC", Ptr, hDC, Ptr)
   oBM := DllCall("SelectObject", Ptr, pDC, Ptr, hBM, Ptr)
   DllCall("BitBlt", Ptr, pDC, Int, 0, Int, 0, Int, w, Int, h, Ptr, hDC, Int, x, Int, y, UInt, 0x00CC0020)
   DllCall("SelectObject", Ptr, pDC, Ptr, oBM)
   DllCall("DeleteDC", Ptr, pDC)
   DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
   Return hBM  ; should be deleted with DllCall("DeleteObject", Ptr, hBM)
}

class GDIplus   {
   __New()  {
      if !DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("LoadLibrary", Str, "gdiplus")
      VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
      DllCall("gdiplus\GdiplusStartup", PtrP, pToken, Ptr, &si, Ptr, 0)
      this.token := pToken
   }
   
   __Delete()  {
      DllCall("gdiplus\GdiplusShutdown", Ptr, this.token)
      if hModule := DllCall("GetModuleHandle", Str, "gdiplus", Ptr)
         DllCall("FreeLibrary", Ptr, hModule)
   }
   
   BitmapFromHBitmap(hBitmap, Palette := 0)  {
      DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", Ptr, hBitmap, Ptr, Palette, PtrP, pBitmap)
      return pBitmap  ; should be deleted with this.DisposeImage(pBitmap)
   }
   
   SaveBitmapToFile(pBitmap, sOutput, Quality=75)  {
      SplitPath, sOutput,,, Extension
      if Extension not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG
         return -1

      DllCall("gdiplus\GdipGetImageEncodersSize", UIntP, nCount, UIntP, nSize)
      VarSetCapacity(ci, nSize)
      DllCall("gdiplus\GdipGetImageEncoders", UInt, nCount, UInt, nSize, Ptr, &ci)
      if !(nCount && nSize)
         return -2
      
      Loop, % nCount  {
         sString := StrGet(NumGet(ci, (idx := (48+7*A_PtrSize)*(A_Index-1))+32+3*A_PtrSize), "UTF-16")
         if !InStr(sString, "*." Extension)
            continue
         
         pCodec := &ci+idx
         break
      }
      
      if !pCodec
         return -3

      if RegExMatch(Extension, "i)^J(PG|PEG|PE|FIF)$") && Quality != 75  {
         DllCall("gdiplus\GdipGetEncoderParameterListSize", Ptr, pBitmap, Ptr, pCodec, UintP, nSize)
         VarSetCapacity(EncoderParameters, nSize, 0)
         DllCall("gdiplus\GdipGetEncoderParameterList", Ptr, pBitmap, Ptr, pCodec, UInt, nSize, Ptr, &EncoderParameters)
         Loop, % NumGet(EncoderParameters, "UInt")  {
            elem := (24+A_PtrSize)*(A_Index-1) + 4 + (pad := A_PtrSize = 8 ? 4 : 0)
            if (NumGet(EncoderParameters, elem+16, "UInt") = 1) && (NumGet(EncoderParameters, elem+20, "UInt") = 6)  {
               p := elem+&EncoderParameters-pad-4
               NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20, "UInt")), "UInt")
               break
            }
         }      
      }
      
      if A_IsUnicode
         pOutput := &sOutput
      else  {
         VarSetCapacity(wOutput, StrPut(sOutput, "UTF-16")*2, 0)
         StrPut(sOutput, &wOutput, "UTF-16")
         pOutput := &wOutput
      }
      E := DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, pOutput, Ptr, pCodec, UInt, p ? p : 0)
      return E ? -5 : 0
   }
   
   DisposeImage(pBitmap)  {
      return DllCall("gdiplus\GdipDisposeImage", Ptr, pBitmap)
   }
   }
   return
   }

Re: AHK: Сохранить скриншот в файл

null@example.com (teadrinker) — Sun, 19 Jul 2020 12:34:20 +0000

Нет, не начинает. Наверно как-то криво написали. Покажите свой код полностью.

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 12:28:25 +0000

teadrinker пишет:

Счётчик можно так организовать:
i := 0
F10:: SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test" . ++i . ".png")

Нет, доходит до test1 и им начинает заменять все предыдущие.
Где-то нужен сброс счетчика, и уникальное имя.
Или проверку: Если файл test ++i уже существует, то +++i что-то такое
Или

DllCall("DeleteObject", Ptr, hBitmap)

помоему там в коде, что-то отвечает за удаление чего-то, но я точно не понял

Re: AHK: Сохранить скриншот в файл

null@example.com (teadrinker) — Sun, 19 Jul 2020 11:15:41 +0000

Счётчик можно так организовать:

i := 0
F10:: SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test" . ++i . ".png")

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 10:58:28 +0000

teadrinker пишет:

SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test1.png") SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test2.png")

Нет, я имею ввиду чтобы они создавались по счетчику не повторяя имена предыдущих. А не все сразу.
Как-то использовать count в назначении имени, чтобы при последующем нажатии ключа создавался еще один скриншот там же, но с именем, отличным от первого. Так они перезаписываются.

teadrinker пишет:

сформулируйте вопрос более точно.

Я имел ввиду что вместо PrintScreen будет команда FileAppend, но уже вроде понял что надо подставить A_ScriptDir в условие.
Но тут тоже не мешало бы использовать счетчик, чтобы записи нумеровались в файле, а не шли просто одна за другой.

Re: AHK: Сохранить скриншот в файл

null@example.com (teadrinker) — Sun, 19 Jul 2020 10:21:15 +0000

fgslm пишет:

Можно как-то несколько скриншотов сохранить?

SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test1.png")
SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test2.png")
;Run, % A_ScriptDir . "\test.png"

SaveScreenshotToFile(x, y, w, h, filePath)  {
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath)
   gdip.DisposeImage(pBitmap)
}

fgslm пишет:

записать текст в файл командой FileAppend?

Если вопрос не связан с темой топика, создайте новый, и сформулируйте вопрос более точно.

Re: AHK: Сохранить скриншот в файл

null@example.com (fgslm) — Sun, 19 Jul 2020 05:52:11 +0000

Можно как-то несколько скриншотов сохранить? чтобы они сохранялись как test.png test1.png test2.png и прочее? А то при повторе скрипта файл перезаписывается.
И еще, как по аналогии с...

SaveScreenshotToFile(0, 0, A_ScreenWidth, A_ScreenHeight, A_ScriptDir . "\test.png")
;Run, % A_ScriptDir . "\test.png"

SaveScreenshotToFile(x, y, w, h, filePath)  {
   hBitmap := GetHBitmapFromScreen(x, y, w, h)
   gdip := new GDIplus
   pBitmap := gdip.BitmapFromHBitmap(hBitmap)
   DllCall("DeleteObject", Ptr, hBitmap)
   gdip.SaveBitmapToFile(pBitmap, filePath)
   gdip.DisposeImage(pBitmap)
}

...записать текст в файл командой FileAppend?
Т.е. чтобы функция создавала, к примеру, файл в директории нахождения скрипта с записью в него содержимого. Типо такого:

SaveTxt(A_ScriptDir . "\test.txt")

SaveTxt(filePath)  {
   FileAppend(Записать переменную %a% и %b% в файл.`n, filePath)
}

Вобще непонятно как использовать в данном случае команду A_ScriptDir для "\test.txt"