iguru42 wrote:
Crap still nothing.
This is the script now in its entirety. I feel like I'm really letting you guys down or something, cuz I have the feeling its something pretty obvious. I commented out the Includes and AHK barfed on the reload which is to be expected, so com and iweb are being called correctly....
Code:
SetTitleMatchMode 2
#SingleInstance Force
#Persistent
#Include com.ahk
#Include iweb.ahk
F11::iWeb_execScript(pDoc,"alert('hello');")
OK, this will not work because you removed the code that actually does anything. All the other stuff that was posted needs to go with the above or it will not do anything useful for you.
Try running the below code without editing it, and tell us which messages you get. Don't bother posting the 'last executed lines', it would be more useful to post the variable list, if anything at all!
We can help you here with a little debugging, but don't go removing big chunks of the code and expect it to work
Code:
SetTitleMatchMode 2
#SingleInstance Force
#Persistent
#Include com.ahk
#Include iweb.ahk
F11::
jMatch:="i)^javascript:runBreadCrumb\('m_(\w+)', 'incident',''\);"
iWeb_Init() ; starts COM
ControlGet,hWnd,Hwnd,,Internet Explorer_Server1, ahk_class IEFrame ; gets the window handle for the document interface in Internet Explorer
If ( !hWnd )
{
MsgBox, hWnd is empty. Is Internet Explorer open? If not, open it now and then press OK.
Reload
Sleep, 1000
MsgBox, 4,, The script could not be reloaded (1).
ExitApp
}
pDoc:=IE_GetDocument(hWnd) ; creates an pointer to access the page document
If ( !pDoc )
{
MsgBox, pDoc is empty. Is Internet Explorer open? If not, open it now and then press OK.
Reload
Sleep, 1000
MsgBox, 4,, The script could not be reloaded (2).
ExitApp
}
MatchFound := false
Loop % iWeb_getTagLen(pDoc,"A") { ; loops through all of the link elements on the page
if RegExMatch(iWeb_getTagObj(pDoc,"A",A_Index-1,-1,-1,"href"),jMatch,m)
{ ; checks to see if the href of the element matches our regular expression search
iWeb_execScript(pDoc,"alert('hello');');") ; will execute the javascript with the saved pattern, again adjust any redacted information as needed
MatchFound := true
break
}
}
iWeb_Release(pDoc) ; releases the pointer to the page document
iWeb_Term() ; stops COM
If ( !MatchFound )
{
MsgBox, No match for "javascript:runBreadCrumb(m_" found on the Internet Explorer page you have open. Do you have the right page open? If not, load the correct web page and press OK.
Reload
Sleep, 1000
MsgBox, 4,, The script could not be reloaded (3).
ExitApp
}
iWeb_getTagLen(pdsp,tag,t="-1",r="-1",frm="") {
If pWin:=iWeb_DomWin(pdsp,frm) ; doesn't this cover the frames already?
result:=COM_Invoke(pWin,"document.all.tags[" tag "]"
. ((tag="table" && t>=0) ? ".item[" t "].rows" : "") ((tag="table" && r>=0) ? "[" r "].cells" : "")
. ".length")
COM_Release(pWin)
return result
}
iWeb_getTagObj(pdsp,tag,itm,r="-1",c="-1",type="innerText",frm="") {
If pWin:=iWeb_DomWin(pdsp,frm)
result:=COM_Invoke(pWin,"document.all.tags[" tag "].item[" itm "]"
. ((tag="table" && r>=0) ? ".rows[" r "]" : "") ((tag="table" && c>=0) ? ".cells[" c "]" : "")
. "." type)
COM_Release(pWin)
return result
}
IE_GetDocument(hWnd)
{
Static
If Not pfn
pfn := DllCall("GetProcAddress", "Uint", DllCall("LoadLibrary", "str", "oleacc.dll"), "str", "ObjectFromLresult")
, msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
, COM_GUID4String(iid, "{00020400-0000-0000-C000-000000000046}")
If DllCall("SendMessageTimeout", "Uint", hWnd, "Uint", msg, "Uint", 0, "Uint", 0, "Uint", 2, "Uint", 1000, "UintP", lr:=0) && DllCall(pfn, "Uint", lr, "Uint", &iid, "Uint", 0, "UintP", pdoc:=0)=0
Return pdoc
}
return
Login
Register
FAQ
Search
out of sick 
curiosity why IE_GetDocument(hWnd) vs iweb_getwin what advantage does it hold in your uses
. In fact you weren't overly fond of them when I 
smokes crack backing away from the dope now. I stand by my objections but hindsite is after all 20/20