منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] فتح جميع الصفحات في نفس الوقت web brosers - نسخة قابلة للطباعة

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

فتح جميع الصفحات في نفس الوقت web brosers - saudisgames - 21-03-18

السلام عليكم ورحمة الله وبركاته
عندي برنامج فيه 24 متصفح web browser
وكلهم بيفتحون نفس الصفحة وبيسون نفس الامر
ابيهم يفتحون كلهم بالوقت نفسه كيف
يعني اثناء تطبيقي للفتح ياخذ 24ثانية لفتحهم
حيث يبدا بالتسلسل بالكود
PHP كود :
WebBrowser1.Navigate(TextBox2.Text)
        WebBrowser2.Navigate(TextBox2.Text)
        WebBrowser3.Navigate(TextBox2.Text)
        WebBrowser4.Navigate(TextBox2.Text)
        WebBrowser5.Navigate(TextBox2.Text)
        WebBrowser6.Navigate(TextBox2.Text)
        WebBrowser7.Navigate(TextBox2.Text)
        WebBrowser8.Navigate(TextBox2.Text)
        WebBrowser9.Navigate(TextBox2.Text)
        WebBrowser10.Navigate(TextBox2.Text)
        WebBrowser11.Navigate(TextBox2.Text)
        WebBrowser12.Navigate(TextBox2.Text)
        WebBrowser13.Navigate(TextBox2.Text)
        WebBrowser14.Navigate(TextBox2.Text)
        WebBrowser15.Navigate(TextBox2.Text)
        WebBrowser16.Navigate(TextBox2.Text)
        WebBrowser17.Navigate(TextBox2.Text)
        WebBrowser18.Navigate(TextBox2.Text)
        WebBrowser19.Navigate(TextBox2.Text)
        WebBrowser20.Navigate(TextBox2.Text)
        WebBrowser21.Navigate(TextBox2.Text)
        WebBrowser22.Navigate(TextBox2.Text)
        WebBrowser23.Navigate(TextBox2.Text)
        WebBrowser24.Navigate(TextBox2.Text) 

فيفتح الاول ثم يذهب للثاني الى ان ينتهي منهم جميعهم
ويكون البرنامج في حالة تعليق الى ان ينتهي من تحميل جميع الصفحات

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

RE: فتح جميع الصفحات في نفس الوقت web brosers - silverlight - 21-03-18

اضافة بسيطة

ممكن تبني مصفوفة يكل الروابط
ثم تستخدم Parallel.For
لتفتح جميع الروابط في وقت واحد
ملحوظة:
ان حدث تهنيج يبقي ها تحتاج تعمل ده من خلال تايمر يعمل في الخلفية

RE: فتح جميع الصفحات في نفس الوقت web brosers - saudisgames - 23-03-18

(21-03-18, 09:09 PM)سعود كتب :
هذا مثال لكن ليس باستخدام اداة المتصفح و انما webclient
(21-03-18, 10:38 PM)silverlight كتب : اضافة بسيطة

ممكن تبني مصفوفة يكل الروابط
ثم تستخدم Parallel.For
لتفتح جميع الروابط في وقت واحد
ملحوظة:
ان حدث تهنيج يبقي ها تحتاج تعمل ده من خلال تايمر يعمل في الخلفية



تشكرون على الاجابة
لكن بحثت عن طريقة لتطبيق الي قلته لكن للاسف ماشفت فانا مبتدأ Sad
بس خدمه بسيطة عندي اهم جزء من برنامجي هو الكود التالي ابيه يسوي الامر في نفس الوقت
اذا تقدر تعدل عليه وتعطيني اياه اكون لك شاكر

كود :
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       WebBrowser1.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser2.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser3.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser4.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser5.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser6.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser7.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser8.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser9.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser10.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser11.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser12.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser13.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser14.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser15.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser16.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser17.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser18.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser19.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser20.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser21.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser22.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser23.Document.GetElementById("btn_ok").InvokeMember("click")
       WebBrowser24.Document.GetElementById("btn_ok").InvokeMember("click")

   End Sub