AutoHotkey Community

SetTitleMatchMode, 2  ; Work on abreviated title

IfWinActive, OCR
{
   Sleep,1000  ;sleep 1 second
   IfWinInactive, OCR  ; if the top window becomes inactive
       {
        A_Index :=0  ; reset the loop counter - can you do this ?
       }
    If  A_Index=10 return  ;if 10 secs have passed without the window   altering then exit the loop
} ;end of loop[\code]

SetTitleMatchMode, 2  ; Work on abreviated title
Loopcount:=0
IfWinActive, OCR
{
   Sleep,1000  ;sleep 1 second
  Loopcount=Loopcout+1
   IfWinNotActive, OCR  ; if the top window becomes inactive
       {
        Loopcount :=0  ; reset the loop counter - can you do this ?
       }
    If  %Loopcount%=10
{
return
}  ;if 10 secs have passed without the window   altering then exit the loop
} ;end of loop

#z::
#Include RegionWaitChange.ahk

Run, notepad ; open notepad
WinWait, Untitled - Notepad ; wait for window to exist

ControlSetText, Edit1 ; delete any current text
MsgBox, Notepad is empty`, press F12 to fill it with random text.

; monitor the region of 100px width and height from coordinate (10, 10):
RegionWaitChange(10, 10, 100, 100, "Untitled - Notepad")
; once the region changed the script will continue here:
MsgBox, Notepad has changed! (RegionWaitChange completed)

WinClose
ExitApp

F12::
VarSetCapacity(dots, 5000, Asc(".")) ; fill a variable with something
ControlSetText, Edit1, %dots%, Untitled - Notepad ; change the text on notepad artificially
dots = ; free variable
Return

/*
   Function: RegionWaitChange
   
   Waits for a region of a window to change.
   
   Parameters:
      x, y - coordinates relative to window
      w, h - size of the region to monitor (default: 1 and 1 respectively)
      t - window title (default: Last Found Window <http://www.autohotkey.com/docs/LastFoundWindow.htm>)
      f - check frequency in milliseconds (default: 500)
      s - maximum image buffer size (default: 64 MiB)
      inv - *reserved*
   
   Function: RegionWaitStatic
   
   Identical to the previous function except waits until the specified region stops changing.
   
   Function: DCCBitmapHash
   
   Returns an MD5 hash of a window region.
   
   Parameters:
      hwnd - window handle
      x, y - coordinates relative to window
      w, h - size of region
      s - maximum image buffer size (default: 64 MiB)
   
   About: License
      - Version 1.01 by Titan <http://www.autohotkey.net/~Titan/#regionwaitchange>
      - GNU General Public License 3.0 or higher <http://www.gnu.org/licenses/gpl-3.0.txt>
*/


RegionWaitChange(x, y, w = 1, h = 1, t = "", f = 500, s = 67108864, inv = false) {
   hwnd := WinExist(t)
   Loop {
      hc := DCCBitmapHash(hwnd, x, y, w, h, s)
      If ((inv ? hc = lhc : hc != lhc) and lhc != "")
         Return, true
      lhc := hc
      Sleep, f
   }
}

RegionWaitStatic(x, y, w = 1, h = 1, t = "", f = 1000, s = 67108864) {
   RegionWaitChange(x, y, w, h, t, f, s, true)
}

DCCBitmapHash(hwnd, x, y, w = 1, h = 1, s = 67108864) {
   hdc := DllCall("GetDC", "UInt", hwnd)
   hcdc := DllCall("CreateCompatibleDC", "UInt", hdc)
      
   hbmp := DllCall("CreateCompatibleBitmap", "UInt", hdc, "UInt", w, "UInt", h)
   DllCall("SelectObject", "UInt", hcdc, "UInt", hbmp)
   
   DllCall("BitBlt", "UInt", hcdc, "Int", 0, "Int", 0, "Int", w, "Int", h
      , "UInt", hdc, "Int", x, "Int", y, "UInt", 0x00CC0020) ; SRCCOPY
   
   sz := VarSetCapacity(bits, s, 0)
   sz := DllCall("GetBitmapBits", "UInt", hbmp, "UInt", sz, "UInt", &bits)
   
   DllCall("DeleteObject", "UInt", hbmp)
   DllCall("DeleteDC", "UInt", hcdc)
   DllCall("ReleaseDC", "UInt", hwnd, "UInt", hdc)
   
   Return, GetHashCode(bits, sz)
}

#Include Hash.ahk