IP Adressen die auf mein PC zugreifen auflisten?

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Pixxxas.

    Aber selbstverständlich.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. Public Structure MIB_TCPROW_OWNER_PID
    5. Dim dwState As Integer
    6. Dim dwLocalAddr As Integer
    7. Dim dwLocalPort As Integer
    8. Dim dwRemoteAddr As Integer
    9. Dim dwRemotePort As Integer
    10. Dim dwOwningPid As Integer
    11. End Structure
    14. Private Const ERROR_BUFFER_OVERFLOW As Short = 111
    15. Private Const ERROR_INVALID_PARAMETER As Short = 87
    16. Private Const ERROR_NO_DATA As Short = 232
    17. Private Const ERROR_NOT_SUPPORTED As Short = 50
    18. Private Const ERROR_SUCCESS As Short = 0
    19. '
    20. Private Const MIB_TCP_STATE_CLOSED As Short = 1
    21. Private Const MIB_TCP_STATE_LISTEN As Short = 2
    22. Private Const MIB_TCP_STATE_SYN_SENT As Short = 3
    23. Private Const MIB_TCP_STATE_SYN_RCVD As Short = 4
    24. Private Const MIB_TCP_STATE_ESTAB As Short = 5
    25. Private Const MIB_TCP_STATE_FIN_WAIT1 As Short = 6
    26. Private Const MIB_TCP_STATE_FIN_WAIT2 As Short = 7
    27. Private Const MIB_TCP_STATE_CLOSE_WAIT As Short = 8
    28. Private Const MIB_TCP_STATE_CLOSING As Short = 9
    29. Private Const MIB_TCP_STATE_LAST_ACK As Short = 10
    30. Private Const MIB_TCP_STATE_TIME_WAIT As Short = 11
    31. Private Const MIB_TCP_STATE_DELETE_TCB As Short = 12
    33. Declare Function GetExtendedTcpTable Lib "IPHLPAPI.dll" (ByVal pTcpTable As IntPtr, ByRef dwTcpTableSize As Integer, ByVal bOrder As Boolean, ByVal ulAf As Integer, ByVal TCP_TABLE_CLASS As Integer, ByVal Reserved As Integer) As Integer
    35. Public Function GetExtendedTCPdata() As String()
    37. Dim AF_INET As Integer = 2
    38. Dim dwTcpTableSize As Integer
    39. Dim RetVal As Integer
    40. Dim ListofTcpRows As MIB_TCPROW_OWNER_PID
    41. Dim iNumberOfStructures As Integer
    42. Dim pStructPointer As IntPtr = IntPtr.Zero
    43. outputBox.Items.Clear()
    45. RetVal = GetExtendedTcpTable(pStructPointer, dwTcpTableSize, 1, AF_INET, 5, 0)
    47. pStructPointer = Marshal.AllocHGlobal(dwTcpTableSize)
    48. 'MessageBox.Show(dwTcpTableSize.ToString)
    49. RetVal = GetExtendedTcpTable(pStructPointer, dwTcpTableSize, 1, AF_INET, 5, 0)
    50. iNumberOfStructures = Math.Ceiling((dwTcpTableSize - 4) / Marshal.SizeOf(GetType(MIB_TCPROW_OWNER_PID)))
    52. For i = 0 To iNumberOfStructures - 1
    53. Dim pStructPointerTemp As IntPtr = New IntPtr(pStructPointer.ToInt32() + 4 + (i * Marshal.SizeOf(GetType(MIB_TCPROW_OWNER_PID))))
    54. 'Dim ListOfTcpRows As New List(Of MIB_TCPROW_OWNER_PID)
    55. ListofTcpRows = New MIB_TCPROW_OWNER_PID()
    56. ListofTcpRows = CType(Marshal.PtrToStructure(pStructPointerTemp, GetType(MIB_TCPROW_OWNER_PID)), MIB_TCPROW_OWNER_PID)
    58. If Not ((GetState(ListofTcpRows.dwState) = Nothing)) Then
    59. '
    60. 'Add the data to the ListView control
    61. ' Try
    62. On Error Resume Next
    63. With ListofTcpRows
    64. Dim p As Process = Process.GetProcessById(CStr(.dwOwningPid))
    65. Dim itemAdd As ListViewItem
    66. itemAdd = outputBox.Items.Add(CStr(.dwOwningPid))
    67. itemAdd.SubItems.Add(p.ProcessName)
    68. itemAdd.SubItems.Add(GetIpFromLong(.dwLocalAddr))
    69. itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwLocalPort)))
    70. itemAdd.SubItems.Add(GetIpFromLong(.dwRemoteAddr))
    71. itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwRemotePort)))
    72. If Not ((GetState(ListofTcpRows.dwState) = Nothing)) Then
    73. itemAdd.SubItems.Add(GetState(.dwState))
    74. Else
    75. itemAdd.SubItems.Add("Unknown")
    76. End If
    77. End With
    78. ' Catch
    79. 'MessageBox.Show("Error Occured, try again.")
    80. ' End Try
    82. '
    83. End If
    85. Next
    87. End Function
    89. Private Function GetIpFromLong(ByRef lngIPAddress As Integer) As String
    90. '
    91. Dim arrIpParts() As Byte = BitConverter.GetBytes(lngIPAddress)
    92. GetIpFromLong = CStr(arrIpParts(0)) & "." & CStr(arrIpParts(1)) & "." & CStr(arrIpParts(2)) & "." & CStr(arrIpParts(3))
    93. ''
    94. End Function
    96. Private Function GetTcpPortNumber(ByRef DWord As Integer) As Integer
    97. GetTcpPortNumber = DWord / 256 + (DWord Mod 256) * 256
    98. End Function
    100. Private Function GetState(ByRef lngState As Integer) As String
    101. '
    102. Select Case lngState
    103. Case MIB_TCP_STATE_CLOSED : GetState = "CLOSED"
    104. Case MIB_TCP_STATE_LISTEN : GetState = "LISTEN"
    105. Case MIB_TCP_STATE_SYN_SENT : GetState = "SYN_SENT"
    106. Case MIB_TCP_STATE_SYN_RCVD : GetState = "SYN_RCVD"
    107. Case MIB_TCP_STATE_ESTAB : GetState = "ESTAB"
    108. Case MIB_TCP_STATE_FIN_WAIT1 : GetState = "FIN_WAIT1"
    109. Case MIB_TCP_STATE_FIN_WAIT2 : GetState = "FIN_WAIT2"
    110. Case MIB_TCP_STATE_CLOSE_WAIT : GetState = "CLOSE_WAIT"
    111. Case MIB_TCP_STATE_CLOSING : GetState = "CLOSING"
    112. Case MIB_TCP_STATE_LAST_ACK : GetState = "LAST_ACK"
    113. Case MIB_TCP_STATE_TIME_WAIT : GetState = "TIME_WAIT"
    114. Case MIB_TCP_STATE_DELETE_TCB : GetState = "DELETE_TCB"
    115. Case Else : GetState = ""
    116. End Select
    117. ''
    118. End Function
    120. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    121. GetExtendedTCPdata()
    122. End Sub
    123. End Class


    Ich hab noch was ohne API gefunden:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.NetworkInformation
    2. Imports System.Text
    3. Imports System.Net
    5. Public Class Form1
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. 'Retriving IP global properties
    10. Dim IPGproperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
    12. 'Retriving the TCP connections
    13. Dim connections As TcpConnectionInformation() = IPGproperties.GetActiveTcpConnections()
    15. For Each tcp As TcpConnectionInformation In connections
    16. 'Displaying TCP connection informations
    17. With lv.Items.Add(tcp.LocalEndPoint.Address.ToString & ":" & tcp.LocalEndPoint.Port)
    18. .SubItems.Add(tcp.RemoteEndPoint.Address.ToString & ":" & tcp.RemoteEndPoint.Port())
    19. .SubItems.Add(tcp.State.ToString())
    20. End With
    21. Next
    24. Dim connection As IPEndPoint() = IPGproperties.GetActiveTcpListeners()
    26. For Each tcp As IPEndPoint In connection
    27. 'Displaying TCP connection informations
    28. lv.Items.Add(tcp.Address.ToString & ":" & tcp.Port)
    30. Next
    32. End Sub
    34. End Class
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Ok erst mal danke soweit für die Hilfe.
    Aber leider werden die Adressen nicht angezeigt die auf meine Datein zugreifen.

    Wollte eine Tool schreiben das z.b. bei COD MW2 verwenden hätte können.
    Wenn ich der Host bin greifen ja alle auf meine Server Dateien zu, und dann wenn ein Cheater im Spiel ist das ich "nur" seine IP Adresse Blocken muss damit er keine Verbindung mehr hat.
    Aber leichter gesagt als getan, ich weiß.....

Facebook
Telefonspende