[اليوم السابع]

عند استخدام هذا الكود البرنامج بيهنج ممكن حد يقولي اتعامل معه كيف بحيث البرنامج ما يهنجش او يقف 

كود :

       Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/" + TextBox23.Text + "/comments?access_token=" + TextBox7.Text + "&fields=id,from&limit=100000")
           TextBox3.Text = (aa)
           Dim da As String
           da = TextBox3.Text
           TextBox3.Text = TextBox3.Text.Replace("\u0040", "@").Replace("\u0630", "ذ").Replace("\u0636", "ض").Replace("\u0635", "ص").Replace("\u062b", "ث").Replace("\u0642", "ق").Replace("\u0641", "ف").Replace("\u063a", "غ").Replace("\u0639", "ع").Replace("\u0647", "ه").Replace("\u062e", "خ").Replace("\u062d", "ح").Replace("\u062c", "ج").Replace("\u062f", "د").Replace("\u0634", "ش").Replace("\u0633", "س").Replace("\u064a", "ي").Replace("\u0628", "ب").Replace("\u0644", "ل").Replace("\u0627", "ا").Replace("\u062a", "ت").Replace("\u0646", "ن").Replace("\u0645", "م").Replace("\u0643", "ك").Replace("\u0637", "ط").Replace("\u0626", "ئ").Replace("\u0621", "ء").Replace("\u0624", "ؤ").Replace("\u0631", "ر").Replace("\u0644\u0627", "لا").Replace("\u0649", "ى").Replace("\u0629", "ة").Replace("\u0648", "و").Replace("\u0632", "ز").Replace("\u0638", "ظ").Replace("\u002f", " ").Replace("\u005f", "_").Replace("\u002d", "-").Replace("\u002e", ".").Replace("\u0623", "أ").Replace("\u061f", "؟").Replace("\u0622", "آ").Replace("\u0640", "ـ").Replace("\u00e1", "á").Replace("\u0625", "إ").Replace("\u0662", "٢").Replace("\u06f1", "۱").Replace("\u06f0", "۰").Replace("}", "").Replace("\u0664", "٤").Replace("\u0665", "٥").Replace("\u0666", "٦").Replace("\u0667", "٧").Replace("\u06f8", "۸").Replace("\u06f9", "۹").Replace("},{", "" & vbNewLine).Replace("\", "").Replace("{""data"":[{", "").Replace("}],""paging"":{""cursors"":{", "" & vbNewLine).Replace("\u2022", "•").Replace("\u2022", "•").Replace("from"":{", vbNewLine).Replace(",""id"":""", vbNewLine & """idus"":""").Replace(",{", vbNewLine).Trim("""id"":""", "")
           ListBox1.Items.AddRange(TextBox3.Text.Split(vbNewLine).ToArray)


           Dim member_id = System.Text.RegularExpressions.Regex.Matches(TextBox3.Text, "name"":""(.+)""")
           For Each txt As System.Text.RegularExpressions.Match In member_id
               If ListBox12.FindStringExact(txt.Groups(1).Value) = -1 Then
                   ListBox12.Items.Add(txt.Groups(1).Value)
               End If
           Next
           Dim member_id0 = System.Text.RegularExpressions.Regex.Matches(TextBox3.Text, """idus"":""(.+)""")
           For Each txt As System.Text.RegularExpressions.Match In member_id0
               If ListBox13.FindStringExact(txt.Groups(1).Value) = -1 Then
                   ListBox13.Items.Add(txt.Groups(1).Value)
               End If
           Next

[mohamedahmed1]

قم بوضع اداة BackgroundWorker
وفم بوضع الكود الخاص بك داخل الاداة
وفي زر البدء قم بوضع هذا الكود
BackgroundWorker1.RunWorkerAsync()

[اليوم السابع]

(27-01-20, 02:40 PM)mohamedahmed1 كتب : قم بوضع اداة BackgroundWorker
وفم بوضع الكود الخاص بك داخل الاداة
وفي زر البدء قم بوضع هذا الكود
BackgroundWorker1.RunWorkerAsync()

طبعا عارف BackgroundWorker
ولكن ال BackgroundWorker مش بيتعامل مع جميع العناصر مباشره ممكن تضع الكود في الBackgroundWorker
وهو صحيح ولكن سيظهر اخطاء بتقول ان BackgroundWorker ومش عارف يتعامل مع العناصر بتزامن