Connaitre L'ip internet

le_troll

01/08/2004 à 07:38

Bonjour, voici:

Déclare Contrôle AxtiveX: Menu"projet""composants"Microsoft WINSOCK
control...
texte_ip = Winsock1.LocalIP

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------

"François ROLAND" a écrit dans le message de news:
#

La question a deja été posée plusieurs fois, mais je ne la retrouve pas

dans

mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Très cordialement

--

François ROLAND

ng

01/08/2004 à 12:49

Salut,

Oui mais si tu as un réseau local, cela renvoie l'adresse IP de la machine
sur le réseau et non sur internet.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

le_troll a écrit :

Bonjour, voici:

Déclare Contrôle AxtiveX: Menu"projet""composants"Microsoft WINSOCK
control...
texte_ip = Winsock1.LocalIP

"François ROLAND" a écrit dans le message
de news: #

La question a deja été posée plusieurs fois, mais je ne la retrouve
pas dans mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Très cordialement

--

François ROLAND

ng

01/08/2004 à 12:50

Salut,

Regarde du coté de GetIpAddrTable() :

'This project requires the following components:
' - a form (Form1) with a textbox (Text1, Multiline=True)
' and a command button (Command1)
' - a module (Module1)

'in Form1:
Private Sub Command1_Click()
Module1.Start
End Sub

'In Module1:

'******************************************************************
'Created By Verburgh Peter.
' 07-23-2001
'
'-------------------------------------
'With this small application , you can detect the IP's installed on your
computer,
'including subnet mask , BroadcastAddr..
'
'I've wrote this because i've a programm that uses the winsock control, but,
'if you have multiple ip's installed on your pc , you could get by using
the Listen
' method the wrong ip ...
'Because Winsock.Localip => detects the default ip installed on your PC ,
' and in most of the cases it could be the LAN (nic) not the WAN (nic)
'So then you have to use the Bind function ,to bind to your right ip..
'but how do you know & find that ip ?
'you can find it now by this appl.. it check's in the api.. IP Table..
'******************************************************************

Const MAX_IP = 5 'To make a buffer... i dont think you have more than 5 ip
on your pc..

Type IPINFO
dwAddr As Long ' IP address
dwIndex As Long ' interface index
dwMask As Long ' subnet mask
dwBCastAddr As Long ' broadcast address
dwReasmSize As Long ' assembly size
unused1 As Integer ' not currently used
unused2 As Integer '; not currently used
End Type

Type MIB_IPADDRTABLE
dEntrys As Long 'number of entries in the table
mIPInfo(MAX_IP) As IPINFO 'array of IP address entries
End Type

Type IP_Array
mBuffer As MIB_IPADDRTABLE
BufferLen As Long
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte,
pdwSize As Long, ByVal Sort As Long) As Long
Sub main()
Form1.Show
End Sub

'converts a Long to a string
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt))
+ "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString,
Len(ConvertAddressToString) - 1)
End Function

Public Sub Start()
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE

Form1.Text1 = ""

On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True

If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
'retrieve the data
GetIpAddrTable bBytes(0), Ret, False

'Get the first 4 bytes to get the entry's.. ip installed
CopyMemory Listing.dEntrys, bBytes(0), 4
'MsgBox "IP's found : " & Listing.dEntrys => Founded ip installed on
your PC..
Form1.Text1 = Listing.dEntrys & " IP addresses found on your PC !!" &
vbCrLf
Form1.Text1 = Form1.Text1 & "----------------------------------------" &
vbCrLf
For Tel = 0 To Listing.dEntrys - 1
'Copy whole structure to Listing..
' MsgBox bBytes(tel) & "."
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel *
Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
Form1.Text1 = Form1.Text1 & "IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
Form1.Text1 = Form1.Text1 & "IP Subnetmask : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf
Form1.Text1 = Form1.Text1 & "BroadCast IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf
Form1.Text1 = Form1.Text1 &
"**************************************" & vbCrLf
Next

'MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr)
Exit Sub
END1:
MsgBox "ERROR"
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François ROLAND a écrit :

La question a deja été posée plusieurs fois, mais je ne la retrouve
pas dans mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Très cordialement

Salut,

Regarde du coté de GetIpAddrTable() :

'This project requires the following components:
' - a form (Form1) with a textbox (Text1, Multiline=True)
' and a command button (Command1)
' - a module (Module1)

'in Form1:
Private Sub Command1_Click()
Module1.Start
End Sub

'In Module1:

'******************************************************************
'Created By Verburgh Peter.
' 07-23-2001
' verburgh.peter@skynet.be
'-------------------------------------
'With this small application , you can detect the IP's installed on your
computer,
'including subnet mask , BroadcastAddr..
'
'I've wrote this because i've a programm that uses the winsock control, but,
'if you have multiple ip's installed on your pc , you could get by using
the Listen
' method the wrong ip ...
'Because Winsock.Localip => detects the default ip installed on your PC ,
' and in most of the cases it could be the LAN (nic) not the WAN (nic)
'So then you have to use the Bind function ,to bind to your right ip..
'but how do you know & find that ip ?
'you can find it now by this appl.. it check's in the api.. IP Table..
'******************************************************************

Const MAX_IP = 5 'To make a buffer... i dont think you have more than 5 ip
on your pc..

Type IPINFO
dwAddr As Long ' IP address
dwIndex As Long ' interface index
dwMask As Long ' subnet mask
dwBCastAddr As Long ' broadcast address
dwReasmSize As Long ' assembly size
unused1 As Integer ' not currently used
unused2 As Integer '; not currently used
End Type

Type MIB_IPADDRTABLE
dEntrys As Long 'number of entries in the table
mIPInfo(MAX_IP) As IPINFO 'array of IP address entries
End Type

Type IP_Array
mBuffer As MIB_IPADDRTABLE
BufferLen As Long
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte,
pdwSize As Long, ByVal Sort As Long) As Long
Sub main()
Form1.Show
End Sub

'converts a Long to a string
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt))
+ "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString,
Len(ConvertAddressToString) - 1)
End Function

Public Sub Start()
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE

Form1.Text1 = ""

On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True

If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
'retrieve the data
GetIpAddrTable bBytes(0), Ret, False

'Get the first 4 bytes to get the entry's.. ip installed
CopyMemory Listing.dEntrys, bBytes(0), 4
'MsgBox "IP's found : " & Listing.dEntrys => Founded ip installed on
your PC..
Form1.Text1 = Listing.dEntrys & " IP addresses found on your PC !!" &
vbCrLf
Form1.Text1 = Form1.Text1 & "----------------------------------------" &
vbCrLf
For Tel = 0 To Listing.dEntrys - 1
'Copy whole structure to Listing..
' MsgBox bBytes(tel) & "."
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel *
Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
Form1.Text1 = Form1.Text1 & "IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
Form1.Text1 = Form1.Text1 & "IP Subnetmask : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf
Form1.Text1 = Form1.Text1 & "BroadCast IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf
Form1.Text1 = Form1.Text1 &
"**************************************" & vbCrLf
Next

'MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr)
Exit Sub
END1:
MsgBox "ERROR"
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François ROLAND <francois.roland@free.fr> a écrit :

La question a deja été posée plusieurs fois, mais je ne la retrouve
pas dans mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Très cordialement

Vous avez filtré cet utilisateur ! Consultez son message

Salut,

Regarde du coté de GetIpAddrTable() :

'This project requires the following components:
' - a form (Form1) with a textbox (Text1, Multiline=True)
' and a command button (Command1)
' - a module (Module1)

'in Form1:
Private Sub Command1_Click()
Module1.Start
End Sub

'In Module1:

'******************************************************************
'Created By Verburgh Peter.
' 07-23-2001
'
'-------------------------------------
'With this small application , you can detect the IP's installed on your
computer,
'including subnet mask , BroadcastAddr..
'
'I've wrote this because i've a programm that uses the winsock control, but,
'if you have multiple ip's installed on your pc , you could get by using
the Listen
' method the wrong ip ...
'Because Winsock.Localip => detects the default ip installed on your PC ,
' and in most of the cases it could be the LAN (nic) not the WAN (nic)
'So then you have to use the Bind function ,to bind to your right ip..
'but how do you know & find that ip ?
'you can find it now by this appl.. it check's in the api.. IP Table..
'******************************************************************

Const MAX_IP = 5 'To make a buffer... i dont think you have more than 5 ip
on your pc..

Type IPINFO
dwAddr As Long ' IP address
dwIndex As Long ' interface index
dwMask As Long ' subnet mask
dwBCastAddr As Long ' broadcast address
dwReasmSize As Long ' assembly size
unused1 As Integer ' not currently used
unused2 As Integer '; not currently used
End Type

Type MIB_IPADDRTABLE
dEntrys As Long 'number of entries in the table
mIPInfo(MAX_IP) As IPINFO 'array of IP address entries
End Type

Type IP_Array
mBuffer As MIB_IPADDRTABLE
BufferLen As Long
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte,
pdwSize As Long, ByVal Sort As Long) As Long
Sub main()
Form1.Show
End Sub

'converts a Long to a string
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt))
+ "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString,
Len(ConvertAddressToString) - 1)
End Function

Public Sub Start()
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE

Form1.Text1 = ""

On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True

If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
'retrieve the data
GetIpAddrTable bBytes(0), Ret, False

'Get the first 4 bytes to get the entry's.. ip installed
CopyMemory Listing.dEntrys, bBytes(0), 4
'MsgBox "IP's found : " & Listing.dEntrys => Founded ip installed on
your PC..
Form1.Text1 = Listing.dEntrys & " IP addresses found on your PC !!" &
vbCrLf
Form1.Text1 = Form1.Text1 & "----------------------------------------" &
vbCrLf
For Tel = 0 To Listing.dEntrys - 1
'Copy whole structure to Listing..
' MsgBox bBytes(tel) & "."
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel *
Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
Form1.Text1 = Form1.Text1 & "IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
Form1.Text1 = Form1.Text1 & "IP Subnetmask : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf
Form1.Text1 = Form1.Text1 & "BroadCast IP address : " &
ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf
Form1.Text1 = Form1.Text1 &
"**************************************" & vbCrLf
Next

'MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr)
Exit Sub
END1:
MsgBox "ERROR"
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François ROLAND a écrit :

La question a deja été posée plusieurs fois, mais je ne la retrouve
pas dans mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Très cordialement

François Picalausa

01/08/2004 à 12:55

Hello,

Ici, derrière un routeur, c'est toujours mon adresse LAN qui est détectée.
Pour connaitre vraiment ton adresse IP, je conseillerais plutôt d'apeller
une page comme www.myip.dk et parser le résultats (avec tous les risques que
ça comporte: fermeture ou relocalisation du site, ...)

Sinon, dans Public Function ConvertAddressToString
dans la ligne ConvertAddressToString = ConvertAddressToString +
CStr(myByte(Cnt)) + "."
remplacer + par &

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"ng" a écrit dans le message de
news:

Regarde du coté de GetIpAddrTable() :
<code>
Comment connaitre l'IP de connection internet d'un pc en VB ?

ng

01/08/2004 à 15:03

Salut,

Ici, derrière un routeur, c'est toujours mon adresse LAN qui est
détectée. Pour connaitre vraiment ton adresse IP, je conseillerais
plutôt d'apeller une page comme www.myip.dk et parser le résultats
(avec tous les risques que ça comporte: fermeture ou relocalisation
du site, ...)

Oui c'est une bonne idée, mais ce n'est pas forcément très propre, on a pas
forcémenent d'accès http :) (hihi).

Sinon, dans Public Function ConvertAddressToString
dans la ligne ConvertAddressToString = ConvertAddressToString +
CStr(myByte(Cnt)) + "."
remplacer + par &

ah oui !!!! mais j'ai une excuse, c'est pas mon code ;) ms c'est vrai que
j'aurai dû prendre le temps de le lire qd mm :/

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François Picalausa a écrit :

Hello,

Ici, derrière un routeur, c'est toujours mon adresse LAN qui est
détectée. Pour connaitre vraiment ton adresse IP, je conseillerais
plutôt d'apeller une page comme www.myip.dk et parser le résultats
(avec tous les risques que ça comporte: fermeture ou relocalisation
du site, ...)

Sinon, dans Public Function ConvertAddressToString
dans la ligne ConvertAddressToString = ConvertAddressToString +
CStr(myByte(Cnt)) + "."
remplacer + par &

"ng" a écrit dans le message de
news:
Regarde du coté de GetIpAddrTable() :
<code>
Comment connaitre l'IP de connection internet d'un pc en VB ?

Illinger Philippe

01/08/2004 à 19:09

Bonjour,

"François ROLAND" wrote in message
news:%

La question a deja été posée plusieurs fois, mais je ne la retrouve pas

dans

mes archives

Comment connaitre l'IP de connection internet d'un pc en VB ?

Une methode...un peu lourde peut etre serait de :

Faire un CreateProcess
de l'utilitaire.......IPCONFIG.EXE
de recuperer la sortie, de la decoder (c'est de l'ascii) et le tour est
joué...

Best Regards

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.730 / Virus Database: 485 - Release Date: 28/07/2004

Jean-Marc

01/08/2004 à 19:53

"Illinger Philippe" a écrit dans
le message de news:Or%23Fkj%

Une methode...un peu lourde peut etre serait de :

Faire un CreateProcess
de l'utilitaire.......IPCONFIG.EXE
de recuperer la sortie, de la decoder (c'est de l'ascii) et le tour est
joué...

Hello,

non le tour n'est pas joué. Derrière un routeur, tu récupères le LAN, pas le
WAN:
extrait chez moi:

Carte Ethernet Connexion réseau sans fil:

Suffixe DNS propre à la connexion :
Description . . . . . . . . . . . : Instant Wireless USB Network
Adapter
ver.2.6
Adresse physique . . . . . . . . .: 00-06-25-B0-C3-A7
DHCP activé. . . . . . . . . . . : Oui
Configuration automatique activée . . . . : Oui
Adresse IP. . . . . . . . . . . . : 192.168.2.102 <<=== mon
IP sur le LAN
Masque de sous-réseau . . . . . . : 255.255.255.0
Passerelle par défaut . . . . . . : 192.168.2.1 <<=== mon
routeur

Jean-marc

François ROLAND

03/08/2004 à 08:59

Impec, super, merci

Mais dans le cas d'un PC connecter à un modem ET à un resau local, comment
etre sur qu'il me renvoi l'IP internet et non l'IP local?

Cordialement

"le_troll" a écrit dans le message de news:
#

Bonjour, voici:

Déclare Contrôle AxtiveX: Menu"projet""composants"Microsoft WINSOCK
control...
texte_ip = Winsock1.LocalIP

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------

"François ROLAND" a écrit dans le message de

news:

#
>
> La question a deja été posée plusieurs fois, mais je ne la retrouve pas
dans
> mes archives
>
> Comment connaitre l'IP de connection internet d'un pc en VB ?
>
> Très cordialement
>
> --
>
> François ROLAND
>
>
>

Connaitre L'ip internet

8 réponses

Veuillez sélectionner un problème