Как быстро опредилить открыт ли TCP порт у внеш. приложения

[Madway]

Имеется приложение Client32. При работе оно устанавливает связь с серверной часть по протоколу TCP.

Скрин касперским - соединение с сервером выполнено успешно


Скрин касперским - попытка соединится



На VB6 я пишу приложение которое должно отслеживать состояние соединения этого приложения.
Как мне быстро (1-3 сек) узнать состояния открытого порта этого приложения (порт не открыт, порт открыт но не связи с сервером нет, порт открыт и связь есть)?

Локальный порт может быть любым. Порт на стороне сервера фиксированный.

Вариант перебора всех портов неподходит, очень медленно.

[alibek]

Через WMI, думаю.
Остальные способы куда геморройнее.

[Madway]

Через WMI, думаю.
Остальные способы куда геморройнее.

Если через WMI, то в каком классе можно получить подобную информацию?

И какие остальные способы?

Через что будет работать не принципиально, главное чтобы быстро

[Madway]

Откопал...

1 Способ ( без возможности получения имени процесса открывшего порт)

Код: Выделить всё

Declare Function GetTcpTable Lib "IPhlpAPI" _
  (pTcpTable As MIB_TCPTABLE, pdwSize As Long, bOrder As Long) As Long

Declare Function GetUdpTable Lib "IPhlpAPI" _
  (pUdpTable As MIB_UDPTABLE, pdwSize As Long, bOrder As Long) As Long


Исходники:
http://www.freevbcode.com/ShowCode.asp?ID=3759

2 Способ

.... попозже напишу