Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Créer un programme pour le contrôle parental
Auteur Message
Répondre en citant
Message Créer un programme pour le contrôle parental 
Salut tout le monde Laughing
Tout est dans le titre Mr. Green
J'ai eu cette idée avec AlonsO7798 en discutant dans le chat , pourquoi , on ne crée pas une petite application ça pourrai être un "mixage"( HTA, Vbscript et batch) pour contrôle parental avec mot de passe
Voilà, si quelqu'un veut nous joindre dans ce projet par ses idées ou bien ses conseils ou bien d'ajout de code tout sera le bienvenu Okay Laughing
à vos idées alors Idea Idea Idea




______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Créer un programme pour le contrôle parental 
Bonjour
il faudrait développer votre idée et poser les bases de celui ci

Que doit faire votre contrôle parental exactement ?

Le contrôle parental intégré Windows 8/8.1 permet de :

bloquer les téléchargements sur une session standard "enfant"
bloquer l'acces au page web à contenu adulte
permettre des plages horaires d utilisation du pc.

Et le vôtre que doit il faire ?

est ce un programme qui va configurer certaines fonctions du pc ou est ce programme qui va tourner en tâche de fond pour bloquer les accès




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Créer un programme pour le contrôle parental 
Salut,
je trouve que c'est une bonne idée, par exemple pour les heures, vous pouvez mettre une boucle qui teste %time%
En revanche pour les opérations sur le navigateur, je saurais pas trop ^^
Peut être copier et analyser les fichiers historique web pour faire des rapports Wink

Mais pour un gosse doué en batch, il peut modifier le code, donc essayez de bloquer le dossier où est le batch, si vous le mettez en .exe, il serait judicieux de bloquer les dossiers C:\temp et C:\users\%username%\appdata\local\temp qui risquent de contenir le exe décompilé Sad




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Créer un programme pour le contrôle parental 
Laddy a écrit:
Bonjour
il faudrait développer votre idée et poser les bases de celui ci

Que doit faire votre contrôle parental exactement ?

Le contrôle parental intégré Windows 8/8.1 permet de :

bloquer les téléchargements sur une session standard "enfant"
bloquer l'acces au page web à contenu adulte
permettre des plages horaires d utilisation du pc.

Et le vôtre que doit il faire ?

est ce un programme qui va configurer certaines fonctions du pc ou est ce programme qui va tourner en tâche de fond pour bloquer les accès


Mon idée à moi : c'est bloquer l’accès au page web à contenu adulte via OpenDNS càd agir et modifier les DNS

OpenDNS est un service gratuit de redirection DNS. Il se consulte via deux serveurs DNS récursifs accessibles sous les IP anycast suivantes : IPv4 : 208.67.222.222 ; 208.67.220.220; 208.67.222.220 et 208.67.220.222




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Créer un programme pour le contrôle parental 
Bonjour Hackoo

l'utilisation d openDNS semble intéressante mais pour que ce soit efficace à ce niveau ne faut il pas un compte OPENDNS et une utilitaire capable de faire une redirection de l ip dynamique du pc ?

il me semble que l option bloqué les sites x par exemple et disponible dans le compte opendns.

l utilisation des dns opendns seul ne permettraient pas un filtrage efficace.
ça reviendrait à utiliser les dns de Google en somme non ?


-> Commande netsh


le blocage par fichier hosts serait dans ce cas plus envisageable
-> fichier host à tester : http://p66bcbge67.1fichier.com/




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Créer un programme pour le contrôle parental 
Réponse à Hugo:

Hugo7 a écrit:
Salut,
je trouve que c'est une bonne idée, par exemple pour les heures, vous pouvez mettre une boucle qui teste %time%
En revanche pour les opérations sur le navigateur, je saurais pas trop ^^
Peut être copier et analyser les fichiers historique web pour faire des rapports Wink

Mais pour un gosse doué en batch, il peut modifier le code, donc essayez de bloquer le dossier où est le batch, si vous le mettez en .exe, il serait judicieux de bloquer les dossiers C:\temp et C:\users\%username%\appdata\local\temp qui risquent de contenir le exe décompilé Sad


Pour ce qui est de la possibilité de la modification du code, il sera compilé en .exe et exécuté en tâche de fond, donc pas possible de le modifier, et on ne verra même pas qu'il tourne Okay

Pour l'histoire des fichiers temps, je trouverais une solution Okay L'utilisateur devrait ne rien voir du tout Okay

Puis au pire des cas, on cryptera le tout afin d'en être bien sur Mr. Green




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message Créer un programme pour le contrôle parental 
Salut Laughing
1er Script pour activer le OpenDNS Okay

Code:
Call OpenDNS()
'*********************************************************************************
Sub OpenDNS()
On Error Resume Next
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   
   Set colNetCards = objWMIService.ExecQuery _
   ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
   
   For Each objNetCard in colNetCards
      arrDNSServers = Array("208.67.222.123", "208.67.220.123")
      objNetCard.SetDNSServerSearchOrder(arrDNSServers)
      If Err = 0 Then
         MsgBox "OpenDNS est activé",VbInformation,"OpenDNS est activé"
      Else
         MsgBox Err.Decription,Vbcritical,Err.Decription
      End If   
   Next
End Sub
'*********************************************************************************


Maintenant je cherche comment le remettre dans son état initial une idée Idea Question




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Créer un programme pour le contrôle parental 
Re,

Aucune idée à ce sujet, sinon, on fait une interface simple ou détaillée ?
J'pensais en faire une simple bien expliquée Okay qu'en dis-tu ?




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message Créer un programme pour le contrôle parental 
Hackoo > tu fais la même chose en mettant "" "" ça devrait marcher.
ou avec netsh




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Créer un programme pour le contrôle parental 
Laddy a écrit:
Hackoo > tu fais la même chose en mettant "" "" ça devrait marcher.
ou avec netsh

la 1ère méthode ne marche pas ??
avec netsh comment faire ???
Merci !




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Créer un programme pour le contrôle parental 
Salut Laughing
La 1ère partie du programme concernant le OpenDNS est prête Okay Mr. Green
Vous pouvez copier et coller dans votre Notepad avec le nom OpenDNS.vbs ce code et le tester Laughing

Code:
Option Explicit
Dim MessageArabe,MessageFr,MessageEn,Titre,Question,strComputer,objWMIService,colNetCards,objNetCard,arrDNSServers
MessageArabe = ChrW(1607)&ChrW(1604)&ChrW(32)&ChrW(1578)&ChrW(1585)&ChrW(1610)&ChrW(1583)&ChrW(32)&_
ChrW(1581)&ChrW(1580)&ChrW(1576)&ChrW(32)&ChrW(1575)&ChrW(1604)&_
ChrW(1605)&ChrW(1608)&ChrW(1575)&ChrW(1602)&ChrW(1593)&ChrW(32)&ChrW(1575)&ChrW(1604)&_
ChrW(1575)&ChrW(1576)&ChrW(1575)&ChrW(1581)&ChrW(1610)&ChrW(1577)&ChrW(32)&ChrW(1608)&_
ChrW(32)&ChrW(1575)&ChrW(1604)&ChrW(1582)&ChrW(1576)&ChrW(1610)&ChrW(1579)&ChrW(1577)
MessageFr = " Voulez-vous bloquer les sites pornographiques et malveillants ?"
MessageEn = " Do you want to block pornographic and malicious websites ?"
Titre = MessageArabe &" © Hackoo © 2014"
Question = MsgBox(MessageArabe  & VbcrLf & MessageFr & VbcrLf & MessageEn,VbYesNO+VbQuestion,Titre)
If Question = VbYes then
   Call OpenDNS(True)
Else
   Call OpenDNS(False)
End if
'****************************************************************************************************************
Sub OpenDNS(Active)
   Dim OKMsgAR,OKMsgFR,OKMsgEN,NoOKMsgAR,NoOKMsgFR,NoOKMsgEN
   OKMsgAR = ChrW(1578)&ChrW(1605)&ChrW(32)&ChrW(1578)&ChrW(1606)&ChrW(1588)&ChrW(1610)&ChrW(1591)&ChrW(32)&ChrW(1582)&_
   ChrW(1583)&ChrW(1605)&ChrW(1577)&ChrW(32)&ChrW(1571)&ChrW(1576)&ChrW(1606)&ChrW(1583)&ChrW(1606)&ChrW(1587)&ChrW(32)&_
   ChrW(1576)&ChrW(1606)&ChrW(1580)&ChrW(1575)&ChrW(1581)&ChrW(33)
   
   NoOKMsgAR = ChrW(1578)&ChrW(1605)&ChrW(32)&ChrW(1573)&ChrW(1604)&ChrW(1594)&ChrW(1575)&ChrW(1569)&ChrW(32)&ChrW(1582)&_
   ChrW(1583)&ChrW(1605)&ChrW(1577)&ChrW(32)&ChrW(1571)&ChrW(1576)&ChrW(1606)&ChrW(1583)&ChrW(1606)&ChrW(1587)&ChrW(32)&_
   ChrW(1576)&ChrW(1606)&ChrW(1580)&ChrW(1575)&ChrW(1581)&ChrW(33)
   
   OKMsgFR = "Le service OpenDNS est activé avec succès !"
   NoOKMsgFR = "Le service OpenDNS est désactivé avec succès !"
   
   OKMsgEN = "The OpenDNS service is successfully activated !"
   NoOKMsgEN = "The OpenDNS service is off successfully !"
   On Error Resume Next
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   
   Set colNetCards = objWMIService.ExecQuery _
   ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
   If Active = True Then
      For Each objNetCard in colNetCards
         arrDNSServers = Array("208.67.222.123", "208.67.220.123")
         objNetCard.SetDNSServerSearchOrder(arrDNSServers)
         If Err = 0 Then
            MsgBox OKMsgAR & VbCrlF & OKMsgFR & VbCrlF & OKMsgEN,VbInformation, OKMsgAR & OKMsgFR
         Else
            MsgBox Err.Description,Vbcritical,Err.Description
         End If   
      Next
   Else
      For Each objNetCard in colNetCards
         objNetCard.SetDNSServerSearchOrder(null)
         If Err = 0 Then
            MsgBox NoOKMsgAR & VbCrlF & NoOKMsgFR & VbCrlF & NoOKMsgEN,VbExclamation,NoOKMsgAR & NoOKMsgFR
         Else
            MsgBox Err.Description,Vbcritical,Err.Description
         End If   
      Next
   End If
End Sub
'****************************************************************************************************************





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Créer un programme pour le contrôle parental 
Bonjour
openDNS ne permet pas de bloquer à lui seul des sites malveillants, dans ce cas il sert uniquement à "accelerer le chargement des pages"


regarde ces lignes de commandes

ipconfig /flushdns

netsh interface ip set dns "Description" static




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Créer un programme pour le contrôle parental 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch