GetExtendedTcpTable

[raider]

Доброго времени суток)
Помогите разобраться с API-функцией GetExtendedTcpTable.
Мне нужно знать какой процесс, к каким удаленным хостам подсоединены. Насколько я знаю, мне нужно использовать GetExtendedTcpTable, но вот разобраться с ней не могу. Помогите, плиз.

[Хакер]

Помогите, плиз.

Благословляю тебя на успешное разбирательство с этой функцией.

[raider]

Попробовал сделать вот так:

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

Private Declare Function GetExtendedTcpTable _
                         Lib "Iphlpapi.dll" (pTcpTableEx As Any, _
                                             lSize As Long, _
                                             ByVal bOrder As Long, _
                                             ByVal Flags As Long, _
                                             ByVal TableClass As _
                                             TCP_TABLE_CLASS, _
                                             ByVal bReserved As Long) _


Public Enum TCP_TABLE_CLASS
  TCP_TABLE_BASIC_LISTENER
  TCP_TABLE_BASIC_CONNECTIONS
  TCP_TABLE_BASIC_ALL
  TCP_TABLE_OWNER_PID_LISTENER
  TCP_TABLE_OWNER_PID_CONNECTIONS
  TCP_TABLE_OWNER_PID_ALL
  TCP_TABLE_OWNER_MODULE_LISTENER
  TCP_TABLE_OWNER_MODULE_CONNECTIONS
  TCP_TABLE_OWNER_module_ALL
End Enum

Private Const AF_INET = 2

Private Sub Form_Load()
  Dim lngSize   As Long
  Dim nRet      As Long
  lngSize = 60

    nRet = GetExtendedTcpTable(0&, lngSize, 1, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0)
End Sub


Почему-то выдаёт ошибку: "Bad DLL calling convention"
В чём дело?

[Хакер]

В несоответствующем действительности типе возврата.

[raider]

При объявлении функции потерял "As Long" в самом конце.
Теперь вроде работает. Будем дальше разбираться.
Спасибо)