IP-разъединитель VB.NET: как правильно использовать SetTcpEntry для отключения - PullRequest
Новая
       24

IP-разъединитель VB.NET: как правильно использовать SetTcpEntry для отключения

0 голосов
/ 12 февраля 2012

Я пытаюсь создать 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

Ответы [ 2 ]

0 голосов
/ 05 октября 2012

Я не уверен, что это та же самая ситуация или нет, но я использовал: 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

Этот код решил мою проблему, но я не уверен, что вы об этом даже говорили.

0 голосов
/ 23 февраля 2012

Я не смог решить, но нашел альтернативное решение, используя CurrPorts 

 Shell(Application.StartupPath & "\cports /close * * " & GetIpFromLong(TcpTableRow.dwRemoteAddr) & " " & GetTcpPortNumber(TcpTableRow.dwRemotePort))
...