я сделал бы вызывает netstat от Кодего vb6 using раковина и внести выход в журнал к некоторому архиву результата, тогда для того чтобы parse он и получить информация, котор мне о портах:
например, на порт 443:
Тусклое RetVal
RetVal = раковина («netstat - | находка»: 443 " > c:\temp\netstat.log ", 1)
выходной файл должен посмотреть что-нибудь подобное:
TCP 0.0.0.0: 443 0.0.0.0: 0 СЛУШАЮЩ
TCP 172.20.1.78: 37623 216.166.12.33: 443 УСТАНОВЛЕНО
TCP 172.20.1.78: 37625 216.166.12.33: 443 УСТАНОВЛЕНО
TCP 172.20.1.78: 37629 216.166.12.33: 443 УСТАНОВЛЕНО
TCP 172.20.1.78: 37630 216.166.12.33: 443 УСТАНОВЛЕНО
TCP 172.20.1.78: 37648 216.166.12.33: 443 УСТАНОВЛЕНО
TCP 172.20.1.78: 37649 216.166.12.33: 443 УСТАНОВЛЕНО
TCP [::]: 443 [::]: 0 СЛУШАЮЩ