Code: Select all
#Requires AutoHotKey v2.0+
#SingleInstance force
Persistent
SetTitleMatchMode 2
ptwb := WBGet("AutoHotkey Community")
if IsObject(ptwb)
{
ComObjConnect(ptwb, "IE_")
}
return
IE_DocumentComplete(ieEventParam, &url, ieFinalParam) {
if InStr(url,"https://www.autohotkey.com/boards/viewforum.php?f=82")
{
MsgBox("Ask for Help (v2) ")
}
}
WBGet(WinTitle:="ahk_class IEFrame", Svr:=1)
{
static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
, IID := "{0002DF05-0000-0000-C000-000000000046}" ;// IID_IWebBrowserApp
static VT_UNKNOWN := 13
lResult := SendMessage(msg, 0, 0, "Internet Explorer_Server" Svr, WinTitle)
if (lResult != "")
{
GUID:=Buffer(16)
if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",GUID) >= 0 {
DllCall("oleacc\ObjectFromLresult", "ptr",lResult, "ptr",GUID, "ptr",0, "ptr*",pdoc := ComValue(VT_UNKNOWN, 0))
pweb :=ComObjQuery(pdoc,IID,IID)
ObjAddRef(pweb.ptr)
static VT_DISPATCH := 9
return ComValue(VT_DISPATCH, pweb.ptr)
}
}
}