Dim Ret As Long, tcpTable As MIB_TCPTABLE, intLoop As Integer
  Dim strState As String, strLocalAddr As String, strLocalPort As String
  Dim strRemoteAddr As String, strRemotePort As String
  Dim itemX As ListItem
Public Declare Function GetTcpTable Lib "IPHLPAPI.DLL" ( _
   ByRef pTcpTable As MIB_TCPTABLE, _
   ByRef pdwSize As Long, _
   ByVal border As Long) As Long
 
Public Type MIB_TCPROW
  dwState As tcpStates
  dwLocalAddr(0 To 3) As Byte
  dwLocalPort As String * 4
  dwRemoteAddr(0 To 3) As Byte
  dwRemotePort As String * 4
End Type
Public host1
Public Type MIB_TCPTABLE
  dwNumEntries As Long
  Table(100) As MIB_TCPROW
End Type
 
Public Localad
Public Remotead
Public Remotepo
Public Localpo
Public Sta
 
Public Enum tcpStates
  TCP_STATE_CLOSED = 1
  TCP_STATE_LISTEN = 2
  TCP_STATE_SYN_SENT = 3
  TCP_STATE_SYN_RCVD = 4
  TCP_STATE_ESTAB = 5
  TCP_STATE_FIN_WAIT1 = 6
  TCP_STATE_FIN_WAIT2 = 7
  TCP_STATE_CLOSE_WAIT = 8
  TCP_STATE_CLOSING = 9
  TCP_STATE_LAST_ACK = 10
  TCP_STATE_TIME_WAIT = 11
  TCP_STATE_DELETE_TCB = 12
End Enum
 
Public Sub ListConnections()
 
 
    '### Hier Daten übergeben
frmMonitor.List1(0).Clear
frmMonitor.List1(1).Clear
frmMonitor.List1(2).Clear
frmMonitor.List1(3).Clear
frmMonitor.List1(4).Clear
 
 
    Ret = GetTcpTable(tcpTable, 2004, True)
    Select Case Ret
      Case 0
        'Alles ok
        For intLoop = 0 To tcpTable.dwNumEntries - 1
          With tcpTable.Table(intLoop)
            strState = StateText(.dwState)
            strLocalAddr = .dwLocalAddr(0) & "." & _
                           .dwLocalAddr(1) & "." & _
                           .dwLocalAddr(2) & "." & _
                           .dwLocalAddr(3)
 
            strLocalPort = CStr(GetPort(.dwLocalPort))
            strRemoteAddr = .dwRemoteAddr(0) & "." & _
                            .dwRemoteAddr(1) & "." & _
                            .dwRemoteAddr(2) & "." & _
                            .dwRemoteAddr(3)
 
            If .dwState = TCP_STATE_ESTAB Then
              strRemotePort = CStr(GetPort(.dwRemotePort))
            Else
              strRemotePort = "0"
            End If
          End With
 
          Localad = strLocalAddr
          Remotead = strRemoteAddr
          Remotepo = strRemotePort
          Localpo = strLocalPort
          Sta = strState
           Call list
 
        Next intLoop
      Case 232
        'Kein Netzwerk
      Case Else
        'Fehler
    End Select
End Sub