/*
Скрипт снимает скриншот выделенной области экрана и показывает его поверх всех окон.
Скрипт также позволяет изменять размеры скриншота при вращении над ним колеса мыши.
Ctrl + Space — начать выделение (отпустив Ctrl + Space).
Двигать окно со скриншотом левой кнопкой, менять размер вращая колесо, закрыть — щелчком правой.
При закрытии окна скриншот сохраняется в буфер обмена.

Для работы скрипта необходима библиотека Gdip.ahk
https://www.dropbox.com/s/73vpu9xdzn5ys13/Gdip.ahk?dl=1
*/

CoordMode, Mouse
SetBatchLines, -1
SetWinDelay, 0
SetWorkingDir, % A_ScriptDir
OnExit, Exit
global oGuiData := []

OnMessage(0x112, "WM_SYSCOMMAND")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x205, "WM_RBUTTONUP")
OnMessage(0x203, "WM_LBUTTONDBLCLK")
Return

Exit:
   (CrossHair && CrossHair())
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   for k, v in oGuiData
      DllCall("DeleteObject", Ptr, v)
   ExitApp

^Space::CrossHair(CrossHair := 1)

#If CrossHair = 1
LButton::
   MouseGetPos, mouse_x_start, mouse_y_start
   
   Gui, Select:Default
   Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop -DPIScale
   Gui, Color, Grey
   WinSet, Transparent, 150
   
   hHookMouse := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
      , UInt, 0, Ptr)
      
   KeyWait, LButton
   SetTimer, EventHandling, Off
   DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
   CrossHair(CrossHair := "")
   WinGetPos, X, Y, W, H
   Gui, Destroy
   CreateScreenshotWindow(X, Y, W, H)
   Return

#If hGui := ScreenWindowUnderCursor()
WheelDown::
WheelUp:: WM_WHEEL(A_ThisHotkey = "WheelUp" ? 0 : 1, hGui)
   
CrossHair(OnOff = "")
{
   static IDC_CROSS := 32515, SPI_SETCURSORS := 0x57
      , hCursor := DllCall("LoadCursor", Ptr, 0, UInt, IDC_CROSS, Ptr)
      , sys_cursors := [32512,32513,32514,32516,32642,32643,32644,32645,32646,32648,32649,32650]
   
   if !OnOff
      DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS, UInt, 0, UInt, 0, UInt, 0)
   else
      for k, cursor in sys_cursors
         hCopy := DllCall("CopyImage", Ptr, hCursor, UInt, 2, Int, 0, Int, 0, UInt, 0)
         , DllCall("SetSystemCursor", Ptr, hCopy, UInt, cursor)
}
       
LowLevelMouseProc(nCode, wParam, lParam)
{
   static mouse_x, mouse_y, WM_MOUSEMOVE := 0x200
   global mouse_x_start, mouse_y_start

   if (wParam = WM_MOUSEMOVE) {
      mouse_x := NumGet(lParam + 0, "Int")
      mouse_y := NumGet(lParam + 4, "Int")
      SetTimer, EventHandling, -10
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

EventHandling:
   x := mouse_x_start < mouse_x ? mouse_x_start : mouse_x
   y := mouse_y_start < mouse_y ? mouse_y_start : mouse_y
   w := Abs(mouse_x - mouse_x_start)
   h := Abs(mouse_y - mouse_y_start)
   Gui, Select:Show, x%x% y%y% w%w% h%h% NA
   Return
}

CreateScreenshotWindow(X, Y, W, H)
{
   static WS_EX_LAYERED := 0x80000
   
   pToken := Gdip_Startup()
   pBitmap := Gdip_BitmapFromScreen( X "|" Y "|" W "|" H )
   
   hbm := CreateDIBSection(W, H)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, W, H)
   
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, W - 2, H - 2)
   Gdip_DeletePen(pPen)
   
   for k, v in oGuiData
      if (v = 0 && IsEmpty := 1)
         break
      
   Gui, New, -Caption +E%WS_EX_LAYERED% +LastFound +AlwaysOnTop +ToolWindow +hwndhGui -DPIScale
   Gui, Show, NA
   oGuiData[hGui] := Gdip_CreateHBITMAPFromBitmap(pBitmap)
   UpdateLayeredWindow(hGui, hdc, X, Y, W, H)
   
   SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

ScreenWindowUnderCursor()
{
   MouseGetPos,,, hGui
   WinGet, PID, Pid, ahk_id %hGui%
   if DllCall("GetCurrentProcessId") = PID
      Return hGui
}

WM_LBUTTONDOWN()
{
   if (A_Gui != "Select")
      PostMessage, WM_NCLBUTTONDOWN := 0xA1, HTCAPTION := 2
}

WM_LBUTTONDBLCLK()
{
   if (A_Gui != "Select") {
      pToken := Gdip_Startup()
      pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
      Gui, %A_Gui%:Hide
      FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)
      Gdip_SaveBitmapToFile(pBitmap, SelectFile )
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
      Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
   }
}

WM_RBUTTONUP()
{
   if (A_Gui != "Select") {
      pToken := Gdip_Startup()
      pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
      pBitmap := ScaleImage(pBitmap, A_Gui)
      Gdip_SetBitmapToClipboard(pBitmap)
      Gdip_DisposeImage(pBitmap)
      Gdip_Shutdown(pToken)
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

ScaleImage(pBitmap, hGui) {
   WinGetPos,,, W, H, ahk_id %hGui%
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   if (W = WidthBM)
      Return pBitmap
   pNewBitmap := Gdip_CreateBitmap(W, H)
   G := Gdip_GraphicsFromImage(pNewBitmap)
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, WidthBM, HeightBM)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Return pNewBitmap
}

WM_SYSCOMMAND(wp)
{
   static SC_CLOSE := 0xF060
   if (wp = SC_CLOSE && A_Gui != "Select")
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui]), oGuiData.Delete(A_Gui)
}

WM_WHEEL(wp, hwnd)
{
   Critical
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[hwnd])
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   RatioBM := WidthBM/HeightBM
   SquareBM := WidthBM*HeightBM
   
   WinGetPos, X, Y, W, H, ahk_id %hwnd%
   
   DeltaW := Round(W/(!wp ? 10 : 11))
   DeltaW := wp ? -DeltaW : DeltaW
   ResultW := W + DeltaW
   ResultH := Round(ResultW/RatioBM)
   ResultX := X - Round(DeltaW/2)
   ResultY := Y - Round((ResultH - H)/2)
   SquareWin := ResultW*ResultH
   if (!wp && SquareWin > 13000000) || (wp && SquareWin < 1000 && SquareWin < SquareBM)
      Return, "", Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

   hbm := CreateDIBSection(ResultW, ResultH)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, ResultW, ResultH, 0, 0, WidthBM, HeightBM)
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, ResultW - 2, ResultH - 2)
   
   UpdateLayeredWindow(hwnd, hdc, ResultX, ResultY, ResultW, ResultH)

   Gdip_DeletePen(pPen), SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

/*
Скрипт снимает скриншот выделенной области экрана и показывает его поверх всех окон.
Скрипт также позволяет изменять размеры скриншота при вращении над ним колеса мыши.
Ctrl + Space — начать выделение (отпустив Ctrl + Space).
Двигать окно со скриншотом левой кнопкой, менять размер вращая колесо, закрыть — щелчком правой.

Для работы скрипта необходима библиотека Gdip.ahk
https://www.dropbox.com/s/73vpu9xdzn5ys13/Gdip.ahk?dl=1
*/

CoordMode, Mouse
SetBatchLines, -1
SetWinDelay, 0
SetWorkingDir, % A_ScriptDir
OnExit, Exit
global oGuiData := []

OnMessage(0x112, "WM_SYSCOMMAND")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x205, "WM_RBUTTONUP")
OnMessage(0x203, "WM_LBUTTONDBLCLK")
Return

Exit:
   (CrossHair && CrossHair())
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   for k, v in oGuiData
      DllCall("DeleteObject", Ptr, v)
   ExitApp

*~$vk2C::CrossHair(CrossHair := 1)

#If CrossHair = 1
LButton::
   MouseGetPos, mouse_x_start, mouse_y_start
   
   Gui, Select:Default
   Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop -DPIScale
   Gui, Color, Grey
   WinSet, Transparent, 150
   
   hHookMouse := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
      , UInt, 0, Ptr)
      
   KeyWait, LButton
   SetTimer, EventHandling, Off
   DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
   CrossHair(CrossHair := "")
   WinGetPos, X, Y, W, H
   Gui, Destroy
   CreateScreenshotWindow(X, Y, W, H)
   Return

#If hGui := ScreenWindowUnderCursor()
WheelDown::
WheelUp:: WM_WHEEL(A_ThisHotkey = "WheelUp" ? 0 : 1, hGui)
   
CrossHair(OnOff = "")
{
   static IDC_CROSS := 32515, SPI_SETCURSORS := 0x57
      , hCursor := DllCall("LoadCursor", Ptr, 0, UInt, IDC_CROSS, Ptr)
      , sys_cursors := [32512,32513,32514,32516,32642,32643,32644,32645,32646,32648,32649,32650]
   
   if !OnOff
      DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS, UInt, 0, UInt, 0, UInt, 0)
   else
      for k, cursor in sys_cursors
         hCopy := DllCall("CopyImage", Ptr, hCursor, UInt, 2, Int, 0, Int, 0, UInt, 0)
         , DllCall("SetSystemCursor", Ptr, hCopy, UInt, cursor)
}
       
LowLevelMouseProc(nCode, wParam, lParam)
{
   static mouse_x, mouse_y, WM_MOUSEMOVE := 0x200
   global mouse_x_start, mouse_y_start

   if (wParam = WM_MOUSEMOVE)  {
      mouse_x := NumGet(lParam + 0, "Int")
      mouse_y := NumGet(lParam + 4, "Int")
      SetTimer, EventHandling, -10
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

EventHandling:
   x := mouse_x_start < mouse_x ? mouse_x_start : mouse_x
   y := mouse_y_start < mouse_y ? mouse_y_start : mouse_y
   w := Abs(mouse_x - mouse_x_start)
   h := Abs(mouse_y - mouse_y_start)
   Gui, Select:Show, x%x% y%y% w%w% h%h% NA
   Return
}

CreateScreenshotWindow(X, Y, W, H)
{
   static WS_EX_LAYERED := 0x80000
   
   pToken := Gdip_Startup()
   pBitmap := Gdip_BitmapFromScreen( X "|" Y "|" W "|" H )
   
   hbm := CreateDIBSection(W, H)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, W, H)
   
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, W - 2, H - 2)
   Gdip_DeletePen(pPen)
   
   for k, v in oGuiData
      if (v = 0 && IsEmpty := 1)
         break
      
   Gui, New, -Caption +E%WS_EX_LAYERED% +LastFound +AlwaysOnTop +ToolWindow +hwndhGui -DPIScale
   Gui, Show, NA
   oGuiData[hGui] := Gdip_CreateHBITMAPFromBitmap(pBitmap)
   UpdateLayeredWindow(hGui, hdc, X, Y, W, H)
   
   SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

ScreenWindowUnderCursor()
{
   MouseGetPos,,, hGui
   WinGet, PID, Pid, ahk_id %hGui%
   if DllCall("GetCurrentProcessId") = PID
      Return hGui
}

WM_LBUTTONDOWN()
{
   if (A_Gui != "Select")
      PostMessage, WM_NCLBUTTONDOWN := 0xA1, HTCAPTION := 2
}

WM_LBUTTONDBLCLK()
{
    if (A_Gui != "Select")  {
     pToken := Gdip_Startup()
     pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
     Gui, %A_Gui%:Hide
     FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)
     Gdip_SaveBitmapToFile(pBitmap, SelectFile )
     DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
     oGuiData.Delete(A_Gui)
     Gui, %A_Gui%:Destroy
     Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
    }
}

WM_RBUTTONUP()
{
     if (A_Gui != "Select")  {
      pToken := Gdip_Startup()
      pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
      Gdip_SetBitmapToClipboard(pBitmap)
      Gdip_DisposeImage(pBitmap)
      Gdip_Shutdown(pToken)
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_SYSCOMMAND(wp)
{
   static SC_CLOSE := 0xF060
   if (wp = SC_CLOSE && A_Gui != "Select")
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui]), oGuiData.Delete(A_Gui)
}

WM_WHEEL(wp, hwnd)
{
   Critical
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[hwnd])
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   RatioBM := WidthBM/HeightBM
   SquareBM := WidthBM*HeightBM
   
   WinGetPos, X, Y, W, H, ahk_id %hwnd%
   
   DeltaW := Round(W/(!wp ? 10 : 11))
   DeltaW := wp ? -DeltaW : DeltaW
   ResultW := W + DeltaW
   ResultH := Round(ResultW/RatioBM)
   ResultX := X - Round(DeltaW/2)
   ResultY := Y - Round((ResultH - H)/2)
   SquareWin := ResultW*ResultH
   if (!wp && SquareWin > 13000000) || (wp && SquareWin < 1000 && SquareWin < SquareBM)
      Return, "", Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

   hbm := CreateDIBSection(ResultW, ResultH)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, ResultW, ResultH, 0, 0, WidthBM, HeightBM)
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, ResultW - 2, ResultH - 2)
   
   UpdateLayeredWindow(hwnd, hdc, ResultX, ResultY, ResultW, ResultH)

   Gdip_DeletePen(pPen), SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

WM_RBUTTONUP()
{
      if (A_Gui != "Select")  {
     Gdip_SetBitmapToClipboard(pBitmap)
     DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
     Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
      Gui, %A_Gui%:Destroy
   }

}

Gdip_SetBitmapToClipboard(pBitmap)

WM_MBUTTONDOWN()
{
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])

Gui, %A_Gui%:Hide
   FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)
      res := Gdip_SaveBitmapToFile(pBitmap, SelectFile )

   DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
   oGuiData.Delete(A_Gui)
   Gui, %A_Gui%:Destroy
   Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

if (A_Gui != "Select")

/*
Скрипт снимает скриншот выделенной области экрана и показывает его поверх всех окон.
Скрипт также позволяет изменять размеры скриншота при вращении над ним колеса мыши.
Ctrl + Space — начать выделение (отпустив Ctrl + Space).
Двигать окно со скриншотом левой кнопкой, менять размер вращая колесо, закрыть — щелчком правой.

Для работы скрипта необходима библиотека Gdip.ahk
https://www.dropbox.com/s/73vpu9xdzn5ys13/Gdip.ahk?dl=1
*/

CoordMode, Mouse
SetBatchLines, -1
SetWinDelay, 0
SetWorkingDir, % A_ScriptDir
OnExit, Exit
global oGuiData := []

OnMessage(0x112, "WM_SYSCOMMAND")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x205, "WM_RBUTTONUP")
OnMessage(0x203, "WM_LBUTTONDBLCLK")
Return

Exit:
   (CrossHair && CrossHair())
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   for k, v in oGuiData
      DllCall("DeleteObject", Ptr, v)
   ExitApp

*~$vk2C::CrossHair(CrossHair := 1)

#If CrossHair = 1
LButton::
   MouseGetPos, mouse_x_start, mouse_y_start
   
   Gui, Select:Default
   Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop -DPIScale
   Gui, Color, Grey
   WinSet, Transparent, 150
   
   hHookMouse := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
      , UInt, 0, Ptr)
      
   KeyWait, LButton
   SetTimer, EventHandling, Off
   DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
   CrossHair(CrossHair := "")
   WinGetPos, X, Y, W, H
   Gui, Destroy
   CreateScreenshotWindow(X, Y, W, H)
   Return

#If hGui := ScreenWindowUnderCursor()
WheelDown::
WheelUp:: WM_WHEEL(A_ThisHotkey = "WheelUp" ? 0 : 1, hGui)
   
CrossHair(OnOff = "")
{
   static IDC_CROSS := 32515, SPI_SETCURSORS := 0x57
      , hCursor := DllCall("LoadCursor", Ptr, 0, UInt, IDC_CROSS, Ptr)
      , sys_cursors := [32512,32513,32514,32516,32642,32643,32644,32645,32646,32648,32649,32650]
   
   if !OnOff
      DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS, UInt, 0, UInt, 0, UInt, 0)
   else
      for k, cursor in sys_cursors
         hCopy := DllCall("CopyImage", Ptr, hCursor, UInt, 2, Int, 0, Int, 0, UInt, 0)
         , DllCall("SetSystemCursor", Ptr, hCopy, UInt, cursor)
}
       
LowLevelMouseProc(nCode, wParam, lParam)
{
   static mouse_x, mouse_y, WM_MOUSEMOVE := 0x200
   global mouse_x_start, mouse_y_start

   if (wParam = WM_MOUSEMOVE)  {
      mouse_x := NumGet(lParam + 0, "Int")
      mouse_y := NumGet(lParam + 4, "Int")
      SetTimer, EventHandling, -10
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

EventHandling:
   x := mouse_x_start < mouse_x ? mouse_x_start : mouse_x
   y := mouse_y_start < mouse_y ? mouse_y_start : mouse_y
   w := Abs(mouse_x - mouse_x_start)
   h := Abs(mouse_y - mouse_y_start)
   Gui, Select:Show, x%x% y%y% w%w% h%h% NA
   Return
}

CreateScreenshotWindow(X, Y, W, H)
{
   static WS_EX_LAYERED := 0x80000
   
   pToken := Gdip_Startup()
   pBitmap := Gdip_BitmapFromScreen( X "|" Y "|" W "|" H )
   
   hbm := CreateDIBSection(W, H)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, W, H)
   
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, W - 2, H - 2)
   Gdip_DeletePen(pPen)
   
   for k, v in oGuiData
      if (v = 0 && IsEmpty := 1)
         break
      
   Gui, New, -Caption +E%WS_EX_LAYERED% +LastFound +AlwaysOnTop +ToolWindow +hwndhGui -DPIScale
   Gui, Show, NA
   oGuiData[hGui] := Gdip_CreateHBITMAPFromBitmap(pBitmap)
   UpdateLayeredWindow(hGui, hdc, X, Y, W, H)
   
   SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

ScreenWindowUnderCursor()
{
   MouseGetPos,,, hGui
   WinGet, PID, Pid, ahk_id %hGui%
   if DllCall("GetCurrentProcessId") = PID
      Return hGui
}

WM_LBUTTONDOWN()
{
   if (A_Gui != "Select")
      PostMessage, WM_NCLBUTTONDOWN := 0xA1, HTCAPTION := 2
}

WM_LBUTTONDBLCLK()
{
    if (A_Gui != "Select")  {
     pToken := Gdip_Startup()
     pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
     Gui, %A_Gui%:Hide
     FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)
     Gdip_SaveBitmapToFile(pBitmap, SelectFile )
     DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
     oGuiData.Delete(A_Gui)
     Gui, %A_Gui%:Destroy
     Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
    }
}

WM_RBUTTONUP()
{
     if (A_Gui != "Select")  {
      pToken := Gdip_Startup()
      pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
      Gdip_SetBitmapToClipboard(pBitmap)
      Gdip_DisposeImage(pBitmap)
      Gdip_Shutdown(pToken)
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_SYSCOMMAND(wp)
{
   static SC_CLOSE := 0xF060
   if (wp = SC_CLOSE && A_Gui != "Select")
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui]), oGuiData.Delete(A_Gui)
}

WM_WHEEL(wp, hwnd)
{
   Critical
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[hwnd])
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   RatioBM := WidthBM/HeightBM
   SquareBM := WidthBM*HeightBM
   
   WinGetPos, X, Y, W, H, ahk_id %hwnd%
   
   DeltaW := Round(W/(!wp ? 10 : 11))
   DeltaW := wp ? -DeltaW : DeltaW
   ResultW := W + DeltaW
   ResultH := Round(ResultW/RatioBM)
   ResultX := X - Round(DeltaW/2)
   ResultY := Y - Round((ResultH - H)/2)
   SquareWin := ResultW*ResultH
   if (!wp && SquareWin > 13000000) || (wp && SquareWin < 1000 && SquareWin < SquareBM)
      Return, "", Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

   hbm := CreateDIBSection(ResultW, ResultH)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, ResultW, ResultH, 0, 0, WidthBM, HeightBM)
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, ResultW - 2, ResultH - 2)
   
   UpdateLayeredWindow(hwnd, hdc, ResultX, ResultY, ResultW, ResultH)

   Gdip_DeletePen(pPen), SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

WM_RBUTTONUP()
{
   if (A_Gui != "Select")  {
      pToken := Gdip_Startup()
      pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
      Gdip_SetBitmapToClipboard(pBitmap)
      Gdip_DisposeImage(pBitmap)
      Gdip_Shutdown(pToken)
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_RBUTTONUP()
{
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])

   res := Gdip_SetBitmapToClipboard(pBitmap)

   if (A_Gui != "Select")  {
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_RBUTTONUP()
{

 pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])
   if (A_Gui != "Select")  {
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_RBUTTONUP()
{
   if (A_Gui != "Select")  {
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

/*
Скрипт снимает скриншот выделенной области экрана и показывает его поверх всех окон.
Скрипт также позволяет изменять размеры скриншота при вращении над ним колеса мыши.
Ctrl + Space — начать выделение (отпустив Ctrl + Space).
Двигать окно со скриншотом левой кнопкой, менять размер вращая колесо, закрыть — щелчком правой.

Для работы скрипта необходима библиотека Gdip.ahk
https://www.dropbox.com/s/73vpu9xdzn5ys13/Gdip.ahk?dl=1
*/

CoordMode, Mouse
SetBatchLines, -1
SetWinDelay, 0
SetWorkingDir, % A_ScriptDir
OnExit, Exit
global oGuiData := []

OnMessage(0x112, "WM_SYSCOMMAND")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x205, "WM_RBUTTONUP")
OnMessage(0x203, "WM_LBUTTONDBLCLK")
Return

Exit:
   (CrossHair && CrossHair())
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   for k, v in oGuiData
      DllCall("DeleteObject", Ptr, v)
   ExitApp

*~$vk2C::CrossHair(CrossHair := 1)

#If CrossHair = 1
LButton::
   MouseGetPos, mouse_x_start, mouse_y_start
   
   Gui, Select:Default
   Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop -DPIScale
   Gui, Color, Grey
   WinSet, Transparent, 150
   
   hHookMouse := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
      , UInt, 0, Ptr)
      
   KeyWait, LButton
   SetTimer, EventHandling, Off
   DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
   CrossHair(CrossHair := "")
   WinGetPos, X, Y, W, H
   Gui, Destroy
   CreateScreenshotWindow(X, Y, W, H)
   Return

#If hGui := ScreenWindowUnderCursor()
WheelDown::
WheelUp:: WM_WHEEL(A_ThisHotkey = "WheelUp" ? 0 : 1, hGui)
   
CrossHair(OnOff = "")
{
   static IDC_CROSS := 32515, SPI_SETCURSORS := 0x57
      , hCursor := DllCall("LoadCursor", Ptr, 0, UInt, IDC_CROSS, Ptr)
      , sys_cursors := [32512,32513,32514,32516,32642,32643,32644,32645,32646,32648,32649,32650]
   
   if !OnOff
      DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS, UInt, 0, UInt, 0, UInt, 0)
   else
      for k, cursor in sys_cursors
         hCopy := DllCall("CopyImage", Ptr, hCursor, UInt, 2, Int, 0, Int, 0, UInt, 0)
         , DllCall("SetSystemCursor", Ptr, hCopy, UInt, cursor)
}
       
LowLevelMouseProc(nCode, wParam, lParam)
{
   static mouse_x, mouse_y, WM_MOUSEMOVE := 0x200
   global mouse_x_start, mouse_y_start

   if (wParam = WM_MOUSEMOVE)  {
      mouse_x := NumGet(lParam + 0, "Int")
      mouse_y := NumGet(lParam + 4, "Int")
      SetTimer, EventHandling, -10
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

EventHandling:
   x := mouse_x_start < mouse_x ? mouse_x_start : mouse_x
   y := mouse_y_start < mouse_y ? mouse_y_start : mouse_y
   w := Abs(mouse_x - mouse_x_start)
   h := Abs(mouse_y - mouse_y_start)
   Gui, Select:Show, x%x% y%y% w%w% h%h% NA
   Return
}

CreateScreenshotWindow(X, Y, W, H)
{
   static WS_EX_LAYERED := 0x80000
   
   pToken := Gdip_Startup()
   pBitmap := Gdip_BitmapFromScreen( X "|" Y "|" W "|" H )
   
   hbm := CreateDIBSection(W, H)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, W, H)
   
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, W - 2, H - 2)
   Gdip_DeletePen(pPen)
   
   for k, v in oGuiData
      if (v = 0 && IsEmpty := 1)
         break
      
   Gui, New, -Caption +E%WS_EX_LAYERED% +LastFound +AlwaysOnTop +ToolWindow +hwndhGui -DPIScale
   Gui, Show, NA
   oGuiData[hGui] := Gdip_CreateHBITMAPFromBitmap(pBitmap)
   UpdateLayeredWindow(hGui, hdc, X, Y, W, H)
   
   SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

ScreenWindowUnderCursor()
{
   MouseGetPos,,, hGui
   WinGet, PID, Pid, ahk_id %hGui%
   if DllCall("GetCurrentProcessId") = PID
      Return hGui
}

WM_LBUTTONDOWN()
{
   if (A_Gui != "Select")
      PostMessage, WM_NCLBUTTONDOWN := 0xA1, HTCAPTION := 2
}

WM_LBUTTONDBLCLK()
{
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])

Gui, %A_Gui%:Hide
FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)

   
 res := Gdip_SaveBitmapToFile(pBitmap, SelectFile )




 DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
   oGuiData.Delete(A_Gui)
   Gui, %A_Gui%:Destroy
   Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

  ; if (res = 0)  

      ;MsgBox, Скриншот успешно сохранён: `n%SelectFile%\%A_Now%.png
  ;else

      ;MsgBox, Не удалось сохранить скриншот. Ошибка: %res%
}



WM_RBUTTONUP()
{
   if (A_Gui != "Select")  {
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_SYSCOMMAND(wp)
{
   static SC_CLOSE := 0xF060
   if (wp = SC_CLOSE && A_Gui != "Select")
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui]), oGuiData.Delete(A_Gui)
}

WM_WHEEL(wp, hwnd)
{
   Critical
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[hwnd])
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   RatioBM := WidthBM/HeightBM
   SquareBM := WidthBM*HeightBM
   
   WinGetPos, X, Y, W, H, ahk_id %hwnd%
   
   DeltaW := Round(W/(!wp ? 10 : 11))
   DeltaW := wp ? -DeltaW : DeltaW
   ResultW := W + DeltaW
   ResultH := Round(ResultW/RatioBM)
   ResultX := X - Round(DeltaW/2)
   ResultY := Y - Round((ResultH - H)/2)
   SquareWin := ResultW*ResultH
   if (!wp && SquareWin > 13000000) || (wp && SquareWin < 1000 && SquareWin < SquareBM)
      Return, "", Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

   hbm := CreateDIBSection(ResultW, ResultH)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, ResultW, ResultH, 0, 0, WidthBM, HeightBM)
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, ResultW - 2, ResultH - 2)
   
   UpdateLayeredWindow(hwnd, hdc, ResultX, ResultY, ResultW, ResultH)

   Gdip_DeletePen(pPen), SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

/*
Скрипт снимает скриншот выделенной области экрана и показывает его поверх всех окон.
Скрипт также позволяет изменять размеры скриншота при вращении над ним колеса мыши.
Ctrl + Space — начать выделение (отпустив Ctrl + Space).
Двигать окно со скриншотом левой кнопкой, менять размер вращая колесо, закрыть — щелчком правой.

Для работы скрипта необходима библиотека Gdip.ahk
https://www.dropbox.com/s/73vpu9xdzn5ys13/Gdip.ahk?dl=1
*/

CoordMode, Mouse
SetBatchLines, -1
SetWinDelay, 0
SetWorkingDir, % A_ScriptDir
OnExit, Exit
global oGuiData := []

OnMessage(0x112, "WM_SYSCOMMAND")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x205, "WM_RBUTTONUP")
OnMessage(0x203, "WM_LBUTTONDBLCLK")
Return

Exit:
   (CrossHair && CrossHair())
   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))
   for k, v in oGuiData
      DllCall("DeleteObject", Ptr, v)
   ExitApp

*~$vk2C::CrossHair(CrossHair := 1)

#If CrossHair = 1
LButton::
   MouseGetPos, mouse_x_start, mouse_y_start
   
   Gui, Select:Default
   Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop -DPIScale
   Gui, Color, Grey
   WinSet, Transparent, 150
   
   hHookMouse := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
      , UInt, 0, Ptr)
      
   KeyWait, LButton
   SetTimer, EventHandling, Off
   DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""
   CrossHair(CrossHair := "")
   WinGetPos, X, Y, W, H
   Gui, Destroy
   CreateScreenshotWindow(X, Y, W, H)
   Return

#If hGui := ScreenWindowUnderCursor()
WheelDown::
WheelUp:: WM_WHEEL(A_ThisHotkey = "WheelUp" ? 0 : 1, hGui)
   
CrossHair(OnOff = "")
{
   static IDC_CROSS := 32515, SPI_SETCURSORS := 0x57
      , hCursor := DllCall("LoadCursor", Ptr, 0, UInt, IDC_CROSS, Ptr)
      , sys_cursors := [32512,32513,32514,32516,32642,32643,32644,32645,32646,32648,32649,32650]
   
   if !OnOff
      DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS, UInt, 0, UInt, 0, UInt, 0)
   else
      for k, cursor in sys_cursors
         hCopy := DllCall("CopyImage", Ptr, hCursor, UInt, 2, Int, 0, Int, 0, UInt, 0)
         , DllCall("SetSystemCursor", Ptr, hCopy, UInt, cursor)
}
       
LowLevelMouseProc(nCode, wParam, lParam)
{
   static mouse_x, mouse_y, WM_MOUSEMOVE := 0x200
   global mouse_x_start, mouse_y_start

   if (wParam = WM_MOUSEMOVE)  {
      mouse_x := NumGet(lParam + 0, "Int")
      mouse_y := NumGet(lParam + 4, "Int")
      SetTimer, EventHandling, -10
   }
   Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

EventHandling:
   x := mouse_x_start < mouse_x ? mouse_x_start : mouse_x
   y := mouse_y_start < mouse_y ? mouse_y_start : mouse_y
   w := Abs(mouse_x - mouse_x_start)
   h := Abs(mouse_y - mouse_y_start)
   Gui, Select:Show, x%x% y%y% w%w% h%h% NA
   Return
}

CreateScreenshotWindow(X, Y, W, H)
{
   static WS_EX_LAYERED := 0x80000
   
   pToken := Gdip_Startup()
   pBitmap := Gdip_BitmapFromScreen( X "|" Y "|" W "|" H )
   
   hbm := CreateDIBSection(W, H)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   Gdip_DrawImage(G, pBitmap, 0, 0, W, H, 0, 0, W, H)
   
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, W - 2, H - 2)
   Gdip_DeletePen(pPen)
   
   for k, v in oGuiData
      if (v = 0 && IsEmpty := 1)
         break
      
   Gui, New, -Caption +E%WS_EX_LAYERED% +LastFound +AlwaysOnTop +ToolWindow +hwndhGui -DPIScale
   Gui, Show, NA
   oGuiData[hGui] := Gdip_CreateHBITMAPFromBitmap(pBitmap)
   UpdateLayeredWindow(hGui, hdc, X, Y, W, H)
   
   SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

ScreenWindowUnderCursor()
{
   MouseGetPos,,, hGui
   WinGet, PID, Pid, ahk_id %hGui%
   if DllCall("GetCurrentProcessId") = PID
      Return hGui
}

WM_LBUTTONDOWN()
{
   if (A_Gui != "Select")
      PostMessage, WM_NCLBUTTONDOWN := 0xA1, HTCAPTION := 2
}

WM_LBUTTONDBLCLK()
{
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[A_Gui])

Gui, %A_Gui%:Hide
FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)

   
 res := Gdip_SaveBitmapToFile(pBitmap, SelectFile )




 DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
   oGuiData.Delete(A_Gui)
   Gui, %A_Gui%:Destroy
   Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

  ; if (res = 0)  

      ;MsgBox, Скриншот успешно сохранён: `n%SelectFile%\%A_Now%.png
  ;else

      ;MsgBox, Не удалось сохранить скриншот. Ошибка: %res%
}



WM_RBUTTONUP()
{
   if (A_Gui != "Select")  {
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui])
      oGuiData.Delete(A_Gui)
      Gui, %A_Gui%:Destroy
   }
}

WM_SYSCOMMAND(wp)
{
   static SC_CLOSE := 0xF060
   if (wp = SC_CLOSE && A_Gui != "Select")
      DllCall("DeleteObject", Ptr, oGuiData[A_Gui]), oGuiData.Delete(A_Gui)
}

WM_WHEEL(wp, hwnd)
{
   Critical
   pToken := Gdip_Startup()
   pBitmap := Gdip_CreateBitmapFromHBITMAP(oGuiData[hwnd])
   Gdip_GetImageDimensions(pBitmap, WidthBM, HeightBM)
   RatioBM := WidthBM/HeightBM
   SquareBM := WidthBM*HeightBM
   
   WinGetPos, X, Y, W, H, ahk_id %hwnd%
   
   DeltaW := Round(W/(!wp ? 10 : 11))
   DeltaW := wp ? -DeltaW : DeltaW
   ResultW := W + DeltaW
   ResultH := Round(ResultW/RatioBM)
   ResultX := X - Round(DeltaW/2)
   ResultY := Y - Round((ResultH - H)/2)
   SquareWin := ResultW*ResultH
   if (!wp && SquareWin > 13000000) || (wp && SquareWin < 1000 && SquareWin < SquareBM)
      Return, "", Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)

   hbm := CreateDIBSection(ResultW, ResultH)
   hdc := CreateCompatibleDC()
   obm := SelectObject(hdc, hbm)
   G := Gdip_GraphicsFromHDC(hdc)
   
   Gdip_SetInterpolationMode(G, 7)
   Gdip_DrawImage(G, pBitmap, 0, 0, ResultW, ResultH, 0, 0, WidthBM, HeightBM)
   pPen := Gdip_CreatePen(0xFF808080, 2)
   Gdip_DrawRectangle(G, pPen, 1, 1, ResultW - 2, ResultH - 2)
   
   UpdateLayeredWindow(hwnd, hdc, ResultX, ResultY, ResultW, ResultH)

   Gdip_DeletePen(pPen), SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc)
   Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}

FileSelectFile, SelectFile, S3, %A_Now%.png , Сохранить скриншот, All Files(*.*)
 Gdip_SaveBitmapToFile(pBitmap, SelectFile)