Wie implementiert dieses VB.Net-Programm die Generierung und Kommunikation von Telegram-Autorisierungsschlüsseln?

Hier ist ein Programm in vb.Net, das Ihnen bei der Implementierung der Telegram-Autorisierungsschlüsselgenerierung und der weiteren von Ihnen angeforderten Kommunikation helfen soll:

    'TCP Socket Event Handlers
    Public Shared Sub IO_Handler(sender As Object, e As SocketAsyncEventArgs)
        Log($"{e.LastOperation}:{e.SocketError}:{e.BytesTransferred}", ConsoleColor.Cyan)

        Select Case e.SocketError
            Case SocketError.Success
                Select Case e.LastOperation
                    Case SocketAsyncOperation.Connect 'A socket Connect operation.
                        Log("Connected to " & e.ConnectSocket.RemoteEndPoint.ToString, ConsoleColor.Green)
                        are.Set()

                    Case SocketAsyncOperation.Disconnect, SocketAsyncOperation.Connect
                        RaiseEvent Disconneted()

                    Case SocketAsyncOperation.Receive 'A socket Receive operation.
                        HandleData(e)
                End Select

            Case SocketError.ConnectionAborted
                RaiseEvent Disconneted()
        End Select
    End Sub

    'TCP Send data function
    Private Shared Sub SendData(b() As Byte, Optional read As Boolean = False)
        If Not IsConnected() Then
            Log("Connection Closed!", ConsoleColor.DarkRed)
            RaiseEvent Disconneted()
            Exit Sub
        End If

        b = TCPPack(b)

        Dim arg = New SocketAsyncEventArgs With {.RemoteEndPoint = ep}
        AddHandler arg.Completed, AddressOf IO_Handler
        arg.SetBuffer(b, 0, b.Length)

        Try
            If Not soc.SendAsync(arg) Then
                IO_Handler(soc, arg)
            End If
        
            If read Then
                ReadData()
            End If
        Catch ex As Exception
                Log("SendData: " & ex.ToString, ConsoleColor.Red)
        End Try

    End Sub

    'TCP Receive data function
    Private Shared Sub ReadData(Optional wait As Integer = 0)
        If Not IsConnected() Then
            Log("Connection Closed!", ConsoleColor.DarkRed)
            RaiseEvent Disconneted()
            Exit Sub
        End If

        Dim arg = New SocketAsyncEventArgs With {.RemoteEndPoint = ep}
        AddHandler arg.Completed, AddressOf IO_Handler

        Dim b(BUFFER_SIZE - 1) As Byte
        arg.SetBuffer(b, 0, BUFFER_SIZE)

        Try
            If Not soc.ReceiveAsync(arg) Then
                IO_Handler(soc, arg)
            End If
        Catch ex As Exception
            Log("ReadMessages: " & ex.ToString, ConsoleColor.Red)
        End Try
    End Sub


    Private Shared Function TCPPack(b As Byte()) As Byte()
        Dim a = New List(Of Byte)
        Dim len = CByte(b.Length / 4)

        If efSent = False Then --TCP abridged version
            efSent = True
            a.Add(&HEF)
        End If

        If len >= &H7F Then
            a.Add(&H7F)
            a.AddRange(BitConverter.GetBytes(len))
        Else
            a.Add(len)
        End If

        a.AddRange(b) --only data, no sequence number, no CRC32

        Return a.ToArray
    End Function

    Private Shared Sub HandleData(e As SocketAsyncEventArgs)
        If e.BytesTransferred = 0 Then --no pending data
            Log("The remote end has closed the connection.")
            Exit Sub
        End If

        Dim len As Integer = e.Buffer(0)
        Dim start = 1

        If len = &H7F Then
            len = e.Buffer(1)
            len += e.Buffer(2) 

Das obige ist der detaillierte Inhalt vonWie implementiert dieses VB.Net-Programm die Generierung und Kommunikation von Telegram-Autorisierungsschlüsseln?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!