Accueil > > > BLOQUEUR INTERNET
BLOQUEUR INTERNET
Information sur la source
Description
Permet de bloquer des URL simplement. Ce programme édite le fichier hosts de windows en ajoutant l'adresse du site à bloquer.
Source
- # -*- coding: cp1252 -*-
- #Editeur de fichier Hosts. Ecrit et immaginé par Amaury
-
- import os
- import tkMessageBox
- from Tkinter import *
- import tkFileDialog
- import sys
-
- global host
- host="C:/Windows/System32/drivers/etc/hosts"
-
- def lire(fichier):
- global contenu
- fic=open(fichier , "r")
- contenu=fic.read()
- fic.close()
- return contenu
-
- def find():
- global host
- host = tkFileDialog.askopenfilename(parent=root,title="Fichier Hosts")
- hosts.delete(0,len(hosts.get()))
- hosts.insert(0,host)
-
- def add(fichier):
- global url
- adresse=str(url.get())
- contenu=lire(fichier)
- fic=open(fichier , "w")
- fic.write(contenu)
- fic.write("\n127.0.0.1 " + str(adresse))
- fic.close()
- affiche(str(lire(fichier)))
-
- def affiche(texte):
- global root
- cont=Text(root,width=80, height=20)
- cont.grid(row=3, column=0,columnspan=3)
- cont.insert(END,texte)
- scroll=Scrollbar(root)
- scroll.grid(row=3,column=4)
- cont.config(yscrollcommand=scroll.set)
- scroll.config(command=cont.yview)
- root.update()
-
- root=Tk()
-
- hosts=Entry(root)
- hosts.grid(row=0,column=1)
-
- bou1=Button(root, text="Parcourir",command=find)
- bou1.grid(row=0,column=2)
- hosts.insert(0,host)
-
- lbl1=Label(root, text="Emplacement du fichier Hosts:")
- lbl1.grid(row=0,column=0)
-
- lbl2=Label(root,text="Adresse à ajouter:")
- lbl2.grid(row=1,column=0)
-
- url=Entry(root)
- url.grid(row=1,column=1)
- url.insert(0,"www.exemple.com")
-
- bou2=Button(root, text="Ajouter",command=lambda ar1=str(hosts.get()): add(ar1))
- bou2.grid(row=1,column=2)
-
- bou3=Label(root, text="Contenu de hosts :")
- bou3.grid(row=2,column=0,columnspan=3)
- affiche(str(lire(str(hosts.get()))))
-
- root.mainloop()
# -*- coding: cp1252 -*-
#Editeur de fichier Hosts. Ecrit et immaginé par Amaury
import os
import tkMessageBox
from Tkinter import *
import tkFileDialog
import sys
global host
host="C:/Windows/System32/drivers/etc/hosts"
def lire(fichier):
global contenu
fic=open(fichier , "r")
contenu=fic.read()
fic.close()
return contenu
def find():
global host
host = tkFileDialog.askopenfilename(parent=root,title="Fichier Hosts")
hosts.delete(0,len(hosts.get()))
hosts.insert(0,host)
def add(fichier):
global url
adresse=str(url.get())
contenu=lire(fichier)
fic=open(fichier , "w")
fic.write(contenu)
fic.write("\n127.0.0.1 " + str(adresse))
fic.close()
affiche(str(lire(fichier)))
def affiche(texte):
global root
cont=Text(root,width=80, height=20)
cont.grid(row=3, column=0,columnspan=3)
cont.insert(END,texte)
scroll=Scrollbar(root)
scroll.grid(row=3,column=4)
cont.config(yscrollcommand=scroll.set)
scroll.config(command=cont.yview)
root.update()
root=Tk()
hosts=Entry(root)
hosts.grid(row=0,column=1)
bou1=Button(root, text="Parcourir",command=find)
bou1.grid(row=0,column=2)
hosts.insert(0,host)
lbl1=Label(root, text="Emplacement du fichier Hosts:")
lbl1.grid(row=0,column=0)
lbl2=Label(root,text="Adresse à ajouter:")
lbl2.grid(row=1,column=0)
url=Entry(root)
url.grid(row=1,column=1)
url.insert(0,"www.exemple.com")
bou2=Button(root, text="Ajouter",command=lambda ar1=str(hosts.get()): add(ar1))
bou2.grid(row=1,column=2)
bou3=Label(root, text="Contenu de hosts :")
bou3.grid(row=2,column=0,columnspan=3)
affiche(str(lire(str(hosts.get()))))
root.mainloop()
Conclusion
Peut constituer un moyen de pression efficace sur un enfant accros à des jeux flash, ainsi qu'un moyen de contrôle parental.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Bienvenue [ par Nix ]
Bonjour à tou(te)sBienvenue sur le forum du nouveau site CodeS-SourceS consacré au langage Python.J'espère que ce nouveau site comblera un vide qu'il
site commercial [ par skott ]
Sottsalut je voudrais faire un site marchant avec possibilité de payement a distance comment fai et avec quel langage ?j'ai une bonne connaissance en
Comment fair un robot qui puisse fair des des actions sur internet ? [ par tipro75 ]
Bonjour, esque qu'el qu'un sait Comment fair un robot qui puisse fair des des actions sur internet ? merci d'avance cordialement ********.
Connexion internet (je n'arrive pas à ouvrir Internet Explorer) [ par atoutcoeur13 ]
Bonjour à toutes et tous, J'ai un soucis de connexion et j'aimerais avoir une réponse assez rapide.Voilà!La fille de ma copine a r
Problème avec scons [ par neophenix83 ]
Bonjour,Je souhaite installer Scons pour compiler certains programmes, mais j'ai un petit problème.J'ai tout d'abord installé python2.4.2 &#
Compression de fichier :Winzip et 7zip [ par HCD ]
Bonjour à tousCe qui suit s'adresse aux administrateurs du site.Lorsque l'on ajoute une nouvelle source sur le site, le fichier compressé doir comport
Note logiciel Python [ par Panthouffle ]
Salut, je cherche un site Internet qui donne un avis des utilisateurs sur le logiciel Python, une note de la part des utilisateurs pour un travail en
Aide : obtenir des information de Windows [ par aera group ]
Bonjour,je viens de tomber sur un site très interressant sur Python et Windows. Dans ce site, on a tous les codes utiles pour obtenir des information
Surveiller les échanges sur internet [ par aera group ]
Bonjour,Je souhaite développer un petit programme de contrôle d'Interent sur un PC (comme pour faire un logiciel de contrôl parental par exemple). J'a
|
Derniers Blogs
[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril CERTIFICATIONS BETA .NET 4CERTIFICATIONS BETA .NET 4 par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article par KooKiz [MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article par redo LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE
Toutes les vidéos de ce lancement sont en ligne!
Partie I - Intro
http://www.youtube.com/watch?v=LkQzTQ8T6CA
Partie II - Démo 1
http://www.youtube.com/watch?v=drAhYQ7lqvo
Partie III - Démo 2
http://www.youtube.com/watch?v=c8KM_1Gqybc...
Cliquez pour lire la suite de l'article par MPOWARE [WP7] JE NE VEUX PAS D'UN NOUVEL IPHONE[WP7] JE NE VEUX PAS D'UN NOUVEL IPHONE par FREMYCOMPANY
Je pense qu'ils ont besoin d'une piqure de rappel chez Microsoft : c'est bien gentil d'avoir une interface jolie, mais si c'est pour avoir un truc qui ne convainct pas dedans, c'est peine perdue.
---->
Système ouvert ----> Fermé ?
P...
Cliquez pour lire la suite de l'article par FREMYCOMPANY
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|