AutoHotkey Community

a := 1
MsgBox % DumpDWORDs(a, 4)

FormatHexNumber(_value, _digitNb)
{
   local hex, intFormat

   ; Save original integer format
   intFormat = %A_FormatInteger%
   ; For converting bytes to hex
   SetFormat Integer, Hex

   hex := _value + (1 << 4 * _digitNb)
   StringRight hex, hex, _digitNb
   ; I prefer my hex numbers to be in upper case
   StringUpper hex, hex

   ; Restore original integer format
   SetFormat Integer, %intFormat%

   Return hex
}

/*
// For debugging, return formatted hex string separating DWORDs
// Idem to Bin2Hex, usable directly in a MsgBox...
// Extended mode: give offsets and Ascii dump.
*/
DumpDWORDs(ByRef @bin, _byteNb, _bExtended=false)
{
   local dataSize, dataAddress, granted, line, dump, hex, ascii
   local dumpWidth, offsetSize, resultSize

   offsetSize = 4   ; 4 hex digits (enough for most dumps)
   dumpWidth = 32
   dataAddress := &@bin
   ; Make enough room (faster)
   resultSize := _byteNb * 4
   If _bExtended
   {
      dumpWidth = 16 ; Make room for offset and Ascii
      resultSize += offsetSize + 8 + dumpWidth
   }
   granted := VarSetCapacity(dump, resultSize)
   if (granted < resultSize)
   {
      ; Cannot allocate enough memory
      ErrorLevel = Mem=%granted%
      Return -1
   }
   If _bExtended
   {
      offset = 0
      line := FormatHexNumber(offset, offsetSize) ": "
   }
   Loop %_byteNb%
   {
      ; Get byte in hexa
      hex := FormatHexNumber(*dataAddress, 2)
      If _bExtended
      {
         ; Get byte in Ascii
         If (*dataAddress >= 32)   ; Not a control char
         {
            ascii := ascii Chr(*dataAddress)
         }
         Else
         {
            ascii := ascii "."
         }
         offset++
      }
      line := line hex A_Space
      If (Mod(A_Index, dumpWidth) = 0)
      {
         ; Max dumpWidth bytes per line
         If (_bExtended)
         {
            ; Show Ascii dump
            line := line " - " ascii
            ascii =
         }
         dump := dump line "`n"
         line =
         If (_bExtended && A_Index < _byteNb)
         {
            line := FormatHexNumber(offset, offsetSize) ": "
         }
      }
      Else If (Mod(A_Index, 4) = 0)
      {
         ; Separate bytes per groups of 4, for readability
         line := line "| "
      }
      dataAddress++   ; Next byte
   }
   If (Mod(_byteNb, dumpWidth) != 0)
   {
      If (_bExtended)
      {
         line := line " - " ascii
      }
      dump := dump line "`n"
   }

   Return dump
}

var = 1234567890

;copy variables address to clipboard
setformat, integer, hex
offset := &var
stringtrimleft, offset, offset, 2 ;remove 0x for WinHex
clipboard = %offset%

setformat, integer, dec
process, exist
msgbox,
(
Content: %var%
Offset: 0x%offset%

Now start Winhex and go through the following steps:
- Menu: Tools -> Open RAM (Alt+F9)
- Double click "Autohotkey #%errorlevel%"
- Select "Entire Memory" and click OK
- Menu: Postition -> Go To Offset (Alt+G)
- Paste the Offset of the variable (it has already been copied to the clipboard) and click OK
)

DllCall("MessageBox", "int", "0", "str", "example", "str", "My First DllCall", "Uint", "MB_YESNO")

return

DllCall("kernel32.dll\GlobalMemoryStatus"
       ,"uint",&memoryusage
       ,"uint",&availphys
       ,"unit",&totalpagefile)

msgbox % &memoryusage
msgbox % &availphys
msgbox % &totalpagefile

 DllCall("SendMessage"
                  , "UInt", _ctrlID
                  , "UInt", ???
                  , "Str", ""
                  , "Cdecl Str", &_tmp1)

DllCall("SendMessage"
                  , "UInt", _ctrlID
                  , "UInt", 0x461
                  , "Str", ""
                  , "Str", opt1) ; EM_SETTEXTEX

WS_CHILD           :=

0x40000000
WS_VISIBLE         := 0x10000000
WS_EX_CLIENTEDGE   := 0x200
GWL_HINSTANCE      := -6
WM_USER            := 0x400