[ابو روضة]

السلام عليكم اخوتى

طلب منى قريب لى برنامج انضمام لجروبات الفيس بوك وانا جلبتهم كلهم داخل  DataGridView

واريده يذهب لجروب تلو الاخر ثم يضغط على زر "انضمام إلى المجموعة"

وحينما ينتهى من العناصر الموجودة داخل ال  يقف التايمر لآنى واضع الكود

داخل التايمر يعنى اريده يمسك عنصر ثم يذهب الى الرابط بتاعه ويضغط على الزر

ثم ينزل على العنصر الذى يليه وهكذا الى أن ينتهو كل العناصر من داخل DataGridView 

وهذا هو الكود الذى استخدمه لكنه لا يعمل

كود :

Try
           For i As Integer = 0 To DataGridView1.RowCount - 1

               WebBrowser1.Navigate(DataGridView1.Rows(i).Cells(0).Value.ToString())
               Await Task.Delay(5000)
               Dim inputs As HtmlElementCollection
               inputs = WebBrowser1.Document.GetElementsByTagName("input")
               For Each input As HtmlElement In inputs
                   If input.GetAttribute("value") = "انضمام إلى المجموعة" Then

                       input.InvokeMember("Click")

                   End If
               Next

           Next i
       Catch ex As Exception
           Timer1.Stop()
           MsgBox("انتهى ")
       End Try

[سعود]

وعليكم السلام ورحمة الله وبركاته
اخي الكريم انت وضعت عند مصيدة الخطأ مربع  رسالة  و يفترض ان تضع رسالة خطأ Err.Description
لكي تعرف سبب عدم عمل البرنامج.

[ابو روضة]

(08-08-19, 11:45 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اخي الكريم انت وضعت عند مصيدة الخطأ مربع  رسالة  و يفترض ان تضع رسالة خطأ Err.Description
لكي تعرف سبب عدم عمل البرنامج.

يعنى المفروض يتم ايه أخى سعود ؟
وهل الكود كدة صحيح أم به خطأ ؟ وكيف اصححه لو كان خطأ

[سعود]

(09-08-19, 12:50 AM)ابو روضة كتب :

(08-08-19, 11:45 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اخي الكريم انت وضعت عند مصيدة الخطأ مربع  رسالة  و يفترض ان تضع رسالة خطأ Err.Description
لكي تعرف سبب عدم عمل البرنامج.

يعنى المفروض يتم ايه أخى سعود ؟
وهل الكود كدة صحيح أم به خطأ ؟ وكيف اصححه لو كان خطأ

اخي الكريم لو لدي برنامج بنفس الفكرة ممكن اضع افتراضيات للخطأ لكن للاسف لا ادري ماهو الخطا الذي منع البرنامج ان يعمل لديك لذلك كنت ارجو استخدام كود معرفة الخطا لمعرفته ومعالجته.

[ابو روضة]

(09-08-19, 01:43 AM)سعود كتب :

(09-08-19, 12:50 AM)ابو روضة كتب :

(08-08-19, 11:45 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اخي الكريم انت وضعت عند مصيدة الخطأ مربع  رسالة  و يفترض ان تضع رسالة خطأ Err.Description
لكي تعرف سبب عدم عمل البرنامج.

يعنى المفروض يتم ايه أخى سعود ؟
وهل الكود كدة صحيح أم به خطأ ؟ وكيف اصححه لو كان خطأ

اخي الكريم لو لدي برنامج بنفس الفكرة ممكن اضع افتراضيات للخطأ لكن للاسف لا ادري ماهو الخطا الذي منع البرنامج ان يعمل لديك لذلك كنت ارجو استخدام كود معرفة الخطا لمعرفته ومعالجته.

شكرا لك أخى سعود فعلا عملتها كدة وانحلت المشكلة الحمدلله

الخطأ كان فى تغير الاماكن فقط

[mohamedahmed1]

عليكم السلام
هل المشكلة انه لا يقوم بالضغط علي زر انضمام ام ماذا ؟ اذا كانت هذه المشكلة يمكنك تجربة هذا الكود كما هو لقد قمت بوضع اسم الكلاس الخاص بالانضمام للمجموعة والضغط عليه

Dim eCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
 For Each item As HtmlElement In eCollection
     Dim classname = item.GetAttribute("className")
     If classname = "_42ft _4jy0 _21ku _4jy4 _4jy1 selected _51sy mrm
         item.InvokeMember("click")
     End If
 Next

[ابو روضة]

(09-08-19, 04:42 AM)mohamedahmed1 كتب : عليكم السلام
هل المشكلة انه لا يقوم بالضغط علي زر انضمام ام ماذا ؟ اذا كانت هذه المشكلة يمكنك تجربة هذا الكود كما هو لقد قمت بوضع اسم الكلاس الخاص بالانضمام للمجموعة والضغط عليه

Dim eCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
 For Each item As HtmlElement In eCollection
     Dim classname = item.GetAttribute("className")
     If classname = "_42ft _4jy0 _21ku _4jy4 _4jy1 selected _51sy mrm
         item.InvokeMember("click")
     End If
 Next

شكرا لك أخى ربنا يكرمك انحلت المشكلة الحمدلله