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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اغلاق البرنامج DOX.1 3 341 26-11-20, 10:31 AM
آخر رد: DOX.1
  [VB.NET] كيف أجعل البرنامج يطبع Necro PC 4 176 22-11-20, 12:09 PM
آخر رد: Necro PC
  [VB.NET] اخطاء اثناء تشغيل البرنامج acc.ahmedyounis 5 261 21-11-20, 12:05 AM
آخر رد: اسامه الهرماوي
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية و غير عشرية Necro PC 7 244 20-11-20, 12:43 AM
آخر رد: Necro PC
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية Necro PC 7 249 20-11-20, 12:43 AM
آخر رد: Necro PC
  نقل مجموعة ملفات من مجلد الى مجلد البرنامج aftfm 1 115 15-11-20, 09:04 PM
آخر رد: aftfm
  [VB.NET] فك ضغط ملف rar بجانب البرنامج ميدو الفنان 2 127 12-11-20, 01:56 AM
آخر رد: ميدو الفنان
  [VB.NET] مشكله في قراءه بيانات فارغه من ال SQL SERVER mohammed_abdu 2 166 08-11-20, 05:31 PM
آخر رد: mohammed_abdu
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 487 22-10-20, 11:20 PM
آخر رد: kiki
  مشكله في بعض الطابعات عند الطباعه makky 0 90 12-10-20, 03:14 PM
آخر رد: makky

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


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