Récupérer des adresses IP [Résolu]

Signaler
Messages postés
22
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
7 octobre 2006
-
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
-
Bonjour tout le monde.
Voila je cherche a récupérer les listes des adresses IP connectées sur mon poste ainsi que le port qu'elles utilisent, le protocol etc ... Un peu à la manière de la commande "netstat".
J'ai tenté de faire un tableau de Winsock essayant d'ouvrir un socket port apres port mais cela me permet juste de connaitre les ports déjà occupés.
Qqun connaitrait il une méthode plus efficasse ou une API pouvant m'aider ?
Merci.

2 réponses

Messages postés
141
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
25 octobre 2006

salut,
je pense ke tu dois trouver ce genre de source ici, sinon voici les api :
Public Declare Function GetTcpStatistics Lib "iphlpapi.dll" (pStats As MIB_TCPSTATS) As Long

Public Declare Function GetIpStatistics Lib "iphlpapi.dll" (pStats As MIB_IPSTATS) As Long

Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long

Public Declare Function GetUdpTable Lib "iphlpapi.dll" (ByRef pUdpTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
Sinon tu viens de me faire trouver quelque chose de très pratique à laquelle j'avais jamais pensé : Fais un fichier bat avec juste "netstat", puis utilise ce code :

Dim p As Process, si As New ProcessStartInfo()
si.RedirectStandardInput = True
si.RedirectStandardOutput = True
si.UseShellExecute = False
si.FileName = "c:\yop.bat"
p = Process.Start(si)
Dim sr As IO.StreamReader = p.StandardOutput
Dim s As New String(p.StandardOutput.ReadToEnd)
MsgBox(s)

Quelqu'un sait si ca a déjà été utilisé ? Sinon je dépose une source :p

Julien.