Navigateur, gestion pop-up, censure

Soyez le premier à donner votre avis sur cette source.

Vue 5 291 fois - Téléchargée 823 fois

Description

Ceci est un navigateur internet avec censure, pop-up, historique, ...

Modeste mais assez puissant pour s'en servir a plien temps

Source / Exemple :


Pas de code car images.

Voyez le exe !

Public sub Page_Load()
Télécharger "masource.zip"
End Sub

Public sub télécharger(fichier as string)
You.Download fichier
MsgBox "Merci pour votre téléchargement",vbInformation,"Merci"
End
End Sub

Conclusion :


Merci à tous les testeurs et à vbfrance

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
He oui, je sais
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 !
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
Les popups s'ouvrent dans fenêtre IE... ça casse tout :)
cs_Jielde
Messages postés
228
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010
-
Salut, pas mal ta source.

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.