如何在 VB.Net 中生成 Telegram 授权密钥？

到目前为止，我已经能够完全实现电报授权，但不能使用您请求的语言 - PHP，我使用了 vb.Net。不过，我相信同样的逻辑应该适用。

创建 Telegram 授权密钥

Telegram API 并非易事在公园里。研究现有的 src 代码可能非常艰巨（恕我直言）。因此，我的方法是研究在线 API 文档并实现链接中概述的示例 auth_key下面。

https://core.telegram.org/mtproto/auth_key

https://core.telegram.org/mtproto/ Samples-auth_key

这种方法将为您提供更好的理解和介绍整个 Telegram API 中使用的原语，可能会帮助您开始组织自己的一组函数和例程来处理后续步骤所需的内容 - 实现 API 的其他功能，因为生成 AuthKey 只是一个开始。 /p>

第 1 步

所有通信均通过 TCP - 一旦您已获得唯一的 api_id (https://core.telegram.org/api/obtaining_api_id#obtaining-api-id)，您将发现以下广告用于测试的 IP： 149.154.167.40:433此时生成 api_id 不是必需的AuthKey

设置发送/接收 TCP 处理循环的首选方法

我拥有的是一个私有 SendData，它只是将字节发送到活动套接字连接到上面给定的 IP 地址

<div class="code" style="position:relative; padding:0px; margin:0px;"><pre class="brush:php;toolbar:false">If Not IsConnected() Then
    Log(&quot;Connection Closed!&quot;, 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(&quot;SendData: &quot; &amp; ex.ToString, ConsoleColor.Red)
End Try

登录后复制

End Sub

Private Sub ReadData（可选 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 Sub IO_Handler（sender 作为对象，e 作为 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

结束Sub

私有 Sub HandleData(e As SocketAsyncEventArgs)

<div class="code" style="position:relative; padding:0px; margin:0px;"><pre class="brush:php;toolbar:false">If Not IsConnected() Then Log(&quot;Connection Closed!&quot;, 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(&quot;SendData: &quot; &amp; ex.ToString, ConsoleColor.Red) End Try

登录后复制