[Programa]Filtrador de Web Limitado - KLXY Terminado!!

Topic created · 14 Posts · 2443 Views
  • **Por fin e Terminado el Proyecto que ya me estaba jodiendo....
    ¿De que se trata tu Proyecto?
    Pues se trata de crear un programa que bloquea cierto contenidos Y mejore el acceso a lo usuario para Incentivarlos a ser sus actividades Laborales como tareas, Investigaciones,Trabajos etc etc. En reusmen un control parental para los jóvenes que se la Pasan Juegando y no haciendo sus tareas _xD_ _xD_

    Este Sencillo programa Contiene opciones como la de bloquear Paginas "pornográficas :trollface:" Sitios webs Que provoquen distracción o de juegos, Función apra bloquear el escritorio pra no abrir juegos ni programas que distraigan y otra función para administar el uso del computador. **

    -Ademas cuenta con un NAvegador Integrado Algo pontente y perzonalizado y un Reproductor multimedia para Oir Música y ver Videos :wiii:

    • Un enlace Directo Atraves de un botón a Wikipedia para hacer tus investigaciones

    -y un botón para Ver tu ip local y otras funciones como Hacer pigns a google,Bing,Wikipedia y Universojeugos :happy:

    **Aqui s los dejo para lo Prueben
    Net. Framwork 3.5 Requerido!!!
    Analisis

    Antivirus 	Version 	Last Update 	Result
    AhnLab-V3	2011.06.15.00	2011.06.14	-
    AntiVir	7.11.9.197	2011.06.14	-
    Antiy-AVL	2.0.3.7	2011.06.14	-
    Avast	4.8.1351.0	2011.06.14	-
    Avast5	5.0.677.0	2011.06.14	-
    AVG	10.0.0.1190	2011.06.14	-
    BitDefender	7.2	2011.06.14	-
    CAT-QuickHeal	11.00	2011.06.14	-
    ClamAV	0.97.0.0	2011.06.14	-
    Commtouch	5.3.2.6	2011.06.14	-
    Comodo	9068	2011.06.14	-
    DrWeb	5.0.2.03300	2011.06.14	-
    eSafe	7.0.17.0	2011.06.14	-
    eTrust-Vet	36.1.8386	2011.06.14	-
    F-Prot	4.6.2.117	2011.06.14	-
    F-Secure	9.0.16440.0	2011.06.14	-
    Fortinet	4.2.257.0	2011.06.14	-
    GData	22	2011.06.14	-
    Ikarus	T3.1.1.104.0	2011.06.14	-
    Jiangmin	13.0.900	2011.06.14	-
    K7AntiVirus	9.106.4812	2011.06.14	-
    Kaspersky	9.0.0.837	2011.06.14	-
    McAfee	5.400.0.1158	2011.06.14	-
    McAfee-GW-Edition	2010.1D	2011.06.14	-
    Microsoft	1.6903	2011.06.13	-
    NOD32	6208	2011.06.14	-
    Norman	6.07.10	2011.06.14	-
    nProtect	2011-06-14.01	2011.06.14	-
    Panda	10.0.3.5	2011.06.14	-
    PCTools	7.0.3.5	2011.06.14	-
    Prevx	3.0	2011.06.14	-
    Rising	23.62.01.03	2011.06.14	-
    Sophos	4.66.0	2011.06.14	-
    SUPERAntiSpyware	4.40.0.1006	2011.06.14	-
    Symantec	20111.1.0.186	2011.06.14	-
    TheHacker	6.7.0.1.230	2011.06.14	-
    TrendMicro	9.200.0.1012	2011.06.14	-
    TrendMicro-HouseCall	9.200.0.1012	2011.06.14	-
    VBA32	3.12.16.1	2011.06.14	-
    VIPRE	9583	2011.06.14	-
    ViRobot	2011.6.14.4511	2011.06.14	-
    VirusBuster	14.0.80.1	2011.06.14	-
    

    **

  • Y todo esto no hubiera sido posible gracias a mi "habilidad" en internet eh :trollface: xDD

    Buen aporte, aunque NI DE COÑA LO VOY A USAR :mem11: xD

  • Buen programa, pero me surgen algunas dudas: ¿Lo de bloquear esas páginas web funciona con TODOS los navegadores? ¿Es necesario tener el programa abierto para que funcione? (porque si no tampoco es una restricción demasiado fuerte xD).

    Y solo por curiosidad, ¿puedo saber cómo has hecho para restringir el acceso a determinadas webs?

    Un saludo 😛

  • Me imagino que lo que hace el programa es reescribir el archivo host de windows añadiéndole las nuevas webs que quiere bloquear :miau:

  • jeje, al fin lo terminaste, me alegro 😛

    mira que te dije cuando me enviaste el mp que al crear el archivo le pusieras condicionales, por si no existe la ruta xD
    haz algo así

    if my.computer.filesystem.directoryexist("C:\Mira esta carpeta es guapa") then
    'si existe, el programa no hará esta condición y creará el archivo en esa carpeta
    else
    mkdir("C:\Mira esta carpeta es guapa")
    'si no existe esa carpeta, te la crea
    end if
  • Aquí parece que todos le tenéis alergia al try ... catch (olvidad lo de todos, Anghios, va por ti xDDD)
    Eso es precisamente CONTROLAR excepciones, para que no salga la ventanita esa xD, además, si no me equivoco no te hace falta poner ninguna condición porque la excepción salta sola. Solo tienes que poner algo así como:

    Try
        'Todo lo que quieras ejecutar de forma segura
    Catch (Exception e)
        'Lo que quieras que pase al producirse un error, por ejemplo
        MessageBox.Show("Se ha producido un error")
    End Try
  • **

    por DjZed » Mar 14 Jun, 5:24 pm
    Me imagino que lo que hace el programa es reescribir el archivo host de windows añadiéndole las nuevas webs que quiere bloquear :miau:

    exacto lo que hice fue que el programa agregara la inet local 127.0.0.1 y la paginaporno en el archivo host y solo em ayudades en la barra de carga el que me ayudo mas fue Anghios igual gracia sa todos :miau:

    por Hawkings » Mar 14 Jun, 5:19 pm
    Buen programa, pero me surgen algunas dudas: ¿Lo de bloquear esas páginas web funciona con TODOS los navegadores? ¿Es necesario tener el programa abierto para que funcione? (porque si no tampoco es una restricción demasiado fuerte xD).

    Y solo por curiosidad, ¿puedo saber cómo has hecho para restringir el acceso a determinadas webs?

    Funciona apra todo loq ue hace es que el pc no tengo acceso pro internet a esta paginas y el programa tu los peudes cerrar cuando quieras xDDD no hace molestia pero si esuchas msuica desde ahi pss no deberas cerralo :icon_rolleyes: _xD_ _xD_

    por Anghios » Mar 14 Jun, 5:46 pm
    jeje, al fin lo terminaste, me alegro 😛
    Imagen

    mira que te dije cuando me enviaste el mp que al crear el archivo le pusieras condicionales, por si no existe la ruta xD
    haz algo así

        if my.computer.filesystem.directoryexist("C:\Mira esta carpeta es guapa") then
        'si existe, el programa no hará esta condición y creará el archivo en esa carpeta
        else
        mkdir("C:\Mira esta carpeta es guapa")
        'si no existe esa carpeta, te la crea
        end if
    

    Opss no recorde eso pero el errror que te salta es proque no te deja Acceso denegado modificar ese archivo tas en Adminsitrador ?
    quisa sea por eso porque al ruta si existe pero no coloque las condicionales :icon_sad: **

    por DjZed » Mar 14 Jun, 5:01 pm
    Y todo esto no hubiera sido posible gracias a mi "habilidad" en internet eh :trollface: xDD

    Buen aporte, aunque NI DE COÑA LO VOY A USAR :mem11: xD

    te puede Bloquear la PORNOSOTROS :trollface:

  • Hazme caso, mete la parte en la que accedes a ese archivo en un try catch, eso se lo come todo xD

  • **mmmmm pero lo pongo al principio???????? ejemplo asi

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    Try
        'Todo lo que quieras ejecutar de forma segura
    Catch (Exception e)
        'Lo que quieras que pase al producirse un error, por ejemplo
        MessageBox.Show("Se ha producido un error")
    End Try
           
            Dim escribo As New IO.StreamWriter("C:\Windows\System32\drivers\etc\hosts")
            escribo.WriteLine("127.0.0.1    www.redtube.com")
            escribo.WriteLine("127.0.0.1    www.petardas.com")
            escribo.WriteLine("127.0.0.1    www.xhamster.com")
            escribo.WriteLine("127.0.0.1    www.megaporn.com")
            escribo.WriteLine("127.0.0.1    www.playboy.com")
            escribo.WriteLine("127.0.0.1    www.megarotic.com")
            escribo.WriteLine("127.0.0.1    www.pornotube.com")
            escribo.WriteLine("127.0.0.1    www.youporn.com")
            escribo.WriteLine("127.0.0.1    www.bangbros.com")
            escribo.WriteLine("127.0.0.1    www.bangbros1.com")
            escribo.WriteLine("127.0.0.1    www.lifeout.com")
            escribo.WriteLine("127.0.0.1    www.xtube.com")
            escribo.WriteLine("127.0.0.1    www.rude.com")
            escribo.WriteLine("127.0.0.1    www.boysfood.com")
            escribo.WriteLine("127.0.0.1    www.phun.org")
            escribo.WriteLine("127.0.0.1    www.smog.pl")
            escribo.WriteLine("127.0.0.1    www.badjojo.com")
            escribo.WriteLine("127.0.0.1    www.kaktuz.com")
            escribo.WriteLine("127.0.0.1    www.sexyandfunny.com")
            escribo.WriteLine("127.0.0.1    www.redtube.com")
            escribo.WriteLine("127.0.0.1    www.sexyclips.org")
            escribo.WriteLine("127.0.0.1    www.yuvutu.com")
            escribo.WriteLine("127.0.0.1    www.dachix.com")
            escribo.WriteLine("127.0.0.1    www.camelstyle.net")
            escribo.WriteLine("127.0.0.1    www.heaven666.org")
            escribo.WriteLine("127.0.0.1    www.deviantclip.com")
            escribo.WriteLine("127.0.0.1    www.watchhervideo.com")
            escribo.WriteLine("127.0.0.1    www.humornsex.com")
            escribo.WriteLine("127.0.0.1    www.pornhost.tv")
            escribo.WriteLine("127.0.0.1    www.fuckaroo.org")
            escribo.WriteLine("127.0.0.1    www.megaporndump.com")
            escribo.WriteLine("127.0.0.1    www.efukt.com")
            escribo.WriteLine("127.0.0.1    www.primecups.com")
            escribo.WriteLine("127.0.0.1    www.twelvefifteen.net")
            escribo.WriteLine("127.0.0.1    www.yourfilehost.com")
            escribo.WriteLine("127.0.0.1    www.planetsuzy.com")
            escribo.WriteLine("127.0.0.1    www.assdumper.com")
            escribo.WriteLine("127.0.0.1    www.sockshots.com")
            escribo.WriteLine("127.0.0.1    www.anyvids.com")
            escribo.WriteLine("127.0.0.1    www.terror.to")
            escribo.WriteLine("127.0.0.1    www.2adultflashgames.com")
            escribo.WriteLine("127.0.0.1    www.myhomeclip.com")
            escribo.WriteLine("127.0.0.1    www.freeadultmedia.com")
            escribo.WriteLine("127.0.0.1    www.crazydumper.com")
            escribo.WriteLine("127.0.0.1    www.funnyinside.com")
            escribo.WriteLine("127.0.0.1    www.tehvids.com")
            escribo.WriteLine("127.0.0.1    www.likecrack.com")
            escribo.WriteLine("127.0.0.1    www.rottensob.com")
            escribo.WriteLine("127.0.0.1    www.wtfpeople.com")
            escribo.WriteLine("127.0.0.1    www.areavids.com")
            escribo.WriteLine("127.0.0.1    www.greenshines.com")
            escribo.WriteLine("127.0.0.1    www.timtube.com")
            escribo.WriteLine("127.0.0.1    www.haporn.com")
            escribo.WriteLine("127.0.0.1    www.hotwildsluts.com")
            escribo.WriteLine("127.0.0.1    www.shufuni.com")
            escribo.WriteLine("127.0.0.1    www.justsexyvideos.com")
            escribo.WriteLine("127.0.0.1    www.wank.net")
            escribo.WriteLine("127.0.0.1    www.kataclizm.com")
            escribo.WriteLine("127.0.0.1    www.banggs.com")
            escribo.WriteLine("127.0.0.1    www.muchosucko.com")
            escribo.WriteLine("127.0.0.1    www.wunbuck.com")
            escribo.WriteLine("127.0.0.1    www.quickfap.com")
            escribo.WriteLine("127.0.0.1    www.xxxuploads.com")
            escribo.WriteLine("127.0.0.1    www.fuckingmotherfucker.com")
            escribo.WriteLine("127.0.0.1    www.jasonandalex.com")
            escribo.WriteLine("127.0.0.1    www.boobfilter.com")
            escribo.WriteLine("127.0.0.1    www.extape.com")
            escribo.WriteLine("127.0.0.1    www.maxxx.to")
            escribo.WriteLine("127.0.0.1    www.pornbase.org")
            escribo.WriteLine("127.0.0.1    www.porntower.com")
            escribo.WriteLine("127.0.0.1    www.diablobabes.com")
            escribo.WriteLine("127.0.0.1    www.wetstage.com")
            escribo.WriteLine("127.0.0.1    www.xtatoo.net")
            escribo.WriteLine("127.0.0.1    www.pinkbabes.net")
            escribo.WriteLine("127.0.0.1    www.yourdailyvids.com")
            escribo.WriteLine("127.0.0.1    www.pacoporn.com")
            escribo.WriteLine("127.0.0.1    www.enwhore.com")
            escribo.WriteLine("127.0.0.1    www.pinkslut.net")
            escribo.WriteLine("127.0.0.1    www.digitalmpegs.com")
            escribo.WriteLine("127.0.0.1    www.lexxxicon.com")
            escribo.WriteLine("127.0.0.1    www.friendlyjerk.com")
            escribo.WriteLine("127.0.0.1    www.pimpbus.com")
            escribo.WriteLine("127.0.0.1    www.vidchicks.com")
            escribo.WriteLine("127.0.0.1    www.aquickspank.com")
            escribo.WriteLine("127.0.0.1    www.sexcess.net")
            escribo.WriteLine("127.0.0.1    www.daily.vg")
            escribo.WriteLine("127.0.0.1    www.yourporntube.com")
            escribo.WriteLine("127.0.0.1    www.quppy.com")
            escribo.WriteLine("127.0.0.1    www.amateurvideoz.org")
            escribo.WriteLine("127.0.0.1    www.lubeyourtube.com")
            escribo.WriteLine("127.0.0.1    www.clip-search.com")
            escribo.WriteLine("127.0.0.1    www.adumper.com")
            escribo.WriteLine("127.0.0.1    www.ohslut.com")
            escribo.WriteLine("127.0.0.1    www.girlsfromheaven.com")
            escribo.WriteLine("127.0.0.1    www.fantasti.cc")
            escribo.WriteLine("127.0.0.1    www.nsfwnews.com")
            escribo.WriteLine("127.0.0.1    www.milfcabin.net")
            escribo.WriteLine("127.0.0.1    www.sextube.com")
            escribo.WriteLine("127.0.0.1    www.pornoinside.com")
            escribo.WriteLine("127.0.0.1    www.sexsube.com")
            escribo.WriteLine("127.0.0.1    www.hairyboyz.com")
            escribo.WriteLine("127.0.0.1    www.sexvidia.com")
            escribo.WriteLine("127.0.0.1    www.live-porn.tv")
            escribo.WriteLine("127.0.0.1    www.bliss-babes.com")
            escribo.WriteLine("127.0.0.1    www.grinvi.com")
            escribo.WriteLine("127.0.0.1    www.nastylinkdump.com")
            escribo.WriteLine("127.0.0.1    www.barely18xxx.com")
            escribo.WriteLine("127.0.0.1    www.FlyShe.com")
            escribo.WriteLine("127.0.0.1    www.kickazzvideos.com")
            escribo.WriteLine("127.0.0.1    www.collegepartyhouse.com")
            escribo.WriteLine("127.0.0.1    www.cootee.com")
            escribo.WriteLine("127.0.0.1    www.pussism.com")
            escribo.WriteLine("127.0.0.1    www.hornystyle.com")
            escribo.WriteLine("127.0.0.1    www.dipvid.com")
            escribo.WriteLine("127.0.0.1    www.suks.com")
            escribo.WriteLine("127.0.0.1    www.sexhotvideos.net")
            escribo.WriteLine("127.0.0.1    www.wanktube.com")
            escribo.WriteLine("127.0.0.1    www.togetherinporn.com")
            escribo.WriteLine("127.0.0.1    www.bitchdump.com")
            escribo.WriteLine("127.0.0.1    www.nursexybabes.com")
            escribo.WriteLine("127.0.0.1    www.dayshot.com")
            escribo.WriteLine("127.0.0.1    www.sexyhotvideos.net")
            escribo.WriteLine("127.0.0.1    www.deluxe1.net")
            escribo.WriteLine("127.0.0.1    www.onlysexhere.com")
            escribo.WriteLine("127.0.0.1    www.bang-fun.com")
            escribo.WriteLine("127.0.0.1    www.xxxstash.com")
            escribo.WriteLine("127.0.0.1    www.youtuxxx.com")
            escribo.WriteLine("127.0.0.1    www.babe.to")
            escribo.WriteLine("127.0.0.1    www.videos-2-x.com")
            escribo.WriteLine("127.0.0.1    www.likeshit.to")
            escribo.WriteLine("127.0.0.1    www.sexytimez.net")
            escribo.WriteLine("127.0.0.1    www.rawpalm.com")
            escribo.WriteLine("127.0.0.1    www.drunkbabe.net")
            escribo.WriteLine("127.0.0.1    www.superevilrobot.com")
            escribo.WriteLine("127.0.0.1    www.lustbang.com")
            escribo.WriteLine("127.0.0.1    www.pontuvideox.com")
            escribo.WriteLine("127.0.0.1    www.hotbabe.to")
            escribo.WriteLine("127.0.0.1    www.18porno.net")
            escribo.WriteLine("127.0.0.1    www.alphacocks.co.uk")
            escribo.WriteLine("127.0.0.1    www.sexgoog.net")
            escribo.WriteLine("127.0.0.1    www.deepworx.com")
            escribo.WriteLine("127.0.0.1    www.sexy-movies.to")
            escribo.WriteLine("127.0.0.1    www.pornwondervids.com")
            escribo.WriteLine("127.0.0.1    www.hardcoretube.net")
            escribo.WriteLine("127.0.0.1    www.dumpyourvid.com")
            escribo.WriteLine("127.0.0.1    www.sextube.fr")
            escribo.WriteLine("127.0.0.1    www.diysexclips.com")
            escribo.WriteLine("127.0.0.1    www.cowardlyescape.com")
            escribo.WriteLine("127.0.0.1    www.valentinetrav.org")
            escribo.WriteLine("127.0.0.1    www.mad-horny.com")
            escribo.WriteLine("127.0.0.1    www.dadsbox.com")
            escribo.WriteLine("127.0.0.1    www.hardsextgp.com")
            escribo.WriteLine("127.0.0.1    www.damnbang.com")
            escribo.WriteLine("127.0.0.1    www.facialSlam.com")
            escribo.WriteLine("127.0.0.1    www.revenge-cams.com")
            escribo.WriteLine("127.0.0.1    www.musclehunks.com")
            escribo.WriteLine("127.0.0.1    www.virginoff.com")
            escribo.Close()
            MsgBox("¡Se han Bloqueado Correctamente las Paginas!")
        End Sub
    

    **

  • No, sería más bien así xDDD (por cierto el catch estaba mal puesto como te dije antes :facepalm:, ahora está bien)

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    	Try
    		Dim escribo As New IO.StreamWriter("C:\Windows\System32\drivers\etc\hosts")
    		escribo.WriteLine("127.0.0.1    www.redtube.com")
    		escribo.WriteLine("127.0.0.1    www.petardas.com")
    		escribo.WriteLine("127.0.0.1    www.xhamster.com")
    		escribo.WriteLine("127.0.0.1    www.megaporn.com")
    		escribo.WriteLine("127.0.0.1    www.playboy.com")
    		escribo.WriteLine("127.0.0.1    www.megarotic.com")
    		escribo.WriteLine("127.0.0.1    www.pornotube.com")
    		escribo.WriteLine("127.0.0.1    www.youporn.com")
    		escribo.WriteLine("127.0.0.1    www.bangbros.com")
    		escribo.WriteLine("127.0.0.1    www.bangbros1.com")
    		escribo.WriteLine("127.0.0.1    www.lifeout.com")
    		escribo.WriteLine("127.0.0.1    www.xtube.com")
    		escribo.WriteLine("127.0.0.1    www.rude.com")
    		escribo.WriteLine("127.0.0.1    www.boysfood.com")
    		escribo.WriteLine("127.0.0.1    www.phun.org")
    		escribo.WriteLine("127.0.0.1    www.smog.pl")
    		escribo.WriteLine("127.0.0.1    www.badjojo.com")
    		escribo.WriteLine("127.0.0.1    www.kaktuz.com")
    		escribo.WriteLine("127.0.0.1    www.sexyandfunny.com")
    		escribo.WriteLine("127.0.0.1    www.redtube.com")
    		escribo.WriteLine("127.0.0.1    www.sexyclips.org")
    		escribo.WriteLine("127.0.0.1    www.yuvutu.com")
    		escribo.WriteLine("127.0.0.1    www.dachix.com")
    		escribo.WriteLine("127.0.0.1    www.camelstyle.net")
    		escribo.WriteLine("127.0.0.1    www.heaven666.org")
    		escribo.WriteLine("127.0.0.1    www.deviantclip.com")
    		escribo.WriteLine("127.0.0.1    www.watchhervideo.com")
    		escribo.WriteLine("127.0.0.1    www.humornsex.com")
    		escribo.WriteLine("127.0.0.1    www.pornhost.tv")
    		escribo.WriteLine("127.0.0.1    www.fuckaroo.org")
    		escribo.WriteLine("127.0.0.1    www.megaporndump.com")
    		escribo.WriteLine("127.0.0.1    www.efukt.com")
    		escribo.WriteLine("127.0.0.1    www.primecups.com")
    		escribo.WriteLine("127.0.0.1    www.twelvefifteen.net")
    		escribo.WriteLine("127.0.0.1    www.yourfilehost.com")
    		escribo.WriteLine("127.0.0.1    www.planetsuzy.com")
    		escribo.WriteLine("127.0.0.1    www.assdumper.com")
    		escribo.WriteLine("127.0.0.1    www.sockshots.com")
    		escribo.WriteLine("127.0.0.1    www.anyvids.com")
    		escribo.WriteLine("127.0.0.1    www.terror.to")
    		escribo.WriteLine("127.0.0.1    www.2adultflashgames.com")
    		escribo.WriteLine("127.0.0.1    www.myhomeclip.com")
    		escribo.WriteLine("127.0.0.1    www.freeadultmedia.com")
    		escribo.WriteLine("127.0.0.1    www.crazydumper.com")
    		escribo.WriteLine("127.0.0.1    www.funnyinside.com")
    		escribo.WriteLine("127.0.0.1    www.tehvids.com")
    		escribo.WriteLine("127.0.0.1    www.likecrack.com")
    		escribo.WriteLine("127.0.0.1    www.rottensob.com")
    		escribo.WriteLine("127.0.0.1    www.wtfpeople.com")
    		escribo.WriteLine("127.0.0.1    www.areavids.com")
    		escribo.WriteLine("127.0.0.1    www.greenshines.com")
    		escribo.WriteLine("127.0.0.1    www.timtube.com")
    		escribo.WriteLine("127.0.0.1    www.haporn.com")
    		escribo.WriteLine("127.0.0.1    www.hotwildsluts.com")
    		escribo.WriteLine("127.0.0.1    www.shufuni.com")
    		escribo.WriteLine("127.0.0.1    www.justsexyvideos.com")
    		escribo.WriteLine("127.0.0.1    www.wank.net")
    		escribo.WriteLine("127.0.0.1    www.kataclizm.com")
    		escribo.WriteLine("127.0.0.1    www.banggs.com")
    		escribo.WriteLine("127.0.0.1    www.muchosucko.com")
    		escribo.WriteLine("127.0.0.1    www.wunbuck.com")
    		escribo.WriteLine("127.0.0.1    www.quickfap.com")
    		escribo.WriteLine("127.0.0.1    www.xxxuploads.com")
    		escribo.WriteLine("127.0.0.1    www.fuckingmotherfucker.com")
    		escribo.WriteLine("127.0.0.1    www.jasonandalex.com")
    		escribo.WriteLine("127.0.0.1    www.boobfilter.com")
    		escribo.WriteLine("127.0.0.1    www.extape.com")
    		escribo.WriteLine("127.0.0.1    www.maxxx.to")
    		escribo.WriteLine("127.0.0.1    www.pornbase.org")
    		escribo.WriteLine("127.0.0.1    www.porntower.com")
    		escribo.WriteLine("127.0.0.1    www.diablobabes.com")
    		escribo.WriteLine("127.0.0.1    www.wetstage.com")
    		escribo.WriteLine("127.0.0.1    www.xtatoo.net")
    		escribo.WriteLine("127.0.0.1    www.pinkbabes.net")
    		escribo.WriteLine("127.0.0.1    www.yourdailyvids.com")
    		escribo.WriteLine("127.0.0.1    www.pacoporn.com")
    		escribo.WriteLine("127.0.0.1    www.enwhore.com")
    		escribo.WriteLine("127.0.0.1    www.pinkslut.net")
    		escribo.WriteLine("127.0.0.1    www.digitalmpegs.com")
    		escribo.WriteLine("127.0.0.1    www.lexxxicon.com")
    		escribo.WriteLine("127.0.0.1    www.friendlyjerk.com")
    		escribo.WriteLine("127.0.0.1    www.pimpbus.com")
    		escribo.WriteLine("127.0.0.1    www.vidchicks.com")
    		escribo.WriteLine("127.0.0.1    www.aquickspank.com")
    		escribo.WriteLine("127.0.0.1    www.sexcess.net")
    		escribo.WriteLine("127.0.0.1    www.daily.vg")
    		escribo.WriteLine("127.0.0.1    www.yourporntube.com")
    		escribo.WriteLine("127.0.0.1    www.quppy.com")
    		escribo.WriteLine("127.0.0.1    www.amateurvideoz.org")
    		escribo.WriteLine("127.0.0.1    www.lubeyourtube.com")
    		escribo.WriteLine("127.0.0.1    www.clip-search.com")
    		escribo.WriteLine("127.0.0.1    www.adumper.com")
    		escribo.WriteLine("127.0.0.1    www.ohslut.com")
    		escribo.WriteLine("127.0.0.1    www.girlsfromheaven.com")
    		escribo.WriteLine("127.0.0.1    www.fantasti.cc")
    		escribo.WriteLine("127.0.0.1    www.nsfwnews.com")
    		escribo.WriteLine("127.0.0.1    www.milfcabin.net")
    		escribo.WriteLine("127.0.0.1    www.sextube.com")
    		escribo.WriteLine("127.0.0.1    www.pornoinside.com")
    		escribo.WriteLine("127.0.0.1    www.sexsube.com")
    		escribo.WriteLine("127.0.0.1    www.hairyboyz.com")
    		escribo.WriteLine("127.0.0.1    www.sexvidia.com")
    		escribo.WriteLine("127.0.0.1    www.live-porn.tv")
    		escribo.WriteLine("127.0.0.1    www.bliss-babes.com")
    		escribo.WriteLine("127.0.0.1    www.grinvi.com")
    		escribo.WriteLine("127.0.0.1    www.nastylinkdump.com")
    		escribo.WriteLine("127.0.0.1    www.barely18xxx.com")
    		escribo.WriteLine("127.0.0.1    www.FlyShe.com")
    		escribo.WriteLine("127.0.0.1    www.kickazzvideos.com")
    		escribo.WriteLine("127.0.0.1    www.collegepartyhouse.com")
    		escribo.WriteLine("127.0.0.1    www.cootee.com")
    		escribo.WriteLine("127.0.0.1    www.pussism.com")
    		escribo.WriteLine("127.0.0.1    www.hornystyle.com")
    		escribo.WriteLine("127.0.0.1    www.dipvid.com")
    		escribo.WriteLine("127.0.0.1    www.suks.com")
    		escribo.WriteLine("127.0.0.1    www.sexhotvideos.net")
    		escribo.WriteLine("127.0.0.1    www.wanktube.com")
    		escribo.WriteLine("127.0.0.1    www.togetherinporn.com")
    		escribo.WriteLine("127.0.0.1    www.bitchdump.com")
    		escribo.WriteLine("127.0.0.1    www.nursexybabes.com")
    		escribo.WriteLine("127.0.0.1    www.dayshot.com")
    		escribo.WriteLine("127.0.0.1    www.sexyhotvideos.net")
    		escribo.WriteLine("127.0.0.1    www.deluxe1.net")
    		escribo.WriteLine("127.0.0.1    www.onlysexhere.com")
    		escribo.WriteLine("127.0.0.1    www.bang-fun.com")
    		escribo.WriteLine("127.0.0.1    www.xxxstash.com")
    		escribo.WriteLine("127.0.0.1    www.youtuxxx.com")
    		escribo.WriteLine("127.0.0.1    www.babe.to")
    		escribo.WriteLine("127.0.0.1    www.videos-2-x.com")
    		escribo.WriteLine("127.0.0.1    www.likeshit.to")
    		escribo.WriteLine("127.0.0.1    www.sexytimez.net")
    		escribo.WriteLine("127.0.0.1    www.rawpalm.com")
    		escribo.WriteLine("127.0.0.1    www.drunkbabe.net")
    		escribo.WriteLine("127.0.0.1    www.superevilrobot.com")
    		escribo.WriteLine("127.0.0.1    www.lustbang.com")
    		escribo.WriteLine("127.0.0.1    www.pontuvideox.com")
    		escribo.WriteLine("127.0.0.1    www.hotbabe.to")
    		escribo.WriteLine("127.0.0.1    www.18porno.net")
    		escribo.WriteLine("127.0.0.1    www.alphacocks.co.uk")
    		escribo.WriteLine("127.0.0.1    www.sexgoog.net")
    		escribo.WriteLine("127.0.0.1    www.deepworx.com")
    		escribo.WriteLine("127.0.0.1    www.sexy-movies.to")
    		escribo.WriteLine("127.0.0.1    www.pornwondervids.com")
    		escribo.WriteLine("127.0.0.1    www.hardcoretube.net")
    		escribo.WriteLine("127.0.0.1    www.dumpyourvid.com")
    		escribo.WriteLine("127.0.0.1    www.sextube.fr")
    		escribo.WriteLine("127.0.0.1    www.diysexclips.com")
    		escribo.WriteLine("127.0.0.1    www.cowardlyescape.com")
    		escribo.WriteLine("127.0.0.1    www.valentinetrav.org")
    		escribo.WriteLine("127.0.0.1    www.mad-horny.com")
    		escribo.WriteLine("127.0.0.1    www.dadsbox.com")
    		escribo.WriteLine("127.0.0.1    www.hardsextgp.com")
    		escribo.WriteLine("127.0.0.1    www.damnbang.com")
    		escribo.WriteLine("127.0.0.1    www.facialSlam.com")
    		escribo.WriteLine("127.0.0.1    www.revenge-cams.com")
    		escribo.WriteLine("127.0.0.1    www.musclehunks.com")
    		escribo.WriteLine("127.0.0.1    www.virginoff.com")
    		escribo.Close()
    		MsgBox("¡Se han Bloqueado Correctamente las Paginas!")
            Catch e As Exception
    		MsgBox("¡Se ha producido un error al bloquear las páginas! Quizás necesite abrir este programa como administrador.")
            End Try
    End Sub
    

    Un saludo :wiii:

Log in to reply