المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
23-11-19, 01:50 AM
(آخر تعديل لهذه المشاركة : 23-11-19, 01:54 AM {2} بواسطة اليوم السابع .)
لدي علي الفورم 2 ريتش بوكس و داتا جريد فيو و زر
واستخدم هذا الكود في جلب محتوي هذه الصفحه ولكن يجلب اول نتيجه فقط انا اريد ان يجلب جميع نتايج الصفحه كما هو موضح علي الفورم ملحوظه الحروف العربي تظهر رموز
علشان كده في الكود عامل ربليس للرموز علشان احولها عربي ملحوظه الريتش بوكس 1 يأخذ الاكسيس توكن والتكست بوكس يأخذ كلمه البحث كماهو هو موضح في الكود وعلي الفورم
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim ii As Integer = DataGridView1.Rows.Count - 1
Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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(ii).Cells(0).Value = RichTextBox3.Text
DataGridView1.Rows(ii).Cells(1).Value = RichTextBox2.Text
End Sub
(23-11-19, 01:50 AM) اليوم السابع كتب : لدي علي الفورم 2 ريتش بوكس و داتا جريد فيو و زر
واستخدم هذا الكود في جلب محتوي هذه الصفحه ولكن يجلب اول نتيجه فقط انا اريد ان يجلب جميع نتايج الصفحه كما هو موضح علي الفورم ملحوظه الحروف العربي تظهر رموز
علشان كده في الكود عامل ربليس للرموز علشان احولها عربي ملحوظه الريتش بوكس 1 يأخذ الاكسيس توكن والتكست بوكس يأخذ كلمه البحث كماهو هو موضح في الكود وعلي الفورم
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim ii As Integer = DataGridView1.Rows.Count - 1
Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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(ii).Cells(0).Value = RichTextBox3.Text
DataGridView1.Rows(ii).Cells(1).Value = RichTextBox2.Text
End Sub
الملفات المرفقة
صورة/صور
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(23-11-19, 07:00 AM) ابو روضة كتب : حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة
الرابط ده للبحث في صفحات الفيس بوك ده الرابط تكست بوكس 4 بياخد الكلمه اللي بعمل عليها بحث انا كنت بعمل بحث بكلمه خليل علشان كده طلعت رموز وانا بحول الرموز عادي والريتش بوكس 1 بياخد الاكسيس توكن الخاص بحسابي علي الفيس بوك والصوره تانيه عندي داتا جريد فيو فيها عمودين عامود اسمه اي دي وعامود اسمه نيم
والصفحه زاي ما هو واضح كده فيها نتايج بحث كتير بها كلمه اي دي وامامها اي دي الصفحه وكلمه نيم فيها اسم الصفحه
المطلوب ان اجلب البيانات دي كلها اللي في الصفحه في الريتش بوكس والريتش بوكس يعطي للداتا جريد فيو ملحوظه انا اجلب البيانات في الريتش بوكس الاول علشان احول الرموز الي حروف
وطبعا في الداتا جريد فيو عاوز كل نتيجه في صف لوحده في الصوره التانيه واضح انه جلب اول نتيجه فقط الي هي خليل الجيل في الرتش بوكس وبعدين عرضها في الداتا جريد فيو وماجلبش اي نتايج تانيه
وبعون الله عارف انه محلوله علي ايدك يا هندسه
https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&access_token=" + RichTextBox1.Text +
الملفات المرفقة
صورة/صور
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(23-11-19, 07:00 AM) ابو روضة كتب : حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة
؟؟
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
بصراحة لم أفهم بالتحديد ماذا تريد لآن الكتابة داخله ببعضها وما فهمته فقط أنك تريد جلب
كل النتائج ليس نتيجة واحدة على ما أظن فرأيت الكود أنه ليس به حلقة تكرارية فجرب هذا
كود :
For i As Integer = 0 To DataGridView1.Rows.Count - 1
Dim aa As String = WebClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(23-11-19, 07:12 PM) ابو روضة كتب : بصراحة لم أفهم بالتحديد ماذا تريد لآن الكتابة داخله ببعضها وما فهمته فقط أنك تريد جلب
كل النتائج ليس نتيجة واحدة على ما أظن فرأيت الكود أنه ليس به حلقة تكرارية فجرب هذا
كود :
For i As Integer = 0 To DataGridView1.Rows.Count - 1
Dim aa As String = WebClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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
الف شكر يا هندسه بس ما زالت المشكله انا هرفق لحضرتك مشروع صغير موضوح فيه كل شئ
ومرفق معه الصوره و ده الموقع اللي بستخرج منه الاكسيس توكن
https://qlizz.com/?loginmethod=v2
الملفات المرفقة
WindowsApplication2.rar (الحجم : 119.14 ك ب / التحميلات : 2)
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
حاول تجرب بهذا الكود أخى لآنى والله ما فتحتش الفيس الى الان للتجربة
كود :
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
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(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
طلع خطاء معايا
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(24-11-19, 02:56 AM) اليوم السابع كتب : [quote pid='152364' dateline='1574544341']
كود :
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
طلع خطاء معايا
[/quote]
والله يا اخى أنا حاولت معاه لانى أول مرة أتعامل مع هذه الخاصية تبع البحث.
لو عرفت أعملها أكيد سأخبرك لا تقلق وإن شاء الله يأتى الأفضل منى وكلكم أفضل ويعملها لك فلا تتعجل
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(24-11-19, 03:23 AM) ابو روضة كتب : (24-11-19, 02:56 AM) اليوم السابع كتب : [quote pid='152364' dateline='1574544341']
كود :
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
طلع خطاء معايا
والله يا اخى أنا حاولت معاه لانى أول مرة أتعامل مع هذه الخاصية تبع البحث.
لو عرفت أعملها أكيد سأخبرك لا تقلق وإن شاء الله يأتى الأفضل منى وكلكم أفضل ويعملها لك فلا تتعجل
[/quote]
انا عارف والله اني تعبتكم جميعا وانت يا هندسه مخصوص انا قاعد افكر يعني توصلت لي شئ
ان الصفحه فيها
id:55555555555
name:aaaaaaaaaaa
id:6666666666
name:bbbbbbbbbb
الكود بيجلب اول نتيجه في الصفحه فقط اللي هو الid و الname
وبيتجاهل نتائج البحث الاخير ايه الكود الللي يجلب اول نتيجه وثاني نتيجه الي اخره انا والله مشتت وببحث كتير حتي لو تلاحظ اني بنتظر الرد مش بنام والله :
(