[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