ce que je ferais appelle le netstat du code vb6 using Shell et noter le rendement à un certain dossier de résultat, puis pour l'analyser et pour obtenir l'information que j'ai besoin au sujet des ports :
par exemple, pour le port 443 :
Faible RetVal
RetVal = Shell (« netstat - | trouvaille » : 443 " > c:\temp\netstat.log ", 1)
le dossier de rendement devrait regarder n'importe quoi de pareil :
TCP 0.0.0.0 : 443 0.0.0.0 : 0 ÉCOUTANT
TCP 172.20.1.78 : 37623 216.166.12.33 : 443 ÉTABLI
TCP 172.20.1.78 : 37625 216.166.12.33 : 443 ÉTABLI
TCP 172.20.1.78 : 37629 216.166.12.33 : 443 ÉTABLI
TCP 172.20.1.78 : 37630 216.166.12.33 : 443 ÉTABLI
TCP 172.20.1.78 : 37648 216.166.12.33 : 443 ÉTABLI
TCP 172.20.1.78 : 37649 216.166.12.33 : 443 ÉTABLI
TCP [: :]: 443 [: :]: 0 ÉCOUTANT