What Tabs Are Open In Firefox

[JohnOne 1,603]

After getting this little function working, I forgot why I was making it.

I use the term "working" lightly, as I've only tried it on my own machine under Win7 32 bit and I little unsure if it works on other setups

I know its not the greatest code and would probably be better with a RegExp, but I'm extremely poor at them.

Thanks to the folks

Improvements and or suggestions are most welcome, I'm already thinking about expanding it to work with other browsers, and perhaps detect the default browser or all open browsers and so forth.

;==================================================================
;Returns an array of open tab urls,
;[0] contains the count of open tabs
;[n] contains the urls
;==================================================================

#include <Array.au3>
#include <String.au3>
#include <File.au3>

$aTabs = _CurrentFFTabs()
_ArrayDisplay($aTabs)

Func _CurrentFFTabs()
    Local $aRtn[1]
    $sPath = @AppDataDir & "\Mozilla\Firefox\Profiles\"
    $aFolder = _FileListToArray($sPath, "*.default", 2)
    $sFolder = $aFolder[1]
    $sFile = FileRead($sPath & $sFolder & "\sessionstore.js")
    $sFile = StringLeft($sFile, StringInStr($sFile, "_closedTabs"))
    $stmp = StringStripWS($sFile, 8)
    $atmp = StringSplit($stmp, '_formDataSaved', 3)
    ReDim $aRtn[UBound($atmp)]
    $aRtn[0] = UBound($atmp) -1
    For $i = 0 To UBound($atmp) - 2
        $atmp2 = _StringBetween($atmp[$i], '"url":"', '","title')
        $aRtn[$i+1] = $atmp2[UBound($atmp2) - 1]
    Next
    Return $aRtn
EndFunc   ;==>_CurrentFFTabs

EDIT: forgot include

Edited August 17, 2011 by JohnOne

[martin 85]

Using XP Pro SP3 and FF v6.0 I get

Row Col

[0] 0

[bogQ 91]

_formDataSaved problem, its not in that file (probably its only for xp)

Edited August 17, 2011 by bogQ

[JohnOne 1,603]

It was always a worry it wont work. , I dont have a windows XP to use either in VM

I'm still using ff v3.6.18 as 4,5 break my scripts too

Is the folder and file even there in in win xp?

[bogQ 91]

ofc folder and file is located, but i cant locate the _formDataSaved in that file

i reedited the code from chat heare, this works for me on XP

#include <Array.au3>
#include <String.au3>
#include <File.au3>

$aTabs = _CurrentFFTabs()
_ArrayDisplay($aTabs)

Func _CurrentFFTabs()
    $aFolder = _FileListToArray(@AppDataDir & "\Mozilla\Firefox\Profiles\", "*.default", 2)
    $sFile = FileRead(@AppDataDir & "\Mozilla\Firefox\Profiles\" & $aFolder[1] & "\sessionstore.js")
    $TabsCount = StringSplit($sFile,'{"entries":[',1)
    Local $arrReturn[1]
    For $x = 2 To $TabsCount[0]
        $sometab = _StringBetween($TabsCount[$x], '{"url":"', '","title"')
        If IsArray($sometab) Then
            _ArrayAdd($arrReturn, $sometab[UBound($sometab) - 1])
            If StringInStr($TabsCount[$x],"_closedTabs") Then
                $arrReturn[0] = $x- 1
                Return $arrReturn
            EndIf
        Else
            MsgBox(0,"Error","Pages probably in the loading-opening process")
            Return
        EndIf
    Next
EndFunc

edit removed some lines that did not do anything

Edited August 17, 2011 by bogQ

[JohnOne 1,603]

That is better because its also working on Win 7.

Good stuff.

[martin 85]

That is better because its also working on Win 7.

Good stuff.

There is no sessionstore.js file in AppData for me. (FF V6.0)

[bogQ 91]

strange, can you hit windows search for it and tell where and if it finde it?

Edited August 17, 2011 by bogQ

[martin 85]

strange, can you hit windows search for it and tell where and if it finde it?

There is no file called sessionstore.js on my PC.

There is no file with a name containing "session" that is connected with Firefox, nor a file name containing "store" that is connected to Firefox.

[JohnOne 1,603]

Looks like this whole thing is doomed.

I turned my attentions to Internet Explorer

Found that their version is stored in appdata\local\microsoft\Internet explorer\recovery[\active[\last active]]{guid}.dat

Unfortunately you cannot access it while its in use.

[BiBiBi 0]

It works on ws 2008,xp32,w732

sessionstore.js is in cache folder

Still if i open few tabs in one window and open another window i cant see all urls.Geting tabs from IE is easy i found somewhere around few lines

#include <IE.au3>
Global $avArray[500]
Dim $aIE[1]
$aIE[0] = 0
$i = 1
While 1
$oIE = _IEAttach("", "instance", $i)
If @error = $_IEStatus_NoMatch Then ExitLoop
ReDim $aIE[$i + 1]
$aIE[$i] = $oIE
$aIE[0] = $i
$i += 1
$avArray[$i - 1] = $oIE.LocationURL
WEnd
$avArray[0] = $i - 1
For $s = 1 To $avArray[0]
MsgBox(0, "IE url " & $s & " of " & $avArray[0], $avArray[$s])
Next
If $avArray[0] = 0 Then MsgBox(0, "error", "no urs found,make sure you have some url opened in IE")

Edited September 6, 2011 by BiBiBi

[JohnOne 1,603]

Cant make much out of that code, where does $ufile come from.

[BiBiBi 0]

Sory abou that i edited code.Try it now

[JohnOne 1,603]

Ah, I see now, I didnt even think to use IE udf

But was ultimately firefox I was after, as I use that mostly, but just cannot get into using the great udfs for it, with that extra install

Thanks.

[IanN1990 20]

Heya, I tryed out

#include 
#include 
#include 

$aTabs = _CurrentFFTabs()
_ArrayDisplay($aTabs)

Func _CurrentFFTabs()
    $aFolder = _FileListToArray(@AppDataDir & "\Mozilla\Firefox\Profiles\", "*.default", 2)
    $sFile = FileRead(@AppDataDir & "\Mozilla\Firefox\Profiles\" & $aFolder[1] & "\sessionstore.js")
    $TabsCount = StringSplit($sFile,'{"entries":[',1)
    Local $arrReturn[1]
    For $x = 2 To $TabsCount[0]
        $sometab = _StringBetween($TabsCount[$x], '{"url":"', '","title"')
        If IsArray($sometab) Then
            _ArrayAdd($arrReturn, $sometab[UBound($sometab) - 1])
            If StringInStr($TabsCount[$x],"_closedTabs") Then
                $arrReturn[0] = $x- 1
                Return $arrReturn
            EndIf
        Else
            MsgBox(0,"Error","Pages probably in the loading-opening process")
            Return
        EndIf
    Next
EndFunc

On Windows 7 Proffesional N - Firefox 7.0.1 and it seams to detect the open tabs correctly "though crashes a bit if i have about:home open "

I played around with the code for a hour or two with no luck but is there a way to get this functionaility from that code

if $a=1 and firefox > more then 1 tab then

switch tab

else $=a and firefox > 1 tab switch back to orginal tab

[jaberwacky 327]

After getting this little function working, I forgot why I was making it.

For some reason this makes me giggle like a school girl.

[JohnOne 1,603]

I played around with the code for a hour or two with no luck but is there a way to get this functionaility from that code

if $a=1 and firefox > more then 1 tab then

switch tab

else $=a and firefox > 1 tab switch back to orginal tab

You would probably need the FF.au3 UDFs with MozRepl installed for that sort of thing.

[IanN1990 20]

hmmm i am never a big fan of installing extra software and trying to understand the ff.au3 is prob out of my level atm so for the time being i will prob scale back my idea to something simplier

Is there any way from that code i could detect if more then 1 tab is open

if firefox > 1 tab then

send "crtl+tab"

else

minimize

endif

As the code above lists how many tabs there are open but i couldn't figure out how to use that information for my if statement

P.S Small idea i had in the array box it stores 2 peices of information, a node number and the site address. Could i set it up to detect a address and if it does then remember the node number "is 3". So when it comes to switching back assuming no other websites have been closed i could send-keys "ctrl+tab" node number - 1

Edited October 15, 2011 by IanN1990

[JohnOne 1,603]

$aTabs = _CurrentFFTabs()

That returns an array (providing the file is present) and its first element holds the index count, so...

$aTabs = _CurrentFFTabs()

If $aTabs[0] > 1 Then

;...your code

EndIf

[IanN1990 20]

thanks