حذف موضوعات مرة واحدة - نسخة قابلة للطباعة

حذف موضوعات مرة واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف موضوعات مرة واحدة (/showthread.php?tid=27474)

الصفحات: 1 2

حذف موضوعات مرة واحدة - ابو روضة - 16-11-18

السلام عليكم اخوتى
لدى كود يقوم بحذف منشورات على الفيس بوك وضعته داخل تايمر لكنه
يحذف منشور منشور وانا اريده يقوم بالحذف مرة واحدة فكيف هذا الله يكرمكم

كود :

Dim s As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")

        For Each bt As HtmlElement In s

            If bt.GetAttribute("href").Contains("/delete/?") Then

                bt.InvokeMember("Click")

                'Exit For

            End If

        Next

اريده يقوم بحذف كل ما موجود داخل الصفحة بهذ الكود مرة واحدة..
هو الكود شغال تمام لكنه يحذف منشور تلو الاخر

RE: حذف موضوعات مرة واحدة - ابو روضة - 17-11-18

up

RE: حذف موضوعات مرة واحدة - elgokr - 17-11-18

وعليكم السلام ورحمة الله وبركاته

كل ما عليك فعله هو عدم استخدام

كود :

Exit For

حتى تجعل For يستكمل عملية الحذف لكل ما تم ايجاده من شرط التحقق

لكن تذكر ان الفيس يستغرق وقتاً بين كل عملية حذف وحذف بما انك تتكلم عن الفيس

وحيث ان الكود يعمل جلب لسطر كود الرابط A ليقوم بالضغط عليه الامر هنا لا يستغرق جزء من الثانية

ولكن حتى تكون على علم بالامر جرب ان تقوم انت يدوياً بعمل حذف لاكثر

من حاجة على الصفحة فكم تستغرق ويتطلب الامر حى يقوم الفيس بالتنفيذ حتى تكون على استوعاب على بذلك

والاخذ بالاعتبار فى الكود مثل بعد سطر تنفيذ الضغط تقوم بعمل انتظار بعض الثواني حتى يقوم بتنفيذ الضغطة التالية

تحياتى لك

وتمنياتى لك التوفيق

RE: حذف موضوعات مرة واحدة - ابو روضة - 17-11-18

(17-11-18, 12:40 AM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

كل ما عليك فعله هو عدم استخدام

كود :

Exit For

حتى تجعل For يستكمل عملية الحذف لكل ما تم ايجاده من شرط التحقق

لكن تذكر ان الفيس يستغرق وقتاً بين كل عملية حذف وحذف بما انك تتكلم عن الفيس

وحيث ان الكود يعمل جلب لسطر كود الرابط A ليقوم بالضغط عليه الامر هنا لا يستغرق جزء من الثانية

ولكن حتى تكون على علم بالامر جرب ان تقوم انت يدوياً بعمل حذف لاكثر

من حاجة على الصفحة فكم تستغرق ويتطلب الامر حى يقوم الفيس بالتنفيذ حتى تكون على استوعاب على بذلك

والاخذ بالاعتبار فى الكود مثل بعد سطر تنفيذ الضغط تقوم بعمل انتظار بعض الثواني حتى يقوم بتنفيذ الضغطة التالية

تحياتى لك

وتمنياتى لك التوفيق

لو تلاحظ اخى اننى حاطط كومنت عليها 'Exit For يعنى غير مستخدمة لانى بفضل اجرب كتير
قبل وضع اى موضوع

RE: حذف موضوعات مرة واحدة - elgokr - 17-11-18

(17-11-18, 12:48 AM)ابو روضة كتب : لو تلاحظ اخى اننى حاطط كومنت عليها 'Exit For يعنى غير مستخدمة لانى بفضل اجرب كتير
قبل وضع اى موضوع

انا ملاحظ ذلك واشرت اليها لعدم استخدامها تماماً فى مثل تلك الاكواد

التى مطلوب منها جلب جميع النتائج

وتم توضيح فكرة عملية التنفيذ والمدة التى قد تكون مطلوبة لاتمام تنفيذ الامر

حتى توضح الفكرة اكثر

تعال فى موضوعك هنا وقم بوضع اكثر من رد مباشراً فى وقت واحد

ولاحظ الرسالة التى ستظهر لك نفس الامر يتم على الفيس والمواقع بشكل عام قد تصل الى 90%

جرب تقوم بعملية الحذف على الفيس سريعاً يدوياً ليس من خلال البرمجة

ولاحظ هل سيتم التنفيذ مباشراً ام سيتطلب وقت بين كل عملية حذف نفس فكرة الردود هنا فى المنتدى

تحياتى لك

وتمنياتى لك التوفيق

RE: حذف موضوعات مرة واحدة - ابو روضة - 17-11-18

(17-11-18, 04:08 AM)elgokr كتب :
(17-11-18, 12:48 AM)ابو روضة كتب : لو تلاحظ اخى اننى حاطط كومنت عليها 'Exit For يعنى غير مستخدمة لانى بفضل اجرب كتير
قبل وضع اى موضوع

انا ملاحظ ذلك واشرت اليها لعدم استخدامها تماماً فى مثل تلك الاكواد

التى مطلوب منها جلب جميع النتائج

وتم توضيح فكرة عملية التنفيذ والمدة التى قد تكون مطلوبة لاتمام تنفيذ الامر

حتى توضح الفكرة اكثر

تعال فى موضوعك هنا وقم بوضع اكثر من رد مباشراً فى وقت واحد

ولاحظ الرسالة التى ستظهر لك نفس الامر يتم على الفيس والمواقع بشكل عام قد تصل الى 90%

جرب تقوم بعملية الحذف على الفيس سريعاً يدوياً ليس من خلال البرمجة

ولاحظ هل سيتم التنفيذ مباشراً ام سيتطلب وقت بين كل عملية حذف نفس فكرة الردود هنا فى المنتدى

تحياتى لك

وتمنياتى لك التوفيق

تمام أخى ربنا يكرمك ...

يعنى ما هو المطلوب كى يقوم البرنامج بحذف الكل مرة واحدة ؟

أم هذا لن ينفع ؟ انا أخرت التايمر وجعلته 20 ثانية واوقات يحذف ثلاث مواضيع مع بعض

وكثير لا يحذف اى شيئ الا بعد كذا عملية ريفريش للصفحة

RE: حذف موضوعات مرة واحدة - elgokr - 17-11-18

ارفق لى المشروع مع حساب فيس بوك عشوائي يحتوى على كم من المشاركات

حتى يتم تحرير السورس واختبار الامر على الحساب المرفق مع السورس

تحياتى لك

وتمنياتى لك التوفيق

RE: حذف موضوعات مرة واحدة - ابو روضة - 17-11-18

(17-11-18, 02:40 PM)elgokr كتب :
ارفق لى المشروع مع حساب فيس بوك عشوائي يحتوى على كم من المشاركات

حتى يتم تحرير السورس واختبار الامر على الحساب المرفق مع السورس

تحياتى لك

وتمنياتى لك التوفيق

مش محتاجة عمل حساب اخر اخى الجوكر انت حضرتك فقط شاهد المشروع المرفق

وأكيد هتلاقى خطأ بل أخطاء

RE: حذف موضوعات مرة واحدة - elgokr - 17-11-18

عند محاولة تطبيق المشروع يدوياً

لاتمام تنفيذ حف الاعجاب من خلال استخدام الرابط يظهر تلك الرسالة

كود :

Sorry, something went wrong

Please try closing and re-opening your browser window.

ويرجع الى للامر ان يجب تنفيذ الرابط من خلال الكود حتى يتم تنفيذه عن طريق الـ ajax

وبما انك تستخدم عن طريق WebBrowser فتلك المشكلة غير موجودة

لكن يتوقف الامر هنا على بظي تنفيذ الامر حيث ان التنفيذ يتم من خلال متصفح Internet Explorer

تم مراجعة الكود ومحاولة التنفيذ على حساب عشوائي وكان الامر مستجاب بحذف جميع الاعجاب

ولكن استغرق الامر قليلاً حتى يتم انتهاء جميع الغاء الاعجاب

طيب ايه الاشياء المطلوب التعديل عليها حتى يتم تنفيذ الامور بدون اى بطي او باصح تسريع الامور نسبياً

فى البداية انت لا تحتاج الى هذا السطر فى الكود

كود :

On Error Resume Next

ثانياً ستحتاج لانشاء عدد RadioButton بحيث يكون كل واحدة يخص نوع الحذف

اذا كان اعجاب او تعليقات او منشورات .. الخ

ويكون الكود بداخل التايمر على هذا الشكل

كود :

       If RadioButton1.Checked = True Then

            For Each btn As HtmlElement In WebBrowser1.Document.All

                If btn.GetAttribute("href").Contains("unlike&timeline_token=") Then ' unlike&timeline_token

                    'Label1.Text = btn.InnerText 

                    btn.InvokeMember("Click")

                    'Exit For

                End If

            Next

        End If

وبكده تكون اجبرت المستخدم ان يقوم بعمليات الحذف على مراحل

حتى تتمكن من رؤية الامر دون اتمام اى تعليق بسبب المتصفح مع الـ Ajax

وكذلك حتى لا يتعبر الفيس ان الحساب كا سبام ويسبب لود على السيرفر

تحياتى لك

وتمنياتى لك التوفيق

RE: حذف موضوعات مرة واحدة - ابو روضة - 17-11-18

(17-11-18, 04:20 PM)elgokr كتب :
عند محاولة تطبيق المشروع يدوياً

لاتمام تنفيذ حف الاعجاب من خلال استخدام الرابط يظهر تلك الرسالة

كود :

Sorry, something went wrong Please try closing and re-opening your browser window.

ويرجع الى للامر ان يجب تنفيذ الرابط من خلال الكود حتى يتم تنفيذه عن طريق الـ ajax

وبما انك تستخدم عن طريق WebBrowser فتلك المشكلة غير موجودة

لكن يتوقف الامر هنا على بظي تنفيذ الامر حيث ان التنفيذ يتم من خلال متصفح Internet Explorer

تم مراجعة الكود ومحاولة التنفيذ على حساب عشوائي وكان الامر مستجاب بحذف جميع الاعجاب

ولكن استغرق الامر قليلاً حتى يتم انتهاء جميع الغاء الاعجاب

طيب ايه الاشياء المطلوب التعديل عليها حتى يتم تنفيذ الامور بدون اى بطي او باصح تسريع الامور نسبياً

فى البداية انت لا تحتاج الى هذا السطر فى الكود

كود :

On Error Resume Next

ثانياً ستحتاج لانشاء عدد RadioButton بحيث يكون كل واحدة يخص نوع الحذف

اذا كان اعجاب او تعليقات او منشورات .. الخ

ويكون الكود بداخل التايمر على هذا الشكل

كود :

If RadioButton1.Checked = True Then For Each btn As HtmlElement In WebBrowser1.Document.All If btn.GetAttribute("href").Contains("unlike&timeline_token=") Then ' unlike&timeline_token 'Label1.Text = btn.InnerText btn.InvokeMember("Click") 'Exit For End If Next End If

وبكده تكون اجبرت المستخدم ان يقوم بعمليات الحذف على مراحل

حتى تتمكن من رؤية الامر دون اتمام اى تعليق بسبب المتصفح مع الـ Ajax

وكذلك حتى لا يتعبر الفيس ان الحساب كا سبام ويسبب لود على السيرفر

تحياتى لك

وتمنياتى لك التوفيق

اعتقد فعلا هذا افضل اخى نوعا ما

بارك الله فيك وجزاك كل خير.......