13-01-20, 07:15 PM
(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
