potrzebować i zrobić dzwonić netstat od the vb6 kod using Skorupa i the wydajność niektóre rezultat kartoteka, then parse ono i the informacja i potrzebować o the port:
na przykład, dla port 443:
Ciemnawy RetVal
RetVal = Skorupa ("netstat - | znalezisko": 443 " > c:\temp\netstat.log ", 1)
the wydajność kartoteka musieć to jak to:
TCP 0.0.0.0: 443 0.0.0.0: (0) SŁUCHANIE
TCP 172.20.1.78: 37623 216.166.12.33: 443 USTANAWIAĆ
TCP 172.20.1.78: 37625 216.166.12.33: 443 USTANAWIAĆ
TCP 172.20.1.78: 37629 216.166.12.33: 443 USTANAWIAĆ
TCP 172.20.1.78: 37630 216.166.12.33: 443 USTANAWIAĆ
TCP 172.20.1.78: 37648 216.166.12.33: 443 USTANAWIAĆ
TCP 172.20.1.78: 37649 216.166.12.33: 443 USTANAWIAĆ
TCP [::]: 443 [::]: (0) SŁUCHANIE