تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في تهنيج البرنامج
#1
عند استخدام هذا الكود البرنامج بيهنج ممكن حد يقولي اتعامل معه كيف بحيث البرنامج ما يهنجش او يقف 
كود :
       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
الرد
تم الشكر بواسطة:
#2
قم بوضع اداة BackgroundWorker
وفم بوضع الكود الخاص بك داخل الاداة
وفي زر البدء قم بوضع هذا الكود
BackgroundWorker1.RunWorkerAsync()
[صورة مرفقة: p_1583w56341.gif]
الرد
تم الشكر بواسطة: Rabeea Qbaha
#3
(27-01-20, 02:40 PM)mohamedahmed1 كتب : قم بوضع اداة BackgroundWorker
وفم بوضع الكود الخاص بك داخل الاداة
وفي زر البدء قم بوضع هذا الكود
BackgroundWorker1.RunWorkerAsync()
طبعا عارف BackgroundWorker
ولكن ال BackgroundWorker مش بيتعامل مع جميع العناصر مباشره ممكن تضع الكود في الBackgroundWorker
وهو صحيح ولكن سيظهر اخطاء بتقول ان BackgroundWorker ومش عارف يتعامل مع العناصر بتزامن
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عرض البرنامج بالشكل الكامل عمور2016 8 123 منذ 10 دقيقة مضت
آخر رد: Mohamad Anan
  مشكله فى عرض تقرير report viewer khaled Mohammed 0 34 منذ 5 ساعة مضت
آخر رد: khaled Mohammed
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 47 , 07:17 AM
آخر رد: Anas Mahmoud
  [VB.NET] كيف بامكاني معرفة عدد اللى فاتحين البرنامج بتاعي ميدو الفنان 0 35 , 01:09 PM
آخر رد: ميدو الفنان
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 104 16-09-20, 03:57 PM
آخر رد: رامى محمد
  [سؤال] السلام عليكم عندي مشكله غريبه اليوم السابع 1 56 16-09-20, 03:21 AM
آخر رد: معاند الحظ
  [VB.NET] مشكلة تعليق البرنامج عند العمل ميدو الفنان 6 191 11-09-20, 09:00 PM
آخر رد: T 1
  مشكله ظهرت فجأه فى البرنامج خالد كامل1 2 291 12-08-20, 11:29 PM
آخر رد: خالد كامل1
  [VB.NET] مشكلة عند تشغيل البرنامج اسامه الهرماوي 1 205 12-08-20, 09:23 PM
آخر رد: boudyonline
  [سؤال] عندي مشكله في النت فروم وريك منه 2 288 18-07-20, 07:29 PM
آخر رد: منه

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم