ممكن تحويل الكود من سي شارب لي فيجوال بيسك - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : ممكن تحويل الكود من سي شارب لي فيجوال بيسك (/showthread.php?tid=37834) |
ممكن تحويل الكود من سي شارب لي فيجوال بيسك - اليوم السابع - 19-02-21 حاولت كتير احوله من خلال اكتر من موقع لكن يحدث مشاكل بالكود كود : string gruopName = "PornHub"; RE: ممكن تحويل الكود من سي شارب لي فيجوال بيسك - اليوم السابع - 20-02-21 (19-02-21, 11:35 PM)اليوم السابع كتب : حاولت كتير احوله من خلال اكتر من موقع لكن يحدث مشاكل بالكود RE: ممكن تحويل الكود من سي شارب لي فيجوال بيسك - الماجيك مسعد - 24-02-21 Dim gruopName As String = "PornHub" 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) Dim result = New ChannelInfo() Dim offset = 0 Do While offset < (TryCast(res.FullChat, TLChannelFull)).ParticipantsCount Dim pReq = New TLRequestGetParticipants() With { _ .Channel = New TLInputChannel() With { _ .AccessHash = main.AccessHash.Value, _ .ChannelId = main.Id _ }, _ .Filter = New TLChannelParticipantsRecent (New() { }), _ .Limit = 200, _ .Offset = offset _ } Dim pRes = Await client.SendRequestAsync(Of TLChannelParticipants)(pReq) result.Users.AddRange(pRes.Users.ToList().Cast(Of TLUser)()) offset += 200 Await Task.Delay(500) Loop |