Aspire source web, connaitre son ip sur le web

Soyez le premier à donner votre avis sur cette source.

Vue 12 089 fois - Téléchargée 1 247 fois

Description

ce logiciel permet d'aspirer la source d'un site web et de connaitre son ip sur le web.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
220
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
26 octobre 2007
1
Vraiment bien pour l'aspiration par internet... par contre, y a til moyen de passer par un proxy par cette méthode ?
Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
2
merci de me tenir au courant a+
Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016

Merci pour la fonction RetourneIP.

Je l'ai modifiée ainsi afin de toujours obtenir 1 IPv4 valide, quelque soit l'emplacement de l'IP sur le site.

Private Function RetourneIP() As String

Dim web As New System.Net.WebClient
Dim site As New System.IO.StreamReader(web.OpenRead("http://www.whatismyip.com"))
Dim ligne, caractère, ip, nombres() As String
'Fonction pour capturer l'adresse IP diponible sur http://www.whatismyip.com
'Etant donné que la position de l'adresse ip n'est jamais fixe,
'la fonction recherche une adresse ip valide (nombre point nombre point nombre point nombre)
While site.Peek > 0
'Lecture de la ligne suivante
ligne = site.ReadLine
ip = ""
For Each caractère In ligne
If (Asc(caractère) >= Asc("0") And _
Asc(caractère) <= Asc("9")) Or _
caractère = "." Then
'Ce caractère peut faire parti d'1 adresse IP valide
'On ajoute ce caractère dans la capture de l'IP
ip &= caractère
Else
'Ce caractère ne fait pas parti d'1 adresse IP valide
'L'IP capturée ne peut contenir que des chiffres et des points
'Vérification si l'adresse IP capturée est valide
'Stock les nombres dans 1 tableau
nombres = ip.Split(".")
If UBound(nombres) = "3" Then
'Il y a 4 nombres (de nombres(0) à nombres(3), et donc 3 points
'L'IP est donc valide
Return ip
End If
'IP non valide
'On efface la capture de l'IP
ip = ""
End If
Next
End While
End Function
Messages postés
7
Date d'inscription
lundi 27 juin 2005
Statut
Membre
Dernière intervention
29 juillet 2005

Comme je l'ai expliqué brièvement, grâce à "Mid(MyLigne, 19, 16)" je récupère 16 caractères (1 de plus qu'une adresse ip maximale "xxx.xxx.xxx.xxx ", pour être sûr de tout avoir et aussi avoir au moins un espace après l'adresse ip.
Ensuite, "MyIP.Substring(0, MyIP.IndexOf(" "))" permet d'extraire de MyIP un certain nombre de caractères, ici je commence l'extraction à 0 et fini à MyIP.IndexOf(" "), c'est à dire dès que je trouve un espace.

MyIP.IndexOf(" ") => retourne l'index de la position de la chaîne " " (espace).

MyIP.Substring(0, x) => extrait de MyIP la sous-chaîne qui commence à l'index 0 et fini à l'index x.
Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
2
que fait cette ligne
MyIPOnTheWeb = MyIP.Substring(0, MyIP.IndexOf(" "))
Afficher les 13 commentaires

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.