منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف تطبيق مجموعة اكواد في نفس الثانية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لسلام عليكم ورحمة الله وبركاته
عندي برنامج فيه 24 متصفح web browser
يسون نفس الامر في نفس الوقت
ابيهم يفتحون كلهم بالوقت نفسه كيف
يعني اثناء تطبيقي للكود ياخذ 24ثانية
حيث يبدا بالتسلسل بالكود
الكود التالي ابيه يسوي الامر في نفس الوقت
اذا تقدرون تعدلون عليه وتعطوني اياه اكون لكم من الشاكرين

كود :
   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
للرفع اتمنى الاجابة
جرب استخدام 
BackgroundWorker
لكل عملية

فهو ينتقل للكود التالي ولا ينتظر اكتمال تنفيذ العملية