0

我正在尝试创建一个 IP 断开器。这是我创建 TCPtable 的模板的一部分。我试图添加一个断开功能。但是，它不会断开连接。

    Dim liste() = {"76.9.24.130" ... ... ...}
    Dim pdwSize As Integer
    Dim iRetVal As Integer
    Dim i As Integer
    Dim TcpTableRow As MIB_TCPROW
    Dim pStructPointer As IntPtr = IntPtr.Zero
    Dim iNumberOfStructures As Integer
    ListView1.Items.Clear()
    iRetVal = GetTcpTable(pStructPointer, pdwSize, 0)
    pStructPointer = Marshal.AllocHGlobal(pdwSize)
    iRetVal = GetTcpTable(pStructPointer, pdwSize, 0)
    iNumberOfStructures = Math.Ceiling((pdwSize - 4) / Marshal.SizeOf(GetType(MIB_TCPROW)))
    For i = 0 To iNumberOfStructures - 1
        Dim pStructPointerTemp As IntPtr = New IntPtr(pStructPointer.ToInt32() + 4 + (i * Marshal.SizeOf(GetType(MIB_TCPROW))))
        TcpTableRow = New MIB_TCPROW()
        With TcpTableRow
            .dwLocalAddr = 0
            .dwState = 0
            .dwLocalPort = 0
            .dwRemoteAddr = 0
            .dwRemotePort = 0
        End With
        'Marshal.PtrToStructure(pStructPointerTemp, TcpTableRow)
        TcpTableRow = CType(Marshal.PtrToStructure(pStructPointerTemp, GetType(MIB_TCPROW)), MIB_TCPROW)
        ' Process each MIB_TCPROW here
        'If Not ((Check1.CheckState = System.Windows.Forms.CheckState.Checked) And (GetIpFromLong(TcpTableRow.dwLocalAddr) = "0.0.0.0" Or GetIpFromLong(TcpTableRow.dwLocalAddr) = "127.0.0.1")) Then
        If Not GetIpFromLong(TcpTableRow.dwRemoteAddr) = "127.0.0.1" And Not GetIpFromLong(TcpTableRow.dwRemoteAddr) = "0.0.0.0" Then
            'Add the data to the ListView control
            With TcpTableRow
                Dim itemAdd As ListViewItem
                itemAdd = ListView1.Items.Add(GetIpFromLong(.dwLocalAddr))
                itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwLocalPort)))
                itemAdd.SubItems.Add(GetIpFromLong(.dwRemoteAddr))
                itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwRemotePort)))
                itemAdd.SubItems.Add(GetState(.dwState))
            End With
            '-------------- Kill Connection--------------
            If Array.IndexOf(liste, GetIpFromLong(TcpTableRow.dwRemoteAddr)) >= 0 Then
                TcpTableRow.dwState = 12
                SetTcpEntry(TcpTableRow)
            End If
        End If
    Next
4

2 回答 2

0

我不确定这是否是相同的情况，但我使用的是： session = New Socket(,,,)作为我通过 TCP PORT23 连接的方式，我的问题是我也因某种原因无法关闭连接。我确实尝试了上面的 CurrPorts 解决方法，但我发现它没有达到我的期望。相反，我使用的是 TCPClient。

     Dim TCPConnection as TCPClient 'Init TCPConnect

     Private Sub Connect(Byval inIP)
         Dim PiP = IPAddress.Parse(inIP)
         Dim iplocal As New System.Net.IPEndPoint(PiP, 23)
         Try
            TCPsession = New TcpClient
            TCPsession.Client.Connect(ipLocal)
         Catch
         'On Error Do Nothing
         End Try
     End Sub

     Private Sub Disconnect()
         TCPsession.Client.Close()
     End Sub

这段代码解决了我的问题，但我不确定这是否就是你所说的。

于 2012-10-04T20:01:36.140 回答
0

我无法解决它，但找到了使用CurrPorts的替代解决方案

 Shell(Application.StartupPath & "\cports /close * * " & GetIpFromLong(TcpTableRow.dwRemoteAddr) & " " & GetTcpPortNumber(TcpTableRow.dwRemotePort))
于 2012-02-23T04:36:42.960 回答