This is a place to get help with AHK, programming logic, syntax, design, to get feedback, or just to rubber duck. There is zero tolerance for incivility toward others or for cheaters. Be sure you read the rules, read the sticky, keep your AHK up to date, be clear about what you need help with, and never be afraid to post. We're all here to either teach or be taught, so be good to each other. I wish you all the best. ~GroggyOtter
Working WinHole AHK v2 script (transparent floating section to interact with window below)
I recently came across a video discuss a autohotkey script called Winhole.
You activate it with a shortcut F1 and it surrounds your mouse pointer with a transparent see through section to your window underneath your current window and allows you to interact with the below window
Very useful if you want to quickly copy and paste from the window below without switching windows
Link:https://www.autohotkey.com/boards/viewtopic.php?t=133740
I tried the script and it only works on my primary monitor as well as won't work again after escaping it once. The original script didn't work and gave runtime error so that might explain that a laterAHK update broke it.
#Requires AutoHotKey v2.0+#SingleInstance force Persistent; Note: Exit script with Esc::OnExit(exit.Bind()); Settingsradius:=200 ; Starting radius of the hole.increment:=25 ; Amount to decrease/increase radius of circle when turning scroll wheelrate:=40 ; The period (ms) of the timer. 40 ms is 25 "fps"Toggle := 0; Make the regionregion:=makeCircle(radius); Script settingsSetWinDelay(-1)ListLines(false) ; Remove when debugging.F1:: { global Toggle timer(Toggle:=!Toggle,region,rate) return }#HotIf Togglec:: ; When on, type c for copying. { global Toggle Send("^c") Sleep(100) timer(Toggle:=!Toggle,region,rate) ; Toggle on/off return }returnWheelUp:: ; Increase the radius of the circleWheelDown:: ; Decrease -- "" -- { global radius,region InStr(A_ThisHotkey, "Up") ? radius+=increment : radius-=increment radius<1 ? radius:=1 : "" ; Ensure greater than 0 radius region:=makeCircle(radius) timer(1,region) return }^WheelUp::^WheelDown::Switchwindows() ; Switch windows#HotIfesc::exit() ; Exit script with Esc::exit(*){ timer(0) ; For restoring the window if region applied when script closes. ExitApp}Switchwindows(){ ; Get the absolute coordinates corresponding to the current mouse position. prevCM := CoordMode("Mouse", "Screen") MouseGetPos(&x, &y) CoordMode("Mouse", prevCM) ; The method to obtain the hWnd of the root window located below the absolute coordinates x and y is as follows. hWnd := DllCall("User32.dll\WindowFromPoint", "Int64",(x & 0xFFFFFFFF) | (y << 32), "Ptr") hRootWnd := DllCall("User32.dll\GetAncestor", "Ptr",hWnd, "UInt",GA_ROOT := 2, "Ptr") ; Move the window under the current mouse to the bottom: WinMoveBottom("ahk_id " hRootWnd) return}timer(state,region:="",rate:=50){ ; Call with state=0 to restore window and stop timer, state=-1 stop timer but do not restore ; region, see WinSet_Region() ; rate, the period of the timer. static timerFn:="", hWin:="", aot:="" if (state=0) { ; Restore window and turn off timer if timerFn SetTimer(timerFn,0) if !hWin return WinSetRegion(, "ahk_id " hWin) if !aot ; Restore not being aot if appropriate. WinSetAlwaysOnTop(0, "ahk_id " hWin) hWin:="",timerFn:="",aot:="" return } else { if (timerFn) ; ... stop timer before starting a new one. SetTimer(timerFn,0) if !hWin { ; Get the window under the Mouse. MouseGetPos(, , &hWin) aot := WinGetExStyle("ahk_id " hWin) ; Get always-on-top state, to preserve it. aot&=0x8 ;0x8 为 WS_EX_TOPMOST if !aot WinSetAlwaysOnTop(1, "ahk_id " hWin) ;on-top window } timerFn:= timerFunction.Bind(hWin,region) ; Initialise the timer. timerFn.Call(1) ; For better responsiveness, 1 is for reset static SetTimer(timerFn,rate) return }}timerFunction(hWin,region,resetStatic:=0){ ; Get mouse position and convert coords to win coordinates, for displacing the circle static px:="",py:="" WinGetPos(&wx, &wy, , , "ahk_id " hWin) CoordMode("Mouse", "Screen") MouseGetPos(&x, &y) x-=wx,y-=wy if (x=px && y=py && !resetStatic) return else px:=x,py:=y WinSet_Region(hWin,region,x,y) return}WinSet_Region(hWin,region,dx:=0,dy:=0){ ; hWin, handle to the window to apply region to. ; Region should be on the form, region:=[{x:x0,y:y0},{x:x1,y:y1},...,{x:xn,y:yn},{x:x0,y:y0}] ; dx,dy is displacing the the region by fixed amount in x and y direction, respectively. ; inverted=true, make the region the only part visible, vs the only part see-throughable for inverted=false WinGetPos(, , &w, &h, "ahk_id " hWin) regionDefinition.= "0-0 0-" h " " w "-" h " " w "-0 " "0-0 " for k, pt in region regionDefinition.= dx+pt.x "-" dy+pt.y " " WinSetRegion(regionDefinition, "ahk_id " hWin)}; Function for making the circlemakeCircle(r:=100,n:=-1){ ; r is the radius. ; n is the number of points, let n=-1 to set automatically (highest quality). static pi:=ATan(1)*4 pts:=[] n:= n=-1 ? Ceil(2*r*pi) : n n:= n>=1994 ? 1994 : n ; There is a maximum of 2000 points for WinSet,Region,... loop n+1 t:=2*pi*(A_Index-1)/n, pts.push({x:Round(r*Cos(t)),y:Round(r*Sin(t))}) return pts}; Author: Helgef; Date: 2017-04-15Anyone have a working WinHole version for AHK v2 ?
