Bagaimanakah Program VB.Net Ini Melaksanakan Penjanaan Utama dan Komunikasi Kebenaran Telegram?

Berikut ialah program dalam vb.Net yang sepatutnya membantu anda melaksanakan penjanaan kunci Kebenaran Telegram dan komunikasi lanjut yang anda minta:

    '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) 

Atas ialah kandungan terperinci Bagaimanakah Program VB.Net Ini Melaksanakan Penjanaan Utama dan Komunikasi Kebenaran Telegram?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!