UDP Bytes empfangen gibt keine sinnvollen Werte zurück

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets.

    UDP Bytes empfangen gibt keine sinnvollen Werte zurück

    Hallo Leute,
    ich versuche beim Rennspiel Forza Horizon 4 die Datenübertragung über UDP zu verwenden, um Daten außerhalb des Spiels darstellen zu können, z.B. Tacho usw.

    Hier mein bisheriger Code:

    VB.NET-Quellcode

    1. Imports Newtonsoft.Json
    2. Imports Newtonsoft.Json.Linq
    3. Imports System.Net.Http
    4. Imports System.IO
    5. Imports System.Net
    6. Imports System.Web.Script.Serialization
    7. Imports System.Net.Sockets
    8. Imports System.Text
    10. Public Class Form1
    11. Private UdpListener As UdpClient 'Diese Client horcht auf Port 12000
    12. 'Private UdpSender As UdpClient ' mit diesem wird gesendet
    13. Private ep As IPEndPoint
    14. Private CallBack As AsyncCallback 'CallBack für asyncrones Empfangen
    15. Delegate Sub DelegateWriteRtf(t As String) 'Delegate zum schreiben des empfangenen Strings
    16. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    17. StartListener()
    18. End Sub
    20. Sub StartListener()
    21. CallBack = New AsyncCallback(AddressOf receive)
    22. ep = New IPEndPoint(IPAddress.Any, 9999)
    23. UdpListener = New UdpClient(ep)
    24. UdpListener.BeginReceive(CallBack, "") ' startet asyncrones Empfangen
    25. WriteRtf("listen to port: " & ep.Port.ToString)
    26. End Sub
    28. Sub receive(ar As IAsyncResult)
    29. Dim res() As Byte = UdpListener.EndReceive(ar, ep)
    30. Dim resString = GetStringFromBytes(res) 'Encoding.ASCII.GetString(res)
    31. WriteRtf(resString)
    32. If ar.IsCompleted Then 'wenn fertig, wieder lauschen
    33. UdpListener.BeginReceive(CallBack, "")
    34. End If
    35. End Sub
    37. Sub WriteRtf(s As String)
    38. 'da receive in einem anderen Thread läuft, muß Invoked werden
    39. If RichTextBox1.InvokeRequired Then
    40. Dim wd As New DelegateWriteRtf(AddressOf WriteRtf)
    41. RichTextBox1.Invoke(wd, s)
    42. Else
    43. RichTextBox1.AppendText(s & vbNewLine)
    44. End If
    45. End Sub
    47. Private Shared Function GetStringFromBytes(ByVal bytes() As Byte) As String
    48. Dim ByteLegth = bytes.Count
    49. If (ByteLegth >= 3) AndAlso (bytes(0) = &HEF) AndAlso (bytes(1) = &HBB) AndAlso (bytes(2) = &HBF) Then
    50. Return System.Text.Encoding.UTF8.GetString(bytes)
    51. ElseIf (ByteLegth >= 2) AndAlso (bytes(0) = &HFE) AndAlso (bytes(1) = &HFF) Then
    52. Return System.Text.Encoding.BigEndianUnicode.GetString(bytes)
    53. ElseIf (ByteLegth >= 2) AndAlso (bytes(0) = &HFF) AndAlso (bytes(1) = &HFE) Then
    54. Return System.Text.Encoding.Unicode.GetString(bytes)
    55. ElseIf (ByteLegth >= 2) AndAlso (bytes(0) = &H0) AndAlso (bytes(1) = &H0) AndAlso (bytes(2) = &HFE) AndAlso (bytes(3) = &HFF) Then
    56. Return New System.Text.UTF32Encoding(True, True).GetString(bytes)
    57. ElseIf (ByteLegth >= 2) AndAlso (bytes(0) = &HFF) AndAlso (bytes(1) = &HFE) AndAlso (bytes(2) = &H0) AndAlso (bytes(3) = &H0) Then
    58. Return System.Text.Encoding.UTF32.GetString(bytes)
    59. Else
    60. 'No BOM, assume ASCII
    61. Return System.Text.Encoding.ASCII.GetString(bytes)
    62. End If
    63. End Function
    65. End Class


    Im Spiel selbst wird eine IP (die lokale 192.168.x.x) und ein Port (z.B. 9999) angegeben.


    Folgende Daten werden zurückgegeben: (siehe Dateianhang)

    Es gibt leider keine offiziellen Dokumentationen, wie und in welcher Struktur die Daten vom Spiel übergegeben werden.


    Vielen Dank für eure Hilfe,
    mit freundlichen Grüßen,
    Hilfe0987

    Code-Tags korrigiert ~ EaranMaleasi
    Bilder

    • screen1.png

      9,79 kB, 803×489, 61 mal angesehen
    :thumbup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()

    Naja, das sind halt keine Strings, die da übertragen werden, sondern binär serialisierte Daten. Dokumentation dazu, wie die aufgebaut sind, gibts auch zur Genüge - ne Minute Googeln (Stichwort forza horizon 4 telemetry udp) führt bspw. direkt hierhin: github.com/richstokes/Forza-da…ster/FH4_packetformat.dat. Da steht alles drin, was du wissen musst, um die Daten auslesen zu können.

    Edit: Oh, und ne offizielle Dokumentation gibts auch, wenn man ordentlich danach sucht: forums.forzamotorsport.net/tur…-details.aspx#post_926839

    Erstmal musst du die einzelnen Werte extrahieren - das geht bspw. mit einem BinaryReader -, dann musst du die halt irgendwie anzeigen lassen. Wie du die Anzeige machst, ist komplett dir überlassen - du kannst die Werte einfach in nen String reinpacken und dann anzeigen, oder einzelne Werte in einzelnen Labels anzeigen, ...

Facebook
Telefonspende