کلیک رولی لینک توسط WebBrowser

[aleas2]

سلام خسته نباشید

توسط WebBrowser وارد بلاگفا میشم نام کاربری رمز وارد بر روی گزینه ورود کلیک میکنم حالا میخوام بر روی لینک ارسال پست توسط WebBrowser کلیک کنم چطور میتونم اینکار بکنم؟

چون وقتی به شکل زیر وارد لینک ارسال پست میشم


WebBrowser1.Navigate "http://blogfa.com/Desktop/Post.aspx"



دوباره وارد صفحه وارد کردن نام کاربری و پسورد میشه راه حل چی؟

ضمنا" برای تست کردن هم یه وبلاگ با نام کاربری testttt20 و پسورد 123456kk ایجاد کردم که خودتون میتوانید امتحان کنین
اینم کد

WebBrowser1.Navigate "http://blogfa.com/Desktop/Post.aspx"

Do While WebBrowser1.ReadyState <> "4"
'...
'...
'...
DoEvents

Loop

text1.Text = WebBrowser1.Document.body.innerHTML
If InStr(1, text1.Text, "type=""text""") > 0 Then

Dim chek1 As Boolean, chek2 As Boolean
chek1 = False
chek2 = False
For n = 0 To WebBrowser1.Document.All.Length - 1

If WebBrowser1.Document.All(n).tagName = "INPUT" Then

If WebBrowser1.Document.All(n).Type = "text" And chek1 = False Then
WebBrowser1.Document.All(n).Value = "testttt20"
chek1 = True
End If

If WebBrowser1.Document.All(n).Type = "password" And chek2 = False Then
WebBrowser1.Document.All(n).Value = "123456kk"
chek2 = True
End If

If chek1 = True And chek2 = True Then
If WebBrowser1.Document.All(n).Type = "submit" Then
WebBrowser1.Document.All(n).Click
Exit For
End If
End If

End If
Next n

'WebBrowser1.Document.All("submit").Click
Timer1.Enabled = True



Do While WebBrowser1.ReadyState <> "4" Or Timer1.Enabled = True
'...
'...
'...
DoEvents

Loop


End If