What's the best popup killer?

[CAT5]

What's the best one? Ads gone, popup dummy, popup killer, and a whole bunch others. My favorite is the original popup killer that allows pops up to come up, shows the address, then you just kill them by clickng on the address. This way, you know what you kill by seeing it. I don't like those that kill the adds automatically. Anyone knows which ad killer will show pops up and allow you to kill it by clicking on the address....or somtin like that.

[YARDofSTUF]

i just started using proximitron, but it doesnt get them all.

[G-IcE]

i use zonealarm pro,takes care of everything

[mnosteele52]

Free Surfer.

[deleted_acct]

Once i had one that killed everthing that popped up. For example when i would go to a site and click on something and a box would need to pop up for it well it would kill those too.

[deleted_acct]

I didnt know it until i couldnt listen to those crank yankers when i would click to listen nothing would happen. Have yall ever listened to those? http://www.comedycentral.com Some of them are stupid but a few are pretty good.

[Rainbow]

Another vote for Free Surfer

[UnitedWeStand]

this script is approximately 5.3 KB
and writes two files (that are written 1-TXT and 1-LOG but they get larger as your needs grow).


Copy this code and saveas "closepop.vbs"

Code: Select all

Option Explicit
'
' Many thanks to Bill for this excellent script
' Bill helps at [url]http://www.ericphelps.com/[/url]
' Just run the script. The first time you run it, it will 
' create a sample list of pop-ups to be closed. It will
' also display a one-time help screen (the screen only appears
' when there is no list of pop-up titles).
'
' This script will send an "Alt-F4" keystroke to any window
' that has a title you don't like. Typically, it is used to
' close those annoying browser "pop-up" windows. The list of
' bad titles is kept in a separate file named the same as
' this script (but with a TXT file extension), one title per 
' line.
'
' Now you know how it works, here's how to use it. If you get a 
' pop-up while you are browsing, leave it up. Add the title to 
' the list of bad titles and save the list. The pop-up should 
' close immediately after you save the list. If it doesn't, 
' look again at the title. There may be a leading space or more
' than one space between words in the title. Modify the list
' again and save it. Once you get it right, that window will
' always be closed immediately after it opens in the future.
' Place this script in your startup directory.


Dim gstrDataFile 'As String -- Name of text file containing bad window titles
Dim strEngine 'As String -- Used to tell the user what program is running the wscript.
gstrDataFile = FileNameLikeMine("txt")
If Not CreateObject("Scripting.FileSystemObject").FileExists(gstrDataFile) Then 
    String2File "----- Title Data File -----" & vbCrLf & "Amazing XCam2" & vbCrLf & "about:blank" & vbCrLf, gstrDataFile
    strEngine = Wscript.FullName
    strEngine = Mid(strEngine, InstRrev(strEngine, "\") + 1)
    strEngine = Left(strEngine, Instr(strEngine, ".") - 1)
    strEngine = Ucase(Left(strEngine, 1)) & Lcase(Mid(strEngine, 2))
    MsgBox "This script will run until system shutdown killing windows whose titles are found in the ""Title Data File"" at """ & gstrDataFile & """." & vbCrLf & vbCrLf & "If you need to stop this process, kill the """ &  strEngine & """ program with the Windows Task Manager (Ctrl-Alt-Del). Alternatively, you can stop the program by deleting, renaming, or emptying the title data file." & vbCrLf & vbCrLf &  "This dialog will only appear when there is no title data file."
End If
While True
    KillWindows
    Wscript.Sleep 500
Wend


Sub KillWindows
Dim wsh 'As WScript.Shell
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Dim strData 'As String -- Entire contents of gstrDataFile
Dim strTitle 'As String -- Just one bad window title
Const ForReading = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set wsh = CreateObject("WScript.Shell")
    On Error Resume Next
    Err.Clear
    Set ts = fs.OpenTextFile(gstrDataFile, ForReading, True)
    If Err.Number = 0 Then
        strData = ts.ReadAll
        If Err.Number = 0 Then
            'Read all title lines in data string
            Do Until (Instr(strData, vbCrLf) = 0)
                strTitle = Left(strData, Instr(strData, vbCrLf) - 1)
                strData = Mid(strData, Instr(strData, vbCrLf) + 2)
                If strTitle <> "" Then
                    If wsh.AppActivate(strTitle) Then
                        wsh.SendKeys "%{F4}"
                        WriteLog Now & " " & strTitle
                    End If
                End If
            Loop
            'Grab last bit in case there was no ending CrLf
            strTitle = strData
            If strTitle <> "" Then
                If wsh.AppActivate(strTitle) Then
                    wsh.SendKeys "%{F4}"
                    WriteLog Now & " " & strTitle
                End If
            End If
        Else
            ts.Close
            Wscript.Quit 1
        End If
    Else
        Wscript.Quit 1
    End If
    ts.Close
End Sub
     
Sub WriteLog(strText)
'Write to screen if script is run with CSCRIPT. Otherwise, write to a log file.
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForAppending = 8
    If Lcase(Right(Wscript.FullName, 11)) = "cscript.exe" Then
        Wscript.Echo strText
    Else
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log", ForAppending, True)
        ts.WriteLine strText
        ts.Close
    End If
End Sub

Function FileNameLikeMine(strFileExtension) 'As String
'Returns a file name the same as the script name except
'for the file extension. 
Dim fs 'As Object
Dim strExtension 'As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    strExtension = strFileExtension
    If Len(strExtension) < 1 Then strExtension = "txt"
    If strExtension = "." Then strExtension = "txt"
    If Left(strExtension,1) = "." Then strExtension = Mid(strExtension, 2)
    FileNameLikeMine = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & strExtension
End Function

Sub String2File(strData, strFileName)
'Writes a string to a file
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForWriting = 2
    Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(strFileName, ForWriting, True)
    ts.Write(strData)
    ts.Close
End Sub

I create a shortcut to the closepop.txt in my taskbar.
that way I can easily access it and type in the title.

LET ME KNOW (PM me) if you are having a problem with this script.

[CAT5]

wow...it's good to see VB codes again. I havent work on a prog for ayear already. Need to look at my book again. love vb

[UnitedWeStand]

No PMs in my Inbox..

if that script works for ya let me know..
however the only entries I have found trouble with and its only minor.
its
"MSN" {there popup is titled MSN} so this ultimately kills hotmail logon.
and
":" {for some reason it kills connection through ISDN}


I'm looking for others too.
good luck.

[velvta]

i prefer popup cop myself

[jeff8874]

PopUp Stopper Pro stops everything and has the option to add domains that you want to allow popups on.

[velvta]

Originally posted by jeff8874
PopUp Stopper Pro stops everything and has the option to add domains that you want to allow popups on.

so does pop up cop..

bring it on.

[jeff8874]

Bring what on? An intelligent debate over which Pop Up stopper is best? I will leave that up to you smart boy. You can argue with your self.

[UnitedWeStand]

Originally posted by velvta


so does pop up cop..

bring it on.

LOL... I hate pop ups and certain sites too. But I like to browse too.. so ultimately its no challenge for me if I use a simple script. Often I find Popup Killers and Popup stopper of great use but when I look at how complex them progs are to configure.. by all means I don't mind learning a program, But I then look at how simple a script is, I just use the script instead. its very quick popup killer.. no sound no taskbar flashing no reminders just add the title of the most common popups to the Closepopups.txt file.. and viola.
hey try the script from above post and add these entries of common popups and crappy sites
below to the ClosePopups.txt
NOTE: the popups titles below are original without change and personally chose by me as annoying, uncalled for, and unneeded while surfing. feel free to remove and/or add to your Closepopups.txt to suite your own needs.


:: HispaVista
:: Welcome ::
[Easy-Porn TGP] Categorized Free Porn Pics
100% FREE - NO HIDDEN CHARGES ... EVER!!!
100% FREE XXX PORN!! NO NEED CREDIT CARD!!!! JOIN NOW FOR FREE!!!!
100% FREE XXX PORN!! ONLY A VALID E-MAIL ADDRESS REQUIRED!
250x250_bg_1.gif
40 + SITES FOR ONE THE COST OF ONE!!!
888Casino
about:blank
Advertisment
Advertisement
Advertisement Banners.com
Amazing XCam2
Bang Bus
Best Porn Sites
Boobie Trap - All Tits, All The Time!
Brinks
CAMLUDER
Certified Videos
Check This Out!
Classmates - Registration
Click Here!
CONGRATULATIONS
CoolSavings
Your Dream Job - Call Cruise Brothers today! 800.827.7779 Cruise agents for all major cruise lines, ships and vacations.
CYBERAGE TOUR
Discover Special Offer
Extreme teen sex for adults.
Free Debt
FREE HARDCORE
Free Hardcore Sex Pictures And Movies
FREE Nude PornStars, High Quality FREE nude pornstar pics!
Free Password Sites- An Underground Tutorial Of Getting Into Paysites Free
Free Pic Of The Day!
Free Porn Only
Free Porn Sites!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FREE Unlimited XXX Sex Hardcore Voyeur Amateur Live Videos and Nasty Sex Pics
Gang Rapes - free rape pics, stories, videos
GIRL CENTER: geile Pornovideos, Pornobilder, Porno, Girls, Chat, Livecams, Hardcore
HARDCORE PUR
HOT LUVIN' INSIDE!
HOT XXX ACTION!!!
http://www.freesmut.com/cgi-bin/archive ... =100966881
IE
Join 80 Sites for just $2.99!
LavaLife
My Favorite Sites
Naked Hot Sluts
NovaStar Mortgage
OhneTitel-1
Popup
PORNSTARS SEXXXX
Pur Lolitas
Press Ctrl+D to Bookmark NOW!!!
Press ctrl+D to Bookmark This Free Pic of the Day!
Reduce Your Debt!!!
Samsonite Back Packs
Sex-On-The-Side Club
SexImp Adult Links
Sexy Slut Girl
SINFUL HARDCORE :: Absolutely Sinful XXX Hardcore Action!
Surftips - geil!!!
Tgp.FreePicsAndVideos.com
THE ORIGINAL PICPOST MAINPAGE
Today's Special Offers - Classmates.com
Top FREE Fetish and XXX Sites!
TOP SEX SITES!
Top Sites
Want free porn? You got it!
Where do you look for special offers?
Willkommen im Cam-Studio
Willkommen im Cam-Palast
Willkommen im Hardcore-Hotel
Work From Home
World's largest casino
xxx sex videos and pics, Hardcore sex Movies and Teen porn.
vnsc

[vicoman]

I'm not exactly sure what "bring it on " meant either. I guess some people like to get into foolish debates over which program is the best. Kinda like my bike is better than yours. Hilarious!

[UnitedWeStand]

Originally posted by vicoman
I'm not exactly sure what "bring it on " meant either. I guess some people like to get into foolish debates over which program is the best. Kinda like my bike is better than yours. Hilarious!

yeah its foolish.. but so is eating icecream on a cone while in complete darkness.
I'll still bring it though.
that script above runs from a floppy. No install.
and since you have vb installed automatically (if you have win95-XP) so it shall work very well on your system.
enjoy.

[CAT5]

Originally posted by UnitedWeStand
this script is approximately 5.3 KB
and writes two files (that are written 1-TXT and 1-LOG but they get larger as your needs grow).


Copy this code and saveas "closepop.vbs"

Code: Select all

Option Explicit
'
' Many thanks to Bill for this excellent script
' Bill helps at [url]http://www.ericphelps.com/[/url]
' Just run the script. The first time you run it, it will 
' create a sample list of pop-ups to be closed. It will
' also display a one-time help screen (the screen only appears
' when there is no list of pop-up titles).
'
' This script will send an "Alt-F4" keystroke to any window
' that has a title you don't like. Typically, it is used to
' close those annoying browser "pop-up" windows. The list of
' bad titles is kept in a separate file named the same as
' this script (but with a TXT file extension), one title per 
' line.
'
' Now you know how it works, here's how to use it. If you get a 
' pop-up while you are browsing, leave it up. Add the title to 
' the list of bad titles and save the list. The pop-up should 
' close immediately after you save the list. If it doesn't, 
' look again at the title. There may be a leading space or more
' than one space between words in the title. Modify the list
' again and save it. Once you get it right, that window will
' always be closed immediately after it opens in the future.
' Place this script in your startup directory.


Dim gstrDataFile 'As String -- Name of text file containing bad window titles
Dim strEngine 'As String -- Used to tell the user what program is running the wscript.
gstrDataFile = FileNameLikeMine("txt")
If Not CreateObject("Scripting.FileSystemObject").FileExists(gstrDataFile) Then 
    String2File "----- Title Data File -----" & vbCrLf & "Amazing XCam2" & vbCrLf & "about:blank" & vbCrLf, gstrDataFile
    strEngine = Wscript.FullName
    strEngine = Mid(strEngine, InstRrev(strEngine, "\") + 1)
    strEngine = Left(strEngine, Instr(strEngine, ".") - 1)
    strEngine = Ucase(Left(strEngine, 1)) & Lcase(Mid(strEngine, 2))
    MsgBox "This script will run until system shutdown killing windows whose titles are found in the ""Title Data File"" at """ & gstrDataFile & """." & vbCrLf & vbCrLf & "If you need to stop this process, kill the """ &  strEngine & """ program with the Windows Task Manager (Ctrl-Alt-Del). Alternatively, you can stop the program by deleting, renaming, or emptying the title data file." & vbCrLf & vbCrLf &  "This dialog will only appear when there is no title data file."
End If
While True
    KillWindows
    Wscript.Sleep 500
Wend


Sub KillWindows
Dim wsh 'As WScript.Shell
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Dim strData 'As String -- Entire contents of gstrDataFile
Dim strTitle 'As String -- Just one bad window title
Const ForReading = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set wsh = CreateObject("WScript.Shell")
    On Error Resume Next
    Err.Clear
    Set ts = fs.OpenTextFile(gstrDataFile, ForReading, True)
    If Err.Number = 0 Then
        strData = ts.ReadAll
        If Err.Number = 0 Then
            'Read all title lines in data string
            Do Until (Instr(strData, vbCrLf) = 0)
                strTitle = Left(strData, Instr(strData, vbCrLf) - 1)
                strData = Mid(strData, Instr(strData, vbCrLf) + 2)
                If strTitle <> "" Then
                    If wsh.AppActivate(strTitle) Then
                        wsh.SendKeys "%{F4}"
                        WriteLog Now & " " & strTitle
                    End If
                End If
            Loop
            'Grab last bit in case there was no ending CrLf
            strTitle = strData
            If strTitle <> "" Then
                If wsh.AppActivate(strTitle) Then
                    wsh.SendKeys "%{F4}"
                    WriteLog Now & " " & strTitle
                End If
            End If
        Else
            ts.Close
            Wscript.Quit 1
        End If
    Else
        Wscript.Quit 1
    End If
    ts.Close
End Sub
     
Sub WriteLog(strText)
'Write to screen if script is run with CSCRIPT. Otherwise, write to a log file.
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForAppending = 8
    If Lcase(Right(Wscript.FullName, 11)) = "cscript.exe" Then
        Wscript.Echo strText
    Else
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log", ForAppending, True)
        ts.WriteLine strText
        ts.Close
    End If
End Sub

Function FileNameLikeMine(strFileExtension) 'As String
'Returns a file name the same as the script name except
'for the file extension. 
Dim fs 'As Object
Dim strExtension 'As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    strExtension = strFileExtension
    If Len(strExtension) < 1 Then strExtension = "txt"
    If strExtension = "." Then strExtension = "txt"
    If Left(strExtension,1) = "." Then strExtension = Mid(strExtension, 2)
    FileNameLikeMine = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & strExtension
End Function

Sub String2File(strData, strFileName)
'Writes a string to a file
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForWriting = 2
    Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(strFileName, ForWriting, True)
    ts.Write(strData)
    ts.Close
End Sub

I create a shortcut to the closepop.txt in my taskbar.
that way I can easily access it and type in the title.

LET ME KNOW (PM me) if you are having a problem with this script. [/b]

I copied and saved it as popup.vbs and double clik it and get this error:

Line: 109
char: 5
Error: A dynamic lybrary (DLL) initializaiton routine failed.

Code: 8007045A
Source: (null)

I am running XP

[Sid]

bring it on.

He's talking about the popup windows... Not a debate.

[UnitedWeStand]

Originally posted by CAT5


I copied and saved it as popup.vbs and double clik it and get this error:

Line: 109
char: 5
Error: A dynamic lybrary (DLL) initializaiton routine failed.

Code: 8007045A
Source: (null)

I am running XP

that bothers me..
LET ME KNOW (PM me) if you are having a problem with this script.

wow some people forget the most important part..
PM me. means Private Message Me.
I'm not going to keep posting another script that doesn't work flawlessly again... I promise.
but like stated in My first post to this thread.. PM me with the problems. Really no need to quote the whole darn Post. Just to tell me a problem. PM me. that simple.

[FXRseen]

This script worked great for me. It's exactly what I've been looking for.

[UnitedWeStand]

Originally posted by FXRseen
This script worked great for me. It's exactly what I've been looking for.

does it work from a floppy for you, like it does for me.
I love it.. and it does work for me ON XP. So I think there might be something not compatible with all XP computers.. I'll look into the script and I'll have to ask a few others to get that script functioning.
by all means its not the best popup killer but it sure is easy for you and I. but not they. why?

going to check out programming forum see if I can get some help with it.

[CAT5]

well...sowie didn't pm ya....but I think I did somtin wrong cuz I was using a reg cleaner and might have accidently erased sumtin and could be a library to run the thang so that could be it. Someday when I reinstall xp I will give it a try again. Then, I will pm message ya......heheh

[FXRseen]

quote

does it work from a floppy for you, like it does for me.
I love it.. and it does work for me ON XP. So I think there might be something not compatible with all XP computers.. I'll look into the script and I'll have to ask a few others to get that script functioning.
by all means its not the best popup killer but it sure is easy for you and I. but not they. why?

going to check out programming forum see if I can get some help with it.

end quote

Well I have not tried it from a floppy but I'm sure it would work. I just copied it to my desktop to check it out. I pasted the list on the previous page to get started. Then I went to some of my fav sites that have pop-ups added them to the list and it worked. Nothing wrong with that.

[SR20DET]

Pop-up stopper is the best!

[Norm]

The best popup stopper is built right into IE, it's a security feature called "active scipting". Disable it.

Never see another popup.

[Ghosthunter]

I have moved over to Opera browser, and it has a built in option to allow or refuse pop ups.

It works great have not got a pop up since, and do not need to do anything manual or run any third party program, plus I find it much faster then IE to browse.


It took me a bit to get use to it, but now with all the mouse shortcut clicks I dont know how I could not live without it.

[UnitedWeStand]

Originally posted by Norm
The best popup stopper is built right into IE, it's a security feature called "active scipting". Disable it.

Never see another popup.

I looked for options in Mozilla and found it much easier to find than IE but here is where I found the preferences, I opened Mozilla Navigator, hit alt+e (Edit), then e (Preferences), click Advanced>Scripts & Plugins, then I uncheck Allow scripts to Open Unrequested Windows. Popups don't get through.. but there is some other options there, also, they may be of use to others.. like resize windows.. and such. Good luck.
Hey Norm, did you try that script too?
runs from a floppy. Its kinda slow running it from a floppy but it works.
I might defag the floppy ever once in a while but its nevertheless a smooth popup closer. "Active scripting" in IE, I'm looking for the reg key to disable the nag about active scripts while surfing.. any clue where that reg key is located?

[Norm]

I didn't try your script UWS, I don't mind using IE "active scripting" disabled.

If I need the scripting running for certain sites, it's only a couple of clicks away. I like a lean system with as few programs/scripts installed, and/or running in back as I can.

The more I add, the more problems arise. And I have to keep too many settings changes in my head. With your script I would have to keep adding page names to a file, and I hate that.

Make one that adds the page name itself, and I'll give it a shot.

[UnitedWeStand]

Originally posted by Norm
I didn't try your script UWS, I don't mind using IE "active scripting" disabled.

If I need the scripting running for certain sites, it's only a couple of clicks away. I like a lean system with as few programs/scripts installed, and/or running in back as I can.

The more I add, the more problems arise. And I have to keep too many settings changes in my head. With your script I would have to keep adding page names to a file, and I hate that.

Make one that adds the page name itself, and I'll give it a shot.

I too agree that the more you have on your system the more likely it will crash and not many people understand that.. they just load their pc with lots of programs, and put 35 programs in startup and then they wonder why the hell they're comp is slow.
As far as making a Close popups script that adds the page by its self.. well I want one too. I'll definately find one that uses a popup generator to add to the list all by itself.. but that would be another process running in the background at startup.
but as long as I keep adding to the list of titles there will not be enough room on this floppy..
you see what I am doing here, I keep all the options available, all the while arguing with myself.
BTW did you find that reg key yet?

[Norm]

Re: The reg key...

No I haven't, sorry, and I started looking for it long before you asked about it. It must be hidden somewhere in one of those keys with a name a mile long. Damn.

It would be nice to click once to enable/disable though
Obviosly it doesn't need a reboot to take effect. I just need to close and reopen IE when I change it through that method.

If you come across the reg key , let me know, and I'll do the same for you