Extraire les courriels (emails) d'une page web (html/script)

Soyez le premier à donner votre avis sur cette source.

Vue 6 037 fois - Téléchargée 778 fois

Description

Voici une application fort simple qui cherchera toutes les pages web ouvertes dans Internet Explorer afin d'extraire les adresses courriels.

Le code est bien documenté, c'est une bonne source didactielle.

Source / Exemple :


'----- Téléchargez le code -----

Conclusion :


Voilà, je n'ai pas inclus l'inspection des TARGETTED FRAMES d'une page Web. Ben quoi ? Si vous voulez apprendre, il faut aussi vous creuser les méninges ! Petit indice: utilisez le WATCH pour bien comprendre le comportement des objets "objIE" et "objDoc" (voir la source) et vous n'auriez pas trop de difficultées à coder une version qui gère les FRAMES.

Présentement l'application inspecte toutes les instances de IE ouvertes. Il est facile maintenant de reprogrammer l'application afin qu'elle parcours elle-même une liste de URL; l'astuce est d'ouvrir les pages dans une fenêtre BROWSER (voir Microsoft Internet Control dans les composantes) caché derrière l'objet "Text1". Utilisez ".Navigate2" de votre fenêtre BROWSER.

Je suis persuadé que vous trouverez tout plein d'idées pour une future version de cette application.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

LogRaam (aka Gabriel Mailhot)
Messages postés
60
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
25 avril 2005

Bonjour MalcomXW,

Sans te donner le source, je peux te dire comment procéder. Tu dois coder une application qui utilisera la récursivité pour parcourir tous les fichiers de ton disque dur. Il y a d'excellents articles à ce sujet sur le web.

Ensuite, pour tout type de fichiers étant susceptibles de contenir une adresse courriel (.txt, courriels, .doc, etc.), tu dois ouvrir le fichier et importer son contenu dans une variable temporaire. Ensuite tu recherches les caractères "@" qui sont d'excellents candidats pour des adresses de courriel. Au final, tu écrit dans un fichier chacune des adresses.

Aujourd'hui avec la grosseur des disques durs, cette procédure peut être très longue à exécuter.

Bonne chance!
malcomxw
Messages postés
20
Date d'inscription
mercredi 22 juin 2005
Statut
Membre
Dernière intervention
18 avril 2010

y'a t il un moyen d'extraire tout les adresse email que j'ai dans mon disque dur dans n'importe quel repertoire et les renvoyer dans un fichier text en utilisant code vb

g chercher partout et g pas reussis a trouver une solution

merci infinement pour votre aide
LogRaam (aka Gabriel Mailhot)
Messages postés
60
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
25 avril 2005

Bien sûre LordBob,


C'est mon erreur, j'aurais dû l'indiquer dans l'entête du code source. Voici la procédure à suivre:

Dans VB, navigue dans le menu [Project]-->Références... et sélectionne la référence au script suivant:

- Microsoft internet Controls

Tu remarqueras que dans le code source, je construit un objet SHDOCVW qui est en fait un VB Script pour gérer Internet Explorer.

Donc une fois que tu as sélectionnés la référence, tu n'as qu'à exécuter le code.

Bonne chance !


MadLucas
cs_LordBob
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
8
ton programme j'arrive pas a la faire marché... tu pourrais m'expliquez comment on fait pour le faire marchre?
LogRaam (aka Gabriel Mailhot)
Messages postés
60
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
25 avril 2005

Désolé revo, mais c'est tout à fait légal. Ce programme ne fait que lire les courriels qui sont de toute façon disponible à même la page Web que tu scan. Donc aucun acte de piraterie ou de hacking proprement dit...

Je pourrais par exemple programmer une autre version où l'application soustirerait tous les mots "Exemples" d'une page Web... Là, au lieu d'un simple mot, c'est un simple mot qui représente un courriel.

Une version illégale serait une application qui force des données confidentielles afin d'en soustirer les courriels. Ça c'est pas moi qui va le développer...


MadLucas

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.