AutoHotkey Community

/*
// Get and return a numerical value from the given buffer (@source) at given
// offset (_offset, in bytes). By default get a UInt/DWORD/Long (4 bytes)
// but _size parameter can be set to another size (in bytes).
// If _bIsSigned is true, interpret the result as signed number.
*/
; @source is a string (buffer) whose memory area contains a raw/binary integer at _offset.
; The caller should pass true for _bIsSigned to interpret the result as signed vs. unsigned.
; _size is the size of @source's integer in bytes (e.g. 4 bytes for a DWORD or Int).
; @source must be ByRef to avoid corruption during the formal-to-actual copying process
; (since @source might contain valid data beyond its first binary zero).
GetInteger(ByRef @source, _offset = 0, _size = 4, _bIsSigned = false)
{
   local result

   Loop %_size%  ; Build the integer by adding up its bytes.
   {
      result += *(&@source + _offset + A_Index-1) << 8*(A_Index-1)
   }
   If (!_bIsSigned OR _size > 4 OR result < 0x80000000)
      Return result  ; Signed vs. unsigned doesn't matter in these cases.
   ; Otherwise, convert the value (now known to be 32-bit & negative) to its signed counterpart:
   return -(0xFFFFFFFF - result + 1)
}

/*
// Set a numerical value (_integer) in the given buffer (@dest) at given
// offset (_offset, in bytes). By default set a UInt/DWORD/Long (4 bytes)
// but _size parameter can be set to another size (in bytes).
*/
; The caller must ensure that @dest has sufficient capacity.
; To preserve any existing contents in @dest,
; only _size number of bytes starting at _offset are altered in it.
SetInteger(ByRef @dest, _integer, _offset = 0, _size = 4)
{
   Loop %_size%  ; Copy each byte in the integer into the structure as raw binary data.
   {
      DllCall("RtlFillMemory"
            , "UInt", &@dest + _offset + A_Index-1
            , "UInt", 1
            , "UChar", (_integer >> 8*(A_Index-1)) & 0xFF)
   }
}

#Include BinReadWrite.ahk

filename = BigFile.data

foh := OpenFileForWrite(filename)
Loop %A_WinDir%\*.bmp
{
   fih := OpenFileForRead(A_LoopFileFullPath)
   len := ReadFromFile(fih, data)
   WriteInFile(foh, data, len)   ; Give size because data var is larger than given bytes
}
CloseFile(foh)

BmpData := ClipboardAll
Pointer := &BmpData
Pointer += 68

handle := OpenFileForWrite(a_filename)
WriteInFile(handle, pointer, a_length)
CloseFile(handle)

#Include BinReadWrite.ahk

Print:
~PrintScreen::
~!PrintScreen::
    ScreenShot(A_Hour "." A_Min "." A_Sec ".bmp")
return

; Capturing Procedure
ScreenShot(filename)
{
    ; Copy clipboard data to a variable
    ClipData := ClipboardAll
           
    ; Get Image Dimensions
    ; Width Bytes
    VarSetCapacity(BinWidth, 4, 0)
    DllCall("RtlMoveMemory", UInt, &BinWidth, UInt, &(ClipData) + 20, Int, 4)
   
    ; Calculate Decimal Width
    x1 := *(&(BinWidth)+1)
    x2 := *(&(BinWidth))
    Width := (x1 * 256) + x2
   
    ; Height Bytes   
    VarSetCapacity(BinHeight, 4, 0)
    DllCall("RtlMoveMemory", UInt, &BinHeight, UInt, &(ClipData) + 24, Int, 4)

    ; Calculate Decimal Width
    y1 := *(&(BinHeight)+1)
    y2 := *(&(BinHeight))
    Height := (y1 * 256) + y2   
   
    ; Variable initialization
    VarSetCapacity(ImageFile, (Width * Height * 4) + 54, 0)
    VarSetCapacity(BmpHeader, 54, 0)
   
    ; BMP Header Construction
    ; Find a bmp file to copy the header
    Loop, % A_WinDir "*.bmp", 0, 1
    {
        FileRead, BmpHeader, % A_LoopFileLongPath
        break
    }
   
    ; Copy the correct image size to valid BMP Header
    DllCall("RtlMoveMemory", UInt, &(BmpHeader) + 18, UInt, &BinWidth, Int, 4)
    DllCall("RtlMoveMemory", UInt, &(BmpHeader) + 22, UInt, &BinHeight, Int, 4)
   
    ; Copy the correct bit depth to valid BMP Header
    DllCall("RtlMoveMemory", UInt, &(BmpHeader) + 28, UInt, &(ClipData) + 30, Int, 2)
   
    ; Copy the BMP Header to new ImageFile variable
    DllCall( "RtlMoveMemory", UInt, &ImageFile, UInt, &BmpHeader, Int, 54)
    ; Copy the Image data to new ImageFile variable
    DllCall( "RtlMoveMemory", UInt, &(ImageFile) + 54, UInt, &(ClipData) + 68, Int, Width * Height * 4)
       
    ; Write data to file
    fh := OpenFileForWrite(filename)
    WriteInFile(fh, ImageFile, (Width * Height * 4) + 54)
    CloseFile(fh)
}