Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 00:43:26

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : PROBLEME DANS BASE DE DONNéES par PCPT

+ de logiciels à télécharger

1 464 951 membres
8 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 043 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONNAÎTRE SON FAI (FOURNISSEUR D'ACCÈS À INTERNET)

Information sur la source

Catégorie :Réseau & Internet Classé sous : connaitre, fai, fournisseur, acces, internet Niveau : Initié Date de création : 28/05/2004 Date de mise à jour : 29/05/2004 12:49:29 Vu / téléchargé: 27 952 / 725

Auteur : Jiggy35

Ecrire un message privé

Note :

9,67 / 10

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

*** MODIFICATION DU CODE SOURCE ***

J'ai modifié les fonctions de récupération de l'IP et de l'hôte DNS de façon à rendre le code PHP plus compatible envers les serveurs PHP.

**********************************

Cette source permet la détection de votre fournisseur d'accès depuis un programme VB se servant du résultat d'une page PHP.

Le script PHP utilise la commande "gethostbyaddr()" qui permet de connaître son nom d'hôte. Le résultat est ensuite analysé afin de reconnaître le nom de votre FAI.
Ma base de donnée des FAI en fonction des noms d'hôte est de loin incomplète mais permet déjà de reconnaître les principaux FAI. Si votre FAI n'est pas reconnu, le programme affichera simplement l'adresse web du FAI au lieu de son nom.

Ce projet m'est utile dans la réalisation d'un autre projet qui permet l'envoi de rapports de configuration automatisés par e-mail. Mon problème était que pour utiliser la fonction mail, le serveur E-Mail et le provider doivent correspondre puisque les serveur ne font plus de relais.

Avec cet outil, on peu à présent déterminer le FAI et avec un peu de jugeotte utiliser le serveur mail approprié.

J'espère que vous aurez compris le but de programme et j'espère également avoir l'heureuse surprise de vous voir me donner les informations manquantes à ma recherche, à savoir

les signatures DNS manquantes de la liste suivante :

AOL = cache-prs-ac08.proxy.aol.com
Bluewin = 98.108.77.83.cust.bluewin.ch
Cablecom(swissonline) = 62-2-184-71.business.cablecom.ch dclient80-218-137-40.hispeed.ch
COLT France = host.12.37.23.62.rev.coltfrance.com
Club Internet = f02v-4-169.d3.club-internet.fr
Cybernet =
Econophone =
Fnac =
Free = lns-th2-4f-81-56-218-46.adsl.proxad.net
Freesurf =
Green =
Intergga = cable-ggar48-043.intergga.ch
Liberty Surf =
Magnet =
Noos = e228.dhcp212-198-149.noos.fr
tg-netcache-01.noos.net
Profitel =
SecurePoP = spfwsail01.securepop.ch
Solnet =
Sunrise = adsl-XX-XXX-XXX-XX.adslplus.ch
pop-zh-15-1-dialup-71.freesurf.ch
Sympatico = Toronto-HSE-pppXXXXXXX.sympatico.ca
Tiscali Suisse = adsl-35-76-fixip.tiscali.ch
Tiscali France = dyn-xxx-xx-xxx-xxx.ppp.tiscali.fr
Tele2 France = d80-170-255-173.cust.tele2.fr
Urbanet =
Vidéotron = modemcableXXX.XXX-XXX-XXX.mc.videotron.ca
VTX = adsl-soholight-1-c58-p225.vtx.ch
Wanadoo = ADijon-106-1-29-20.w81-248.abo.wanadoo.fr
World Online =
9 Telecom =

ainsi vous contribuerai à l'amélioration de la reconnaissance FAI sur votre système.

Egalement si vous connaissez l'adresse des seveurs SMTP des FAI ci-dessus ou d'autres, faites-les moi connaître. Merci

Source

<?
if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
$ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
$host = @gethostbyaddr($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]);
}
else{
$ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
$host = @gethostbyaddr($HTTP_SERVER_VARS["REMOTE_ADDR"]);
}
//ancienne méthode de récupération de l'hôte et de l'IP
//méthode pas 100% compatible avec tous les serveurs PHP
//
//$ip = getenv('REMOTE_ADDR');
//$host = gethostbyaddr($ip);
//
$tmp = explode(".", $host);
$serv = '(www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1].')';
if (ereg("aol", $host)) {$fai="AOL";}
elseif (ereg("bluewin", $host)) {$fai="Bluewin $serv";}
elseif (ereg("cablecom", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("hispeed", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("coltfrance", $host)) {$fai="COLT France $serv";}
elseif (ereg("club-internet", $host)) {$fai="Club Internet $serv";}
elseif (ereg("proxad", $host)) {$fai="Free $serv";}
elseif (ereg("intergga", $host)) {$fai="InterGGA $serv";}
elseif (ereg("noos", $host)) {$fai="Noos $serv";}
elseif (ereg("securepop", $host)) {$fai="SecurePoP $serv";}
elseif (ereg("adslplus", $host)) {$fai="Sunrise $serv";}
elseif (ereg("freesurf", $host)) {$fai="Sunrise $serv";}
elseif (ereg("tiscali.fr", $host)) {$fai="Tiscali France $serv";}
elseif (ereg("tiscali.ch", $host)) {$fai="Tiscali Suisse $serv";}
elseif (ereg("tele2.fr", $host)) {$fai="Tele2 France $serv";}
elseif (ereg("videotron", $host)) {$fai="Vidéotron $serv";}
elseif (ereg("sympatico", $host)) {$fai="Sympatico $serv";}
elseif (ereg("vtx", $host)) {$fai="VTX $serv";}
elseif (ereg("wanadoo", $host)) {$fai="Wanadoo $serv";}
else {$fai = 'www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1];}
if ($fai=="www.proxad.net") {$fai="www.free.fr";}
echo $fai;
echo "<br>";
echo $host;
?>

<?

if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){  
	$ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];  
	$host = @gethostbyaddr($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]);  
	}
else{
	$ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];  
	$host = @gethostbyaddr($HTTP_SERVER_VARS["REMOTE_ADDR"]);
	}

//ancienne méthode de récupération de l'hôte et de l'IP
//méthode pas 100% compatible avec tous les serveurs PHP
//
//$ip = getenv('REMOTE_ADDR');
//$host = gethostbyaddr($ip);
//

$tmp = explode(".", $host); 
$serv = '(www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1].')';

if (ereg("aol", $host)) {$fai="AOL";}
elseif (ereg("bluewin", $host)) {$fai="Bluewin $serv";}
elseif (ereg("cablecom", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("hispeed", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("coltfrance", $host)) {$fai="COLT France $serv";}
elseif (ereg("club-internet", $host)) {$fai="Club Internet $serv";}
elseif (ereg("proxad", $host)) {$fai="Free $serv";}
elseif (ereg("intergga", $host)) {$fai="InterGGA $serv";}
elseif (ereg("noos", $host)) {$fai="Noos $serv";}
elseif (ereg("securepop", $host)) {$fai="SecurePoP $serv";}
elseif (ereg("adslplus", $host)) {$fai="Sunrise $serv";}
elseif (ereg("freesurf", $host)) {$fai="Sunrise $serv";}
elseif (ereg("tiscali.fr", $host)) {$fai="Tiscali France $serv";}
elseif (ereg("tiscali.ch", $host)) {$fai="Tiscali Suisse $serv";}
elseif (ereg("tele2.fr", $host)) {$fai="Tele2 France $serv";}
elseif (ereg("videotron", $host)) {$fai="Vidéotron $serv";}
elseif (ereg("sympatico", $host)) {$fai="Sympatico $serv";}
elseif (ereg("vtx", $host)) {$fai="VTX $serv";}
elseif (ereg("wanadoo", $host)) {$fai="Wanadoo $serv";}
else {$fai = 'www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1];}

if ($fai=="www.proxad.net") {$fai="www.free.fr";}

echo $fai;
echo "<br>";
echo $host;

?>

Conclusion

LE code VB est dans le ZIP.

Pour faire fonctionner le code vous devez :

1) Mettre en ligne le fichier PHP
2) Lancer le programme VB et inscrire le lien exact du fichier PHP

REMARQUE :
Le module de lecture de page web, n'est pas de moi et est dispo sur vbfrance, merci à son auteur pour ce précieux rendu.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

fai.php 1 910 octets
Form1.frm 1 940 octets
LirePage.bas 1 981 octets
Projet1.vbp 661 octets
Projet1.vbw 80 octets

Télécharger le zip

Sources du même auteur

VBVSPHP MAILER OU COMMENT ENVOYER UN MAIL SANS WINSOCK NI SE...

SUPPRIMER AUTOMATIQUEMENT SON EXÉCUTABLE EN QUITTANT

TEST DE VALIDITÉ DU FORMAT D'UNE ADRESSE E-MAIL ET SMTP

Toutes les sources de Jiggy35

Sources de la même categorie

LIGHT CODES-SOURCES par thebigboss3

STORMDATACENTER - DÉMO DE WEBBROWSER MULTIFONCTION VB9 par LightningStrike

TRADUCTEUR GOOGLE : INTERFACE WINFORM POUR LE SERVICE DE TRA... par Patrice99

COMMENT CONTRÔLER TOTALEMENT LES PROCESSUS D'UN PC DISTANT (... par violent_ken

MINI CACHE DNS par XelectroX

Toutes les sources de la catégorie Réseau & Internet

Sources en rapport avec celle ci

GESTION VIDÉO par mich95

RÉCUPÉRATION D'INFOS DE FILM par mich95

VOTRE IP PUBLIQUE DANS LE SYSTRAY par jack

IP PUBLIQUE POUR TOUT LE MONDE par jack

MANIPULATIONS DE IE par jack

Commentaires et avis

Commentaire de Golog le 28/05/2004 18:09:47

Super interresant tout sa , c'est clair que ta liste est encore petite , mais si les gens se prenne au jeux , et qu'il complete cette liste (en pensant la mettre en ligne) sa serais super :)

9/10 , belle originalité (meme si j'avoue ne pas avoir chercher si ce genre de source existe deja sur vbfrance)

Commentaire de Frecky le 28/05/2004 20:10:13

Se soir je vais essayé de te donner quelque addresse de FAI du Québec tel que Vidéotron, Sympatico et Sympatico Haute Vitesse
Un bon début cette source. l'utilité je ne sais pas.. mais bonne prog :)

Commentaire de azerty25 le 28/05/2004 22:30:03

Bon chti projet tout ça ;)

Commentaire de Frecky le 28/05/2004 22:59:49

Vidéotron: modemcableXXX.XXX-XXX-XXX.mc.videotron.ca
Sympatico: Toronto-HSE-pppXXXXXXX.sympatico.ca

Commentaire de Jiggy35 le 29/05/2004 11:46:27

M E R C I !

...d'avoir joué de le jeu et de m'aider dans la recherche de nouvelles signatures.

je mettrai à jour la source lorsque j'aurai plus de FAI connus.

il faut savoir encore un détail, c'est que tous les providers n'acceptent pas forcément mon code PHP. Lycos a du mal par exemple.

POUR PERMETTRE A CEUX QUI NE SAVENT PAS COMMENT VERIFIER LEURS SIGNATURES, JE LES INVITE A VISITER LE LIEN SUIVANT ET DE POSTER LE RESULTAT ICI !

http://ophidianlair.free.fr/prisedetete/fai
(Merci à Ophidian d'héberger provisoirement mon code)

Pensez également à me donner l'adresse du serveur SMTP de votre FAI également, puisque le but ultime est d'assigner un serveur valide pour l'envoi de mails à aprtir de VB.

Merci et continuez de poster !

@+

Commentaire de OphidiaN le 29/05/2004 14:17:23

hehe ;) g00d job !

Commentaire de azerty25 le 29/05/2004 15:18:30

Si tu veux les listes des SMTP, tu devrai nous donner la liste que tu possede déja, a moins que tu es déja les meme que pour les noms d'FAI

Commentaire de Jiggy35 le 29/05/2004 15:22:37

en effet c'est la même, mais elle loin d'être exhaustive.

voici l'état de mes recherches acutellement pour les serveurs SMTP car la liste des hôtes DNS est à jour plus haut :

AOL France = smtp.fr.aol.com
Bluewin = mail.bluewin.ch
Cablecom(swissonline) = smtp.hispeed.ch
Club Internet = mail.club-internet.fr
Cybernet = smtp.cybercity.ch
Econophone = mail.econophone.ch
Fnac = mail.fnac.net
Free = smtp.free.fr
Freesurf = mail.freesurf.fr
Green = smtp.green.ch
Intergga = mail.intergga.ch
Liberty Surf = mail.libertysurf.fr
Magnet = smtp.magnet.ch
Noos = mail.noos.fr
Profitel = mail.profitel.ch
SecurePoP = aucun ?
Solnet = mail.solnet.ch
Sunrise = smtp.sunrise.ch
Sympatico =
Tiscali Suisse = mail.tiscalinet.ch
Tiscali France = smtp.tiscali.fr
Tele2 France = smtp.tele2.fr
Urbanet = smtp.urbanet.ch
Vidéotron =
VTX = smtp.vtxnet.ch
Wanadoo = smtp.wanadoo.fr
World Online = smtp.worldonline.fr
9 Telecom = smtp.neuf.fr

voilà.

@+

Commentaire de azerty25 le 29/05/2004 15:25:38

Je pense que tu a une erreur, selon ce que j'ai lu, le serveur de mails pour AOL est un IMAP

Commentaire de azerty25 le 29/05/2004 15:27:11

Le ping du serveur de ta liste le confirme (aucune réponse ;))

Commentaire de Jiggy35 le 29/05/2004 15:28:36

par contre l'accès par telnet sur le port 25 me dit ceci :

220 air-id06.mx.aol.com ESMTP mail_in-id6.2; Sat, 29 May 2004 09:30:17 -0400

ce qui confirme que ça doit être un SMTP...

non? je sais pas en fait puis que je ne peux le tester...

Commentaire de azerty25 le 29/05/2004 15:36:44

Oula, excusez moi, je délire. Le IMAP c'est pour récuperer les mails, pas pour les envoyer. Par contre, j'ai vérifié, smtp.fr.aol.com est normalement ok. (si tu veux toujours me contacter sur MSN, pas de probs, mais sa sera pour plus tard car faut que je parte :()

Commentaire de Frecky le 30/05/2004 05:36:37

Pour vidéotron le SMTP c'est relais.videotron.ca Ece SMTP je sais pu trop, mais à vous de vérifié !

Aller continue, bon travaiL!

Commentaire de Jiggy35 le 30/05/2004 10:58:35

Merci Frecky,

avec l'ajout de :

Sympatico = smtp1.sympatico.ca
Vidéotron = relais.videotron.ca

ma liste de Serveurs SMTP est complète. j'aimerais bien pouvoir finir la liste des DNS avant de trouver de nouveaux providers.

mes signatures manquantes concernent les FAI suivant :

Cybernet, Econophone, Fnac, Freesurf, Green, Liberty Surf, Magnet, Profitel, Solnet, Urbanet, World Online, 9 Telecom

je vous rappelle que vous pouvez tester votre signature et la poster ici par la suite en visitant les adresses suivantes :

http://ophidianlair.free.fr/prisedetete/fai/

et maintenant

http://membres.lycos.fr/jiggymask/fai/

merci de votre participation.

@+

Commentaire de Noxid le 16/06/2004 14:12:34

Sérieux, GG pour ca! Vraiment cool! J'en avais trop besoin!
Thx et GJ a toi!

++

Commentaire de wallon14 le 30/06/2004 10:37:48

C'est bien, un nouveau truc de trouvé :o)

(mais moi je connais mon FAI :oP )

Commentaire de rapbizz le 05/07/2007 12:28:23

eu212-87-100-253.adsl.euphonynet.be

euphony

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Connaitre le provider en cours de connection [ par Julien ] J'ai déja réussi à détecter la connection internet, mais je voudrai savoir avec quel provider la connection est en cours (ex : libertysurf ou waika9) important et introuvable ce tutoriaux [ par Dragon ] j`ai chercher vraiment partout et ça commence à être urgent, puisque je peut pas continuer mon projet sans çapremièrement, comment on peut connaitre l vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess acces à internet à partir d'une textbox [ par CANARDBLEU ] Mon problème est le suivant. J'ai une textbox dans laquelle s'affichent diverses adresses de site internet à mesure que je fais défiler ma base de don Connaitre le nombre d'octet qui entre et qui sort d'internet ... [ par lamouche2004 ] BonjourJ'aimerais determiner le nombre d'octet entrant et sortant d'internet avec un modem 56K en utilisant les api RasGetConnectionStatistics et RasE connaitre les url des fenetres internet ouverte [ par yannn ] Sur le projet d'un keylogger, je souhaiterai détecter l'ouverture d'une fentre IE ou netscape... et récupérer l'url des differentes pages visités.qq' connaitre les url des fenetres internet ouverte [ par yannn ] Sur le projet d'un keylogger, je souhaiterai détecter l'ouverture d'une fentre IE ou netscape... et récupérer l'url des differentes pages visités.qq' connaitre les url des fenetres internet ouverte [ par yannn ] je souhaiterai savoir comment déplacer un fichier d'un repertoire a un autre le plus simplement du monde (peut etre en utilisant filecopy et kill) ?