Shark-Man
Messages postés22Date d'inscriptionjeudi 23 octobre 2003StatutMembreDernière intervention 7 octobre 2006
-
7 oct. 2006 à 14:01
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 2009
-
7 oct. 2006 à 21:41
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.
B0mbJacK
Messages postés141Date d'inscriptionlundi 23 février 2004StatutMembreDernière intervention25 octobre 20061 7 oct. 2006 à 14:09
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
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 7 oct. 2006 à 21:41
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