مشکل با زدن لایک در WebBrowser

[Mr.ViPeR]

با سلام !
من مشکل دارم توی زدن لایک هایی که توی صفحه هست در WebBrowser !
:((
Private Sub Command1_Click()
Set Parent = WebBrowser1.Document.GetElementByID("vbseo-likes")
For Each Obj In Parent
attr = Obj.getAttribute("Like Tree")
If attr = "Like Tree" Then Obj.Click
Next
End Sub
این الان کدی هست که من انتخاب میکنم ولی کار نمیکنه و جای For Each Obj In Paren میگه Object Doesn't Support This Property Or Methode !
لطفا راهنمایی کنید !
با تشکر

[saeedhord]

با سلام !
من مشکل دارم توی زدن لایک هایی که توی صفحه هست در WebBrowser !
:((
Private Sub Command1_Click()
Set Parent = WebBrowser1.Document.GetElementByID("vbseo-likes")
For Each Obj In Parent
attr = Obj.getAttribute("Like Tree")
If attr = "Like Tree" Then Obj.Click
Next
End Sub
این الان کدی هست که من انتخاب میکنم ولی کار نمیکنه و جای For Each Obj In Paren میگه Object Doesn't Support This Property Or Methode !
لطفا راهنمایی کنید !
با تشکر


این کد برای لایک فیسبوکه ؟

اگه برای فیبوکه چون فیسبوک ایدی یا نام نداره باید از titlesh استفاده کنی

این کد رو امتحان کن

set parent=WebBrowser1.Document.GetElementById("elemen t_id")

For Each Obj In Parent
attr = Obj.getAttribute("title")
If attr = "Like this" Then Obj.Click
Next


باز هم اگه عنصر مناسبی به عنوان parent پیدا نکردی حلقه رو اینطوری بنویس

For Each Obj In Me.WebBrowser1.Document.All