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