Private Sub 删除连接_Click()

Dim tcpt As MIB_TCPTABLE
Dim l As Long
Dim i As Long
Dim RemA As String, RemP As String, LocP As String

i = Right(FrmMain.ListView1.SelectedItem.Key, Len(FrmMain.ListView1.SelectedItem.Key) - 1) + 1            '错误:无效的调用过程或参数

RemA = FrmMain.ListView1.ListItems(i)
RemP = FrmMain.ListView1.ListItems(i).SubItems(1)
LocP = FrmMain.ListView1.ListItems(i).SubItems(2)

l = Len(MIB_TCPTABLE)
GetTcpTable tcpt, l, 0

tcpt.table(i - 1).dwState = 12
SetTcpEntry tcpt.table(i - 1)
DoEvents
WriteLog RemA, RemP, LocP, "拦截连接"

End Sub