[faresvip]

طبيعي يحصل مشاكل فى الكود بس شوف ايه هيه المشاكل وعدلها
او قول ايه المشاكل الموجوده عشان نقدر نساعدك

---

(20-02-21, 09:33 AM)اليوم السابع كتب : حاولت كتير احوله من خلال اكتر من موقع لكن يحدث مشاكل بالكود 

كود :

var client = NewClient();
await client.ConnectAsync();


var dialogs = (TLDialogs)await client.GetUserDialogsAsync();
var main = dialogs.Chats.ToList().Where(c => c.GetType() == typeof(TLChannel))
          .Cast<TLChannel>()
          .FirstOrDefault(c => c.Title == (gruopName));
var req = new TLRequestGetFullChannel()
{
  Channel = new TLInputChannel() { AccessHash =(long) main.AccessHash, ChannelId = main.Id }
};

var res = await client.SendRequestAsync<TeleSharp.TL.Messages.TLChatFull>(req);

////we have to do this in slices
var result = new ChannelInfo();
var offset = 0;
while (offset < (res.FullChat as TLChannelFull).ParticipantsCount)
{
  var pReq = new TLRequestGetParticipants()
  {
      Channel = new TLInputChannel() { AccessHash = main.AccessHash.Value, ChannelId = main.Id },
      Filter = new TLChannelParticipantsRecent() { },
      Limit = 200,
      Offset = offset
  };
  var pRes = await client.SendRequestAsync<TLChannelParticipants>(pReq);

  result.Users.AddRange(pRes.Users.ToList().Cast<TLUser>());
  offset += 200;
  await Task.Delay(500);
}

طبيعي يحصل مشاكل فى الكود بس شوف ايه هيه المشاكل وعدلها

او قول ايه المشاكل الموجوده عشان نقدر نساعدك
عموما جرب ده 

كود :

Dim client As var = NewClient

While (offset < CType(res.FullChat,TLChannelFull).ParticipantsCount)
   Dim pReq = New TLRequestGetParticipants
   Dim pRes = client.SendRequestAsync(Of TLChannelParticipants)(pReq)
   result.Users.AddRange(pRes.Users.ToList.Cast)
   offset = (offset + 200)
   Task.Delay(500)
   
End While


   
   Function client_ConnectAsync_(() As await Implements client.ConnectAsync.(
   End Function
   
   Private dialogs As var = CType(await,TLDialogs)
   
   Private main As var = dialogs.Chats.ToList.Where(() => {  }, (c.GetType = GetType(TLChannel))).Cast.FirstOrDefault(() => {  }, (c.Title = gruopName))
   
   Private req As var = New TLRequestGetFullChannel
   
   Private res As var = client.SendRequestAsync(Of TeleSharp.TL.Messages.TLChatFull)(req)
   
   '''/we have to do this in slices
   Private result As var = New ChannelInfo
   
   Private offset As var = 0