Here's one thing I'd like to see implemented, optional URL navigation built into
iWeb_newIE() and
iWeb_Model() (I also wrote a leaner and possibly meaner
iWeb_complete() function to go along with it):
Code:
pwb := newIE("http://www.google.com")
; pwb := model(0,0,"http://www.google.com")
pwb.document.all["q"].value := "hello world!"
pwb := ""
return
newIE(url="") {
navTrustedForActiveX := 0x0400
pweb := (pweb := COM_CreateObject("InternetExplorer.Application") ) ? (pweb,pweb.visible := True) : 0
if url
pweb.navigate[url,navTrustedForActiveX,"_self"]
return pweb
}
model(h=550,w=900,url="") {
navTrustedForActiveX := 0x0400, h := !h ? 550 : h, w := !w ? 900 : w
If !pwb := newIe(url)
return False
pwb.menuBar := 0, pwb.AddressBar := 0, pwb.statusBar := 0, pwb.height := h, pwb.width := w
WinSet,AlwaysOnTop,On,% "ahk_class " pwb.hwnd
Return pwb
}
complete(pwb) {
If !pwb
return False
Loop 100
If (pwb.readyState = 4)
&& (pwb.document.readystate = "complete")
Return True
Else Sleep, 300
Return False
}
Another thing I'd like to see is a click function with more universal handling so all current possibilities (obj,text,href,value) can be called from one function rather than having four separate functions:
Code:
pwb := newIE("http://www.google.com")
complete(pwb)
pwb.document.all["q"].value := "hello world!"
; click(pwb,"btnG")
click(pwb,"Google Search","value")
pwb := ""
return
newIE(url="") {
navTrustedForActiveX := 0x0400
pweb := (pweb := COM_CreateObject("InternetExplorer.Application") ) ? (pweb,pweb.visible := True) : 0
if url
pweb.navigate[url,navTrustedForActiveX,"_self"]
return pweb
}
complete(pwb) {
If !pwb
return False
Loop 100
If (pwb.readyState = 4)
&& (pwb.document.readystate = "complete")
Return True
Else Sleep, 300
Return False
}
click(pwb,obj,type="",frm="") { ; 'type' supports "innerText", "href" and "value"
if !pWin := domWin(pwb,frm)
return False
if !type
return pWin.document.all[obj].click
Loop % (type="value") ? pWin.document.all.length
: pWin.document.links.length {
COM_Error(0)
itm := (type="value") ? pWin.document.all.item[A_Index-1]
: pWin.document.links.item[A_Index-1]
if (type = "value") {
if (inpt(itm) ? InStr(itm.value,obj) : 0) {
itm.click(), COM_Error(1)
return True
}
}
else if InStr(itm[type],obj) {
itm.click(), COM_Error(1)
return True
}
}
COM_Error(1)
return False
}
domWin(pdsp,frm="") {
qsid := "{332C4427-26CB-11D0-B483-00C04FD90119}"
If !pWin := COM_QueryService(pdsp, qsid, qsid)
return False
If frm {
Loop, Parse, frm, `,
{
frame:=pWin.document.all.item[A_LoopField].contentwindow
pWin:=COM_QueryService(frame, qsid, qsid)
If !pWin
Return False
}
}
Return COM_Enwrap(pWin)
}
inpt(i) {
return InStr("BUTTON,INPUT,OPTION,SELECT,TEXTAREA",i.tagName) ? True : False
}
Login
Register
FAQ
Search
. I implemented a Cross-Hair to outline webpage elements - rather than holding control. I didn't want to redesign the main GUI, so I put it in my compact version for testing. Could you guys try it out & let me know what you think?
