Сообщество Чайников

Вопрос

Какое объявление функции GetTcpTable?

Ответ

Type MIB_TCPROW
  dwState as Long
  dwLocalAddr as Long
  dwLocalPort as Long
  dwRemoteAddr as Long
  dwRemotePort as Long
end type

type MIB_TCPTABLE
   dwNumEntries as Long
   table(ANY_SIZE) as MIB_TCPROW
end type

Declare Function GetTcpTable lib "сам поставь" (byref pTcpTable as MIB_TCPTABLE, _
byref pdwSize as Long, _
byVal bOrder as Boolean) as Long

попробуй так, должно заработать.
вместо byref pTcpTable as MIB_TCPTABLE
можно попробовать byref pTcpTable as Any

Из конференции VB