[Programa]Filtrador de Web Limitado - KLXY Terminado!!
-
**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!!!
AnalisisAntivirus 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
Imagenmira 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 ifOpss 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: xDDBuen 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 SubUn saludo :wiii:
