Auto-enable accessible objects in Chrome

[Gintaras]

The dialog just uses API to get "object from mouse position". Then Edge enables objects. But Edge does not enable objects when something uses API for finding objects.

Function EnableChromeAcc

Code:

Copy      Help

function [w]

;Enables accessible objects in Chrome or Edge.

;w - browser window handle. If 0, this function tries to find Chrome or Edge.


if !w
,w=win("Google Chrome" "Chrome_WidgetWin_1")
,if !w
,,w=win("Microsoft​ Edge" "Chrome_WidgetWin_1")
,,if(!w) end "Browser window not found"

int c=child("" "Chrome_RenderWidgetHostHWND" w)
if(!c) end "Browser child window not found"

SendMessage(c WM_GETOBJECT 0 1)
Acc a.FromWindow(c OBJID_CLIENT)
rep 100
,int n=a.ChildCount
,if(n>0) break
,a.Name
,a.a.DefaultAction(0)
,0.02