En poursuivant votre navigation sur le site, vous acceptez l’utilisation de cookies pour : [vous identifier / personnaliser votre expérience]. Cliquez ici Pour en savoir plus.

Script VBScript : Bloquer et Débloquer un site web

...

ConnexionSe connecterInscriptionS'inscrire
Script mis à jour le 16/07/14

Description du script VBScript :

Voici un script permettant de bloquer ou débloquer un site web sur l'ordinateur en local. Ce script ajoute une ligne dans le fichier hosts de Windows, il demande donc d'être lancé en tant qu'administrateur pour fonctionner.

Droits d'utilisations de ce script VBScript :

Je peux revendre ce script
Je peux l'utiliser plusieurs fois
Je peux l'utiliser pour mes clients
Je peux modifier ce script
Je dois citer l'auteur du script
bloquer_site.vbs :If Not WScript.Arguments.Named.Exists("elevate") Then  CreateObject("Shell.Application").ShellExecute WScript.FullName _    , WScript.ScriptFullName & " /elevate", "", "runas", 1  WScript.QuitEnd Ifdim Fso,fDim rep,label,titre,defaut,datalabel="Entrez dans le champ ci-dessous Le site que vous-voulez Bloquer Exemple www.site.com"defaut=""titre="Bloquer un site web"rep=InputBox(label,titre,defaut)Set Fso = CreateObject("Scripting.FileSystemObject")sys32=Fso.GetSpecialFolder(1)Set f = fso.OpenTextFile(sys32+"\DRIVERS\ETC\hosts", 8)if rep="" then Cleanupf.Write vbnewlinef.Write "127.0.0.1 " &repSub Cleanup()Set FSO = NothingWScript.QuitEnd Subdebloquer_site.vbs:If Not WScript.Arguments.Named.Exists("elevate") Then  CreateObject("Shell.Application").ShellExecute WScript.FullName _    , WScript.ScriptFullName & " /elevate", "", "runas", 1  WScript.QuitEnd Ifdim Fso,fDim rep,label,titre,defautlabel="Entrez dans le champ ci-dessous Le site que vous-voulez débloquer"defaut=""titre="Débloquer un site web"rep=LCase(InputBox(label,titre,defaut))Set Fso = CreateObject("Scripting.FileSystemObject")sys32=Fso.GetSpecialFolder(1)Set R = Fso.OpenTextFile(sys32 & "\DRIVERS\ETC\hosts", 1)Temp=LCase(r.readall)R.closetrouver=InStr(temp,rep)If trouver=0 Then    MsgBox "le site n'est pas dans le fichier Host"Else    temp=Replace(temp,rep,"localhost")    Set W = Fso.CreateTextFile(sys32 & "\DRIVERS\ETC\hosts", True)    W.Write Temp    W.closeEnd If

16/07/14 : Première version du script

Questions posées fréquemment
Vous trouverez un bouton "signaler" en haut à droite de cette fiche pour avertir le créateur d'un problème.
Demande de support

Vous rencontrez une difficulté ou avez besoin d'informations supplémentaires sur le script ? N'hésitez pas à contacter l'auteur en cliquant sur le bouton ci-dessous :

Michel - LeBlogDuHacker

Inscrit le : 16 Juillet 2014

Intérêt : non-renseigné

Voir son profil >>

Nombre de visites du script : 2767

Moyenne de visites des scripts : 13


Prix de vente moyen d'un script : 3 euros

// Commentaires sur ce script VBScript :

Veuillez vous inscrire et/ou vous connecter pour laisser un commentaire

Il n'y a pas encore de commentaire sur ce script.
Essayez-le et soyez le premier à laisser votre avis !

Basile : Mascotte chez 1script.frSITE EN TEST PUBLIQUE :
Bonjour, je vous rappelle que le site est en phase de test. En savoir plus ?
Script par Michel - LeBlogDuHacker
Autres scripts du même membre GRATUIT

PARTAGER CE SCRIPT

Twitter Facebook Google Plus Linkedin email

SECTIONS / CATEGORIES

NEWSLETTER : S'ABONNER

BASIL VOUS EXPLIQUE TOUT

Découvrez 1script.fr en vidéo

SUIVEZ 1SCRIPT.FR

ACCÈS