Détecter sa vraie adresse ip internet via excel

Soyez le premier à donner votre avis sur cette source.

Vue 11 890 fois - Téléchargée 727 fois

Description

Salut a tous,

une mini source, bien utile pour connaitre sa vrai adresse IP internet. De plus l'adresse IP est en mémoire (dans une variable) donc exploitable.

Toujours sur VBA via excel.

Source qui me parrait utile.

Note: 99 % de cette source provient de vbfrance, mais j'ai oublié l'auteur. Sincèrement désolé. J'ai juste exploité différament la source.

Source / Exemple :


Private Declare Function OuvreInternet Lib "wininet" _
     Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, _
     ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function fermeInternet Lib "wininet" _
     Alias "InternetCloseHandle" (ByVal hInet As Long) As Integer
Private Declare Function code_page Lib "wininet" _
     Alias "InternetReadFile" (ByVal hFile As Long, ByVal sBuffer As String, _
     ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function Ouvrepage Lib "wininet" _
     Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, _
     ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, _
     ByVal dwContext As Long) As Long

Sub DetectIp()
Dim texte_code As String * 1024
Dim Nb As Integer, NB2 As Integer

page_Web_à_lire = "http://dynupdate.no-ip.com/ip.php" 'page de détection d'ip
internet = OuvreInternet("toto", 0, vbNullString, vbNullString, 0) 'ouvre Internet
URL = Ouvrepage(internet, page_Web_à_lire, vbNullString, _
    0, &H400000 Or &H4000000 Or &H80000000, 0) 'ouvre la page Web

'lecture du code de la page par paquet de 1024 caractères
txt = ""
nb_caractères_lus = 1
Do While nb_caractères_lus > 0

'lit 1024 caractères et les copie dans texte_code
code_page URL, texte_code, 1024, nb_caractères_lus
txt = txt & Left(texte_code, nb_caractères_lus)
Loop
fermeInternet URL 'ferme la page
fermeInternet internet 'ferme Internet

MsgBox txt

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

FredR92100
Messages postés
1
Date d'inscription
vendredi 7 mai 2010
Statut
Membre
Dernière intervention
11 octobre 2010

Super code: bravo!
cs_didine13
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013

Bonjour,

Ton code est geneial

1000 merci
jpbktb
Messages postés
1
Date d'inscription
dimanche 14 mai 2006
Statut
Membre
Dernière intervention
23 novembre 2008

Bravo.
En quelques ligne.
Efficace.
Fonctionnel ....

Bravo, bravo et bravo.
dblclick
Messages postés
13
Date d'inscription
mardi 15 janvier 2002
Statut
Membre
Dernière intervention
31 mars 2008

de la bal atomique ton code bravo pour les APIs j adore
baouc
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007

Pas de commentaires, domage.

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.