Packet Senden

Extension

Hallo liebe Community.

Beim Googeln bin uch auf dieses hier gestoßen:
[VB 2008] Packete zum Server senden geht nicht :o - Internet- und Netzwerkprogrammierung - Visual-Basic-Forum VB-Paradise.de

Genau das, was unser Dardan vorhatte, möchte ich auch machen.
Leider weiß auch ich nicht, wie ich bei diesen Code:

Zitat

Imports System.Net
Imports System.Net.Sockets
Public Class Form1
Dim buffer(1024) As Byte
Dim socketFlags As SocketFlags
Dim Socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Socket.Connect("127.0.0.1", 23000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Socket.Send(buffer, 1, Sockets.SocketFlags.None, Sockets.SocketFlags.None)
End Sub
End Class

Alles anzeigen

Zum Beispiel dieses Packet

Zitat

5E 73 10 00 00 00 FF 00 00 00 00 00 00 10 00 01

senden kann.

Kann mir vllt. einer von euch helfen?

Mit freundlichem Gruß

Cubed

Socket.Send-Methode (Byte[], SocketFlags) (System.Net.Sockets)

ichbinniemand

Du hast da Hexa dec, und mit der funktion sendest du einen Byte Array

Also als erstes übersetzt du das in den Byte array:

Code

Dim Buffer(1024) As Byte
        Dim Input As String() = "5E 73 10 00 00 00 FF 00 00 00 00 00 00 10 00 01".Split(" ")
        For i As Integer = 0 To Input.Count - 1
            Buffer(i) = Convert.ToByte("&H" + Input(i))
        Next

und dann wie gehabt senden

Extension

Wenn ich das Packet nun abschicken möchte, steht da : Die Eingabezeichenfolge hat das falsche Format.

Dardan

Wow ist das peinlich meine alten Foren Beiträge zu lesen. :P
Ich weiß garnicht mehr ob ich's damals hinbekommen habe.
Obwohl das da in meinem alten Beitrag garnicht mal so falsch aussieht, hätte ich früher nur gewusst, dass ich den buffer mit Bytes füllen muss. xD

Du kannst auch manuell jeden einzelnen Byte füllen.

Code

Dim clientSock As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        clientSock.Connect(New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 23000))
        Dim buffer(1024) As Byte
        Dim bufferindex As Integer = 0
        Dim header As Char = "^" ' 5E | Char 1 Byte
        Dim shit1 As Char = "s" ' 73 | Char 1 Byte
        Dim shit2 As Integer = 16 ' 16 = 10 00 00 00 = 00 00 00 10 | Int32 4 Bytes
        Dim shit3 As Integer = 255 ' 255 = FF 00 00 00 = 00 00 00 FF | Int32 4 Bytes
        Dim shit4 As Integer = 268435456 ' 268435456 = 00 00 00 10 = 10 00 00 00 | Int32 4 Bytes
        Dim shit5 As Short = 256 ' 256 = 00 01 = 01 00 | Int16 2 Bytes


        If (clientSock.Connected) Then
            buffer(bufferindex) = BitConverter.GetBytes(header)(0)
            bufferindex += 1 ' Char 1 Byte


            clientSock.Send(buffer, 0, 1, SocketFlags.None)
        End If

Alles anzeigen

Nicht getestet aber sollte funktionieren, was für'n Scheiß Syntax vb.net doch hat... Wie konnte mir das früher nur soviel Spaß machen...
lg Ich;

ichbinniemand

Zitat

was für'n Scheiß Syntax vb.net doch hat... Wie konnte mir das früher nur soviel Spaß machen...
lg Ich;

vllt einfach ne umgewöhnungsache, ich find die vb syntax immer noch besser als die c syntax

Packet Senden

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES