Script Contrôle parental ?
Bonjour, je voudrais faire un petit script en Vbscript qui simule a peu prés le contrôle parentale.
Je m'explique si au cours de l'exécution de ce script qui se fait en boucle pour qu'il ne s'arrête pas et éventuellement et qu'il détecte les mots à éliminer ou à censurer par exemple les Mots "[Edit] Thierry : on a compris, c'est bon !"
voila j'ai fais ceci et biensûr, c'est du broullion et c'est une 1ère Tentative de ma part, alors je veux que quelqu'un expérimenté en Vbscript me donne un coup de main ou bien des idées et des trucs et des astuces pour que ce script marche bien.
Merci bien de votre précieuse AIDE !
'----------------------Censure.vbs----------------------------
dim variable
Set variable=CreateObject("WScript.Shell")
do
if variable.AppActivate ("s**e") Then variable.SendKeys "%{F4}" ' ici on tente de femer l'application qui porte le mot s**e en simulant la 'combinaison des touches Alt+F4
if variable.AppActivate ("s**") Then variable.SendKeys "%{F4}"
if variable.AppActivate ("p***") Then variable.SendKeys "%{F4}"
if variable.AppActivate ("b***") Then variable.SendKeys "%{F4}"
loop
'----------------------Fin du Script---------------------------
Pour le code c'est le bouton #, en haut à droite de l'editeur, non facultatif.
Citation:
Envoyé par
hackoofr
Bonjour
.........
Merci bien de votre précieuse AIDE !
Code:
1
2
3
4
5
6
7
8
9
10
| '----------------------Censure.vbs----------------------------
dim variable
Set variable=CreateObject("WScript.Shell")
do
if variable.AppActivate ("s**e") Then variable.SendKeys "%{F4}" ' ici on tente de femer l'application qui porte le mot s**e en simulant la 'combinaison des touches Alt+F4
if variable.AppActivate ("s**") Then variable.SendKeys "%{F4}"
if variable.AppActivate ("p***") Then variable.SendKeys "%{F4}"
if variable.AppActivate ("b***") Then variable.SendKeys "%{F4}"
loop
'----------------------Fin du Script------------------------- |
