Tweak GetChildObjects routine

[ldarrambide]

Try this version.
Member function Acc.FindFirefoxWebRoot

Code:

Copy      Help

function hwnd

;Gets root object of current web page in Firefox.

FromWindow(hwnd OBJID_CLIENT)
VARIANT v=a.Navigate(0x1009 1)
a=v.pdispVal

err+ end _error

Fails with this error : Error (RT) in FirefoxUrlFromTabName: 0x80004005, no specified error. ?

or replace the a.Find(hwndFF "DOCUMENT" ... line with
Function FirefoxGetTabs

Code:

Copy      Help

#if QMVER<0x2030400
a.Find(hwndFF "DOCUMENT" "" "" 0x3000 0 0 "pa3fi")
err
,a.Find(hwndFF "DOCUMENT" "" "" 0x1010 1 0 "pa3fi")
,err a.Find(hwndFF "" "" "" 0x3010 1 0 "pa4fi")
#else
a.Find(hwndFF "" "" "" 0x3000 2 0 "pa3fi")
#endif

It will be slower only if current tab is "New Tab" (no "DOCUMENT")

Works but much slower than previous version

or

Code:

Copy      Help

Function [b]FirefoxGetTabs[/b] [help1][/help1]
[code]#if QMVER<0x2030400
a.Find(hwndFF "DOCUMENT" "" "" 0x3000 0 0 "pa3fi")
err a.Find(hwndFF "" "" "" 0x3010 1 0 "pa4fi")
#else
a.Find(hwndFF "" "" "" 0x3000 2 0 "pa3fi")
#endif

Fails : Error (RT) in FirefoxUrlFromTabName: object not found. ?