تقييم الموضوع :
  • 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 ومش عارف يتعامل مع العناصر بتزامن
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله رساله خطا Omaro 7 96 24-03-24, 03:46 PM
آخر رد: Omaro
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [سؤال] مشكله كود TRansaction وحقل الترقيم التلقائي 01AHMED 0 109 09-02-24, 10:31 PM
آخر رد: 01AHMED
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 360 03-11-23, 06:50 AM
آخر رد: Adel27213
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 350 03-11-23, 06:42 AM
آخر رد: Taha Okla

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


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