Peer to Peer - wo die IP-Adressen der einzelnen PC's im Netzwerk speichern?

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Halfbax.

    Peer to Peer - wo die IP-Adressen der einzelnen PC's im Netzwerk speichern?

    Hallo Leute

    Ich hab gerade ein Programm angefangen und möchte ein unabhängiges Peer to Peer (P2P) Netzwerk aufbauen, also ohne zentralen Server. Dazu läuft auf jedem PC ein Server und ein Client gleichzeitig.

    Jetzt ist das problem: ohne festen Server weiss ich die IP-Adresse(n) nicht, mit welcher sich der client verbinden soll...

    Und dann hab ich noch eine andere frage: wie kann ich den server und denn client gleichzeitig starten, weil der server wartet auf verbindung und blockiert dann den rest...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net.Sockets
    3. Imports System.Threading
    4. Imports System.Net
    5. Imports System.Text
    7. Public Structure Conn
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim nick As String
    12. Dim IP As String
    13. End Structure
    14. '================
    15. ' *** main ***
    16. '================
    17. Public Class Main
    18. Public nick As String
    19. Public myIP As String
    20. Dim serv As New server
    21. Dim clie As New client
    23. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    24. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://nicu96ftp.square7.ch/stuff/ip.php"), HttpWebRequest) 'in dieser Zeile deine URL angeben
    25. Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    26. Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
    27. myIP = reader.ReadToEnd()
    28. If Not response Is Nothing Then response.Close()
    29. 'server & client starten
    30. End Sub
    32. Public Sub WriteStr(ByVal s As String)
    33. rtb.Text += s & vbCrLf
    34. End Sub
    36. End Class
    37. '==================
    38. ' *** client ***
    39. '==================
    40. Public Class client
    41. Private stream As NetworkStream
    42. Private streamw As StreamWriter
    43. Private streamr As StreamReader
    44. Private client As New TcpClient
    45. Private t As New Thread(AddressOf Listen)
    46. Private Delegate Sub DWriteStr(ByVal s As String)
    47. Public nick As String = "unknown"
    49. Public Sub Start()
    50. Try
    51. client.Connect("127.0.0.1", 44444)
    52. If client.Connected Then
    53. stream = client.GetStream
    54. streamw = New StreamWriter(stream)
    55. streamr = New StreamReader(stream)
    56. streamw.WriteLine(nick & "@" & Main.myIP)
    57. streamw.Flush()
    59. t.Start()
    60. Else
    61. MessageBox.Show("Verbindung zum Server nicht möglich!")
    62. Application.Exit()
    63. End If
    64. Catch ex As Exception
    65. MessageBox.Show("Verbindung zum Server nicht möglich!")
    66. Application.Exit()
    67. End Try
    68. End Sub
    70. Private Sub Listen()
    71. While client.Connected
    72. Try
    73. Main.Invoke(New DWriteStr(AddressOf Main.WriteStr), streamr.ReadLine)
    74. Catch
    75. Main.WriteStr("Verbindung zum Server nicht möglich!")
    76. Application.Exit()
    77. End Try
    78. End While
    79. End Sub
    81. Public Sub SendMsg(ByVal sender As System.Object, ByVal e As System.EventArgs)
    82. streamw.WriteLine(Main.msg.Text)
    83. streamw.Flush()
    84. Main.msg.Clear()
    85. End Sub
    86. End Class
    87. '==================
    88. ' *** server ***
    89. '==================
    90. Public Class server
    91. Private server As TcpListener
    92. Private client As New TcpClient
    93. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 44444)
    94. Private list As New List(Of Conn)
    96. Public Sub Start()
    97. server = New TcpListener(ipendpoint)
    98. server.Start()
    99. Main.WriteStr("Der Server läuft!")
    100. While True
    101. client = server.AcceptTcpClient
    103. Dim c As New Conn
    104. c.stream = client.GetStream
    105. c.streamr = New StreamReader(c.stream)
    106. c.streamw = New StreamWriter(c.stream)
    107. Dim nickip() As String = c.streamr.ReadLine.Split(CChar("@"))
    108. c.nick = nickip(0)
    109. c.IP = nickip(1)
    111. list.Add(c)
    112. Main.WriteStr(c.nick & " has joined.")
    114. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    115. t.Start(c)
    116. End While
    117. End Sub
    119. Private Sub ListenToConnection(ByVal con As Conn)
    120. Do
    121. Try
    122. Dim tmp As String = con.streamr.ReadLine
    123. Main.WriteStr(con.nick & ": " & tmp)
    124. For Each c As Conn In list
    125. Try
    126. c.streamw.WriteLine(con.nick & ": " & tmp)
    127. c.streamw.Flush()
    128. Catch
    129. End Try
    130. Next
    131. Catch
    132. list.Remove(con)
    133. Main.WriteStr(con.nick & " has exit.")
    134. Exit Do
    135. End Try
    136. Loop
    137. End Sub
    138. End Class


    thx im voraus :) und mfg

    nicu96

    OS: Linux Peppermint & Windows 7
    Processor: AMD Phenom II X6 1055T @ 3.5 GHz
    RAM: 8 GB Kingston ValueRAM
    GFX: NVIDIA GeForce 210

Facebook
Telefonspende