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

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

طلب منى قريب لى برنامج انضمام لجروبات الفيس بوك وانا جلبتهم كلهم داخل 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
لكي تعرف سبب عدم عمل البرنامج.

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

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

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

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

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

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