Banana-Coding.com - Java Knuddels Emulator

Quellcode

Imports System.Net.Sockets

Module Module1

    Sub Main()
        Try
            Dim port As Int32 = 2710
            Dim client As New TcpClient("localhost", port)

            'mit 0x00 Verbindung aufbauen 0x00 = &H0 
            Dim message As Byte() = New Byte() {&H0}
            ' t-Token als Byte array.
            Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes("t\0V9.0afi \0http://localhost/\00\01.6.0_26 - 3911\0Java HotSpot(TM) Client VM\0-kzbvc87ti7he-1482lk01tash8,null")
          
            Dim stream As NetworkStream = client.GetStream()
            client.GetStream.Flush()

            
            ' Daten an Server senden
            stream.Write(message, 0, message.Length)
            stream.Write(data, 0, data.Length)

            Console.WriteLine("Sent: {0}", System.Text.Encoding.ASCII.GetString(data))

            ' Daten empfangen
            data = New [Byte](256) {}


            Dim responseData As [String] = [String].Empty


            Dim bytes As Int32 = stream.Read(data, 0, data.Length)
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
            Console.WriteLine("Received: {0}", responseData)

        Catch e As ArgumentNullException
            Console.WriteLine("ArgumentNullException: {0}", e)
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        End Try

    End Sub

End Module

Quellcode

Imports System.Net.Sockets

Module Module1

    Sub Main()
        Try
            Dim port As Int32 = 2710
            Dim client As New TcpClient("localhost", port)

            'mit 0x00 Verbindung aufbauen 0x00 = &H0 
            Dim message As Byte() = New Byte() {&H0}
            ' t-Token als Byte array.
            Dim data As [Byte]() = System.Text.Encoding.UTF8.GetBytes("0t" + vbNullChar + "V9.0afi ")



            Dim stream As NetworkStream = client.GetStream()
            client.GetStream.Flush()

            
            ' Daten an Server senden
            stream.Write(message, 0, message.Length)
            stream.Write(data, 0, data.Length)

            Console.WriteLine("Sent: {0}", System.Text.Encoding.ASCII.GetString(data))

            ' Receive the TcpServer.response.
            ' Buffer to store the response bytes.
            data = New [Byte](256) {}

            ' String to store the response ASCII representation.
            Dim responseData As [String] = [String].Empty

            ' Read the first batch of the TcpServer response bytes.
            Dim bytes As Int32 = stream.Read(data, 0, data.Length)
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
            Console.WriteLine("Received: {0}", responseData)
            ' Close everything.

            Dim n As [Byte]() = System.Text.Encoding.UTF8.GetBytes("0n" + vbNullChar + "channel" + vbNullChar + "nick" + vbNullChar + "pw")
            stream.Write(n, 0, n.Length)

            Dim Hi As [Byte]() = System.Text.Encoding.UTF8.GetBytes("0e" + vbNullChar + "channel" + vbNullChar + "Hallo :)" + vbNullChar)
            stream.Write(Hi, 0, Hi.Length)

            Dim a As [Byte]() = System.Text.Encoding.UTF8.GetBytes("0d" + vbNullChar)
            stream.Write(a, 0, a.Length)


        Catch e As ArgumentNullException
            Console.WriteLine("ArgumentNullException: {0}", e)
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        End Try

        Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
        Console.Read()

    End Sub 'Connect

End Module