[اليوم السابع]

(13-01-20, 06:00 PM)علي بنيان كتب :

(13-01-20, 03:26 PM)اليوم السابع كتب :

(13-01-20, 01:22 PM)ابو روضة كتب :

إقتباس :شكرا لك اخي ومعلمي ولكن بمعني ايه (أدخل هنا اسم متابعة)
هل تقصد ادخل id الحساب ؟؟؟ لم افهم 

يعنى أدخل كلمة متابعة كما هى مكتوبة على الفيس سواء بالعربى أو بالأنجليزى..

أنسخها كما هى لآن الفيس بوك لدى به عطل ومش بفتحه.

شكرا اخي ابو روضه معلمي الفاضل 
ولكن وضعت كلمه متابعه كما هي بالضبط ولم يقوم بالمتابعه نهائي

الكود شغال و صحيح .. بخاصية Url للويب براوزر اكتب الموقع  https://mbasic.facebook.com/

مش عارف ليه مش عاوز يظبط معي 

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")

       For Each btn As HtmlElement In allBtns

           If btn.InnerText = "متابعة" Then

               btn.InvokeMember("click")


           End If
       Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("[url=https://mbasic.facebook.com/Kareemadel.official.account]https://mbasic.facebook.com/Kareemadel.official.account[/url]")
    End Sub