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

(24-11-19, 01:25 AM)ابو روضة كتب : حاول تجرب بهذا الكود أخى لآنى والله ما فتحتش الفيس الى الان للتجربة

كود :

 For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Dim aa As String = ""
           Dim web As New System.Net.WebClient
           web.UploadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox1.Text + "&fields=id,category,name&limit=1000", Nothing, "&access_token=" + RichTextBox1.Text)
           RichTextBox2.Text = System.Text.RegularExpressions.Regex.Match(aa, "name"":""(.+?)""").Groups.Item(1).Value
           RichTextBox3.Text = System.Text.RegularExpressions.Regex.Match(aa, "id"":""(.+?)""").Groups.Item(1).Value
           RichTextBox2.Text = RichTextBox2.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", ".")
           RichTextBox3.Text = RichTextBox3.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", ".")
           DataGridView1.Rows(i).Cells(0).Value = RichTextBox3.Text
           DataGridView1.Rows(i).Cells(1).Value = RichTextBox2.Text
       Next

طلع خطاء معايا