Chrome Tabs

[Deye]

@ keeping only certain tabs open flushing out the rest, worked out from this help and support topic

Note that if chrome is busy processing something like waiting for a page to respond or anything like that there is a good chance the script then hangs

expandcollapse popup

#include <WinAPI.au3>

Global $aProtected[5] = [4, "Gmail", "autoit", "Google Search", "YouTube"]

Local $a = WinList("[CLASS:Chrome_WidgetWin_1]")
If Not IsArray($a) Then Exit

For $i = 1 To UBound($a) - 1
    If $a[$i][0] Then _Process($a[$i][1])
Next

Func _Process($hWnd)
    Local $hC = _WinAPI_GetClassName(_WinAPI_GetWindow($hWnd, $GW_CHILD)), $bClose = True, $x = 1, $tmp
    WinActivate($hWnd)
    ControlSend($hWnd, "", $hC & 1, "^t")
    ControlSend($hWnd, "", $hC & 1, "^t")
    ControlSend($hWnd, "", $hC & 1, "^{TAB}")
    $oBuffer = ObjCreate('Scripting.Dictionary')

    Do
        $bClose = True
        $tmp = WinGetTitle($hWnd, "")

        If $oBuffer.Exists($tmp) Then
            ControlSend($hWnd, "", $hC & 1, "^w")
        Else
            For $i = 1 To $aProtected[0]
                If StringInStr($tmp, $aProtected[$i]) Then
                    $bClose = False
                    ExitLoop
                EndIf
            Next
            If $bClose Then
                ControlSend($hWnd, "", $hC & 1, "^w")
            Else
                $x += 1
            EndIf
            $oBuffer.Item($tmp) = 1
        EndIf
        Sleep(300)
        ControlSend($hWnd, "", $hC & 1, "^+{TAB}")
    Until Not HWnd(ControlGetHandle($hWnd, "", $hC & $x + 1))
EndFunc   ;==>_Process

 

Edited December 25, 2017 by Deye
Slowed down

[Earthshine]

Excellent work. Hey, this could be used in another thread where the guy couldn’t get his chrome tabs to close

Edited December 25, 2017 by Earthshine

[Deye]

Earthshine,
glad you liked it

slowed it down now so it's more reliable and seizure free

[DynamicRookie]

On 25/12/2017 at 6:07 AM, Deye said:

@ keeping only certain tabs open flushing out the rest, worked out from this help and support topic

Note that if chrome is busy processing something like waiting for a page to respond or anything like that there is a good chance the script then hangs

expandcollapse popup

#include <WinAPI.au3>

Global $aProtected[5] = [4, "Gmail", "autoit", "Google Search", "YouTube"]

Local $a = WinList("[CLASS:Chrome_WidgetWin_1]")
If Not IsArray($a) Then Exit

For $i = 1 To UBound($a) - 1
    If $a[$i][0] Then _Process($a[$i][1])
Next

Func _Process($hWnd)
    Local $hC = _WinAPI_GetClassName(_WinAPI_GetWindow($hWnd, $GW_CHILD)), $bClose = True, $x = 1, $tmp
    WinActivate($hWnd)
    ControlSend($hWnd, "", $hC & 1, "^t")
    ControlSend($hWnd, "", $hC & 1, "^t")
    ControlSend($hWnd, "", $hC & 1, "^{TAB}")
    $oBuffer = ObjCreate('Scripting.Dictionary')

    Do
        $bClose = True
        $tmp = WinGetTitle($hWnd, "")

        If $oBuffer.Exists($tmp) Then
            ControlSend($hWnd, "", $hC & 1, "^w")
        Else
            For $i = 1 To $aProtected[0]
                If StringInStr($tmp, $aProtected[$i]) Then
                    $bClose = False
                    ExitLoop
                EndIf
            Next
            If $bClose Then
                ControlSend($hWnd, "", $hC & 1, "^w")
            Else
                $x += 1
            EndIf
            $oBuffer.Item($tmp) = 1
        EndIf
        Sleep(300)
        ControlSend($hWnd, "", $hC & 1, "^+{TAB}")
    Until Not HWnd(ControlGetHandle($hWnd, "", $hC & $x + 1))
EndFunc   ;==>_Process

 

This is just what i needed, tysm

 

But how i can add an exception to dont close a certain tab?

 

EDIT: Nvm, i did not notice about the $aProtected variable, still nice work with this script, keeps clean my browser.

Edited January 3, 2018 by DynamicRookie

[water]

DR,
it is not necessary to quote every post you want to reply to. It just clutters the thread.
Simply click on the Reply button. And if needed refer to a post number or the name of the other poster

[DynamicRookie]

Oki thanks for the tip

[Deye]

Recent changes in chrome wont work with the above
Only to show that things are still workable I uploaded a runnable example:

 

Edited August 15, 2018 by Deye

[Danp2]

Why would you upload this without including source code?

[Deye]

Hi Danp2,

Sorry, didn't mean to mislead .. 

I'm using more or less the same method as above
For now .., any one motivated to come up with there own can compare the results with this one if that's something to try ..
i reckoned that there ain't something that is worth to promote with this and probably not something that is acceptable by the chrome team !
I'm also tying to test other things - encryption methods @compiles and stuff..

Thanks 
Deye
 

[Deye]

Hi,

Can any one only give an approval that this last version is running properly
Its already at version 1.0.0.8 , Overcoming all former glitches ..

* in my tests, if the browser is super busy then it may miss a tab that was intended to be closed, else all otherwise ..
* IGWS: if your AV warns you of a virus then don't post back on such a thing (It isn't  )

Thanks

Deye

Edited August 17, 2018 by Deye