API calls
Code: Select all
Dim tcprow2 As MIB_TCPROW
Dim ret as long
DoEvents
With tcprow2
.dwLocalAddr = inet_addr(ListView1.SelectedItem.Text)
.dwLocalPort = htons(ListView1.SelectedItem.SubItems(1))
.dwRemoteAddr = inet_addr(ListView1.SelectedItem.SubItems(2))
.dwRemotePort = htons(ListView1.SelectedItem.SubItems(3))
.dwState = MIB_TCP_STATE_DELETE_TCB
End With
ret = SetTcpEntry(tcprow2)