NAVIGATEUR, GESTION POP-UP, CENSURE
cs_Jielde
Messages postés
226
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010
-
11 avril 2005 à 00:47
romit Messages postés 160 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 30 juin 2011 - 11 avril 2005 à 19:12
romit Messages postés 160 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 30 juin 2011 - 11 avril 2005 à 19:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30662-navigateur-gestion-pop-up-censure
https://codes-sources.commentcamarche.net/source/30662-navigateur-gestion-pop-up-censure
11 avril 2005 à 19:12
pour les pop-up mais c'est voulut, sinon j'orais fait un autre code qui demande de ne pas l'afficher dans ie (le code pour la fermer) plus le code pour ouvrir une nouvele fenêtre avec l'adresse. Je vous ai laissé libre.
Merci Jielde, je n'y avait pas pensé, lol !
PS: Vous pouvez améliorer ma source tant que vous voulez et même y mettre votre nom, ça ne me gène pas du tout !
11 avril 2005 à 18:49
11 avril 2005 à 00:47
un truc pour remplacer tes :
If InStr(Text, "SEXE") Then
If InStr(Text, "SeXe") Then
etc...
fais un seul truc:
If InStr(Ucase(Text)), "SEXE") Then
WebBrowser1.Navigate "about:Vous tentez d'afficher une page à caractères pornographiques"
MsgBox "Vous tentez d'afficher une page à caractères pornographiques", vbInformation, "Contenu Bloqué"
End If
comme sa tu cherche "SEXE" en majuscule dans text qui à été convertit en Majuscule grace à Ucase
tu peut aussi faire Lcase qui convertit en minuscule Text