welk ik zou doen roepen netstat van de vb6 code gebruikend Shell en registreren de output aan één of ander resultaatdossier, dan ontleden het en krijgen informatie i behoefte over de havens:
bijvoorbeeld, voor haven 443:
Schemerige RetVal
RetVal = Shell („netstat - | vind“: 443 " > c:\temp\netstat.log ", 1)
het outputdossier zou moeten kijken iets in die aard:
TCP 0.0.0.0: 443 0.0.0.0: 0 LUISTEREND
TCP 172.20.1.78: 37623 216.166.12.33: 443 GEVESTIGD
TCP 172.20.1.78: 37625 216.166.12.33: 443 GEVESTIGD
TCP 172.20.1.78: 37629 216.166.12.33: 443 GEVESTIGD
TCP 172.20.1.78: 37630 216.166.12.33: 443 GEVESTIGD
TCP 172.20.1.78: 37648 216.166.12.33: 443 GEVESTIGD
TCP 172.20.1.78: 37649 216.166.12.33: 443 GEVESTIGD
TCP [::]: 443 [::]: 0 LUISTEREND