24-02-21, 05:58 PM
Dim client = NewClient()
Await client.ConnectAsync()
Dim dialogs = CType(Await, TLDialogs) client.GetUserDialogsAsync()
Dim main = dialogs.Chats.ToList().Where(Function© c.GetType() Is GetType(TLChannel)).Cast(Of TLChannel)().FirstOrDefault(Function© c.Title = (gruopName))
Dim req = New TLRequestGetFullChannel() With { _
.Channel = New TLInputChannel() With { _
.AccessHash =CLng(Fix(main.AccessHash)), _
.ChannelId = main.Id _
} _
}
Dim res = Await client.SendRequestAsync(Of TeleSharp.TL.Messages.TLChatFull)(req)
Await client.ConnectAsync()
Dim dialogs = CType(Await, TLDialogs) client.GetUserDialogsAsync()
Dim main = dialogs.Chats.ToList().Where(Function© c.GetType() Is GetType(TLChannel)).Cast(Of TLChannel)().FirstOrDefault(Function© c.Title = (gruopName))
Dim req = New TLRequestGetFullChannel() With { _
.Channel = New TLInputChannel() With { _
.AccessHash =CLng(Fix(main.AccessHash)), _
.ChannelId = main.Id _
} _
}
Dim res = Await client.SendRequestAsync(Of TeleSharp.TL.Messages.TLChatFull)(req)
