Popup blocker for firefox

[goldenix]

Tag : Popup blocker / Pop-up blocker

So my Firefox does not block those popups anymore, in fact it opens them in totally new window, even despite the fact its configured to open links in new tab.

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.11.1 (beta)
 Author:         goldenix

 Script Function:
 
 How to use? just start firefox & run the code.
    
    1) get main handle
    2) if blacklisted window exists get its handle & Winclose
    3) blacklisted window names are inside pop_adress.txt (last line must be empty)
    4) $loopspeed = how fast it should check for blacklisted windows (speed 10 should me minimum)
    
Remarks:
    
    [Mozilla Firefox] dont remove this entry from pop_adress.txt it must be there,
    because first window is always named [Mozilla Firefox] & it will navigate to 
    
    $var[$i][0]
    -> [$i]=array column1
    -> [0]=array column2
    
    See WinList() finction for original gethandles code
#ce ----------------------------------------------------------------------------

;~      MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
    
;~ #cs ----------------------------------------------------------------------------
    
Opt("WinTitleMatchMode", 4)     ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase

Global $mainFox_handle, $line

_main()
Func _main()
While 1 
    Sleep(30000) ; wait 30 sec before start blocking popups
    If ProcessExists('firefox.exe') Then
        Sleep(5000)
        _sub_main()
    Else
        ProcessWait('firefox.exe')
    EndIf       
WEnd
EndFunc

Func _sub_main()
    
    $loopspeed = 50

    $var = WinList()
    For $i = 1 to $var[0][0]
        If StringInStr($var[$i][0],'Mozilla Firefox') Then      ;get main window handle ( the one we do not want to close )
            $mainFox_handle = $var[$i][1]
        EndIf
    Next


        $file = FileOpen("pop_adress.txt", 0)
        
            If $file = -1 Then ; Check if file opened for reading OK
                MsgBox(0, "Error", "Unable to open file.")
                Exit
            EndIf

            ; Read in lines of text until the EOF is reached
            For $a = 1 To 1000000000000000 
                
                If ProcessExists('firefox.exe') Then
                    
                    Sleep($loopspeed)
                    $line = FileReadLine($file,$a )                 
                        If @error = -1 Then
                            $a = 0 ; $a= because lat line of the file must be empty
                        Else
                            if WinExists($line) Then _gethandle2()                                  
                        EndIf
                Else
                    _main()
                EndIf
            Next

        FileClose($file)
EndFunc


Func _gethandle2()
;get second window handle ( the one we want to close )  
    $var = WinList()
    For $i = 1 to $var[0][0]
        If StringInStr($var[$i][0],'Mozilla Firefox') And $var[$i][1] <> $mainFox_handle Then
            $handle2 = $var[$i][1]
            
            WinClose($handle2)
                
;~          Beep(8000, 100)
        EndIf
    Next
EndFunc

pop_adress.txt

Edited March 31, 2008 by goldenix

[Swift]

That's pretty good there, although I don't use firefox, and my IE has no popups whatsoever, and hasn't had them for the last 2 years. But I like it...Good job!

[Toady]

Popups, seem to never end.

[goldenix]

k i added some code, so now it should work even if you restart firefox. ( just run the code & it works 24/7 now )

& if you need so badly to open something in new window just pause the script by clicking on the autoit icon in the right bottom of the screen. (yes there is no other way, because firefox always first opens blank page & then navigates from it & this also applies to popups.)

Edited March 31, 2008 by goldenix