DirectPlay8 - TCP/IP - Dienstanbieter ... Zugriff über Router??? -> P2P

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Malischh.

    daran liegt's nicht...
    ich hab den Port für den PC des Servers freigegeben (Router: Speedport W701-V)

    --------------------

    Das sind Konsolen:
    TCP SERVER CODE:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Text
    6. Imports Microsoft.VisualBasic
    7. Module Module1
    12. Sub connect(ByVal ip As String)
    13. Dim server As TcpListener
    14. server = Nothing
    15. Try
    16. ' Set the TcpListener on port 13000.
    17. Dim port As Int32 = 1234
    18. Dim localAddr As IPAddress = IPAddress.Parse(ip)
    20. server = New TcpListener(localAddr, port)
    22. ' Start listening for client requests.
    23. server.Start()
    25. ' Buffer for reading data
    26. Dim bytes(1024) As Byte
    27. Dim data As String = Nothing
    29. ' Enter the listening loop.
    30. While True
    31. Console.Write("Warte auf eine Verbindung... ")
    33. ' Perform a blocking call to accept requests.
    34. ' You could also user server.AcceptSocket() here.
    35. Dim client As TcpClient = server.AcceptTcpClient()
    36. Console.WriteLine("Verbunden!")
    38. data = Nothing
    40. ' Get a stream object for reading and writing
    41. Dim stream As NetworkStream = client.GetStream()
    43. Dim i As Int32
    45. ' Loop to receive all the data sent by the client.
    46. i = stream.Read(bytes, 0, bytes.Length)
    47. While (i <> 0)
    48. ' Translate data bytes to a ASCII string.
    49. data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
    53. ' Hier hast du den empfangenen string data
    55. If data <> "" Then
    56. Console.WriteLine("")
    57. Console.WriteLine("Empfangen: " & data & "")
    58. Console.WriteLine("")
    59. Console.WriteLine("Bitte Antwort eingeben!")
    60. Console.WriteLine("")
    61. Else
    62. Console.WriteLine("Es wurden keine Daten gesendet.")
    63. End If
    64. 'Anschließend gibst du die antwort:
    66. data = Console.ReadLine()
    69. Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
    72. stream.Write(msg, 0, msg.Length)
    73. Console.WriteLine("")
    74. Console.WriteLine("Antwort gesendet: {0}", data)
    75. Console.WriteLine("")
    77. i = stream.Read(bytes, 0, bytes.Length)
    79. End While
    81. ' Shutdown and end connection
    82. client.Close()
    83. End While
    84. Catch e As SocketException
    85. Console.WriteLine("FEHLER - ERROR: {0}", e)
    86. Finally
    87. server.Stop()
    88. End Try
    90. Console.WriteLine(ControlChars.Cr + "Bitte ENTER drücken....")
    91. Console.Read()
    93. End Sub
    95. Sub Main()
    96. Dim IP As Net.IPAddress
    97. Try
    98. IP = Net.Dns.Resolve(My.Computer.Name).AddressList(0)
    99. Catch ex As Exception
    100. MsgBox("Die IP konnte nicht ermittelt werden!")
    101. End Try
    102. Console.WriteLine("Welcome to TCP-Server!")
    103. Console.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++")
    104. Console.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++")
    105. Console.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++")
    106. Console.WriteLine("====================")
    107. Console.WriteLine("Ermittelte IP:")
    108. Console.WriteLine("====================")
    109. Console.WriteLine(IP.ToString)
    110. Console.WriteLine("====================")
    111. Console.WriteLine("Falls IP richtig oder IP unbekannt, bitte die Obenstehende IP eingeben!")
    112. Console.WriteLine("====================")
    113. connect(Console.ReadLine)
    114. End Sub
    116. End Module


    TCP Client Code:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Module Module1
    9. Sub Main()
    11. Console.WriteLine("Bitte geben sie die IP des Servers ein: ")
    12. Dim temp As String = Console.ReadLine
    13. Console.WriteLine("Bitte die Nachricht eingeben: ")
    14. Connect(temp, Console.ReadLine)
    16. End Sub
    20. Sub Connect(ByVal server As [String], ByVal message As [String])
    21. Try
    22. ' Create a TcpClient.
    23. ' Note, for this client to work you need to have a TcpServer
    24. ' connected to the same address as specified by the server, port
    25. ' combination.
    26. Dim port As Int32 = 1234
    27. Dim client As New TcpClient(server, port)
    29. ' Translate the passed message into ASCII and store it as a Byte array.
    30. Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
    32. ' Get a client stream for reading and writing.
    33. ' Stream stream = client.GetStream();
    34. Dim stream As NetworkStream = client.GetStream()
    36. ' Send the message to the connected TcpServer.
    37. stream.Write(data, 0, data.Length)
    38. Console.WriteLine("")
    39. Console.WriteLine("Gesendet: {0}", message)
    40. Console.WriteLine("")
    41. ' Receive the TcpServer.response.
    42. ' Buffer to store the response bytes.
    43. data = New [Byte](256) {}
    45. ' String to store the response ASCII representation.
    46. Dim responseData As [String] = [String].Empty
    48. ' Read the first batch of the TcpServer response bytes.
    49. Dim bytes As Int32 = stream.Read(data, 0, data.Length)
    50. responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
    51. Console.WriteLine("")
    52. Console.WriteLine("Empfangen: {0}", responseData)
    53. Console.WriteLine("")
    54. ' Close everything.
    55. stream.Close()
    56. client.Close()
    57. Catch e As ArgumentNullException
    58. Console.WriteLine("FEHLER - ERROR: {0}", e)
    59. Catch e As SocketException
    60. Console.WriteLine("FEHLER - ERROR: {0}", e)
    61. End Try
    63. Console.WriteLine(ControlChars.Cr + " Bitte ENTER drücken...")
    64. Console.Read()
    65. End Sub 'Connect
    69. End Module