이 VB.Net 프로그램은 텔레그램 인증 키 생성 및 통신을 어떻게 구현합니까?

다음은 귀하가 요청한 텔레그램 인증 키 생성 및 추가 통신을 구현하는 데 도움이 되는 vb.Net의 프로그램입니다.

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

위 내용은 이 VB.Net 프로그램은 텔레그램 인증 키 생성 및 통신을 어떻게 구현합니까?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!