سلام
باید اول سورس صفحه رو بررسی کنید تا فیلد مورد نظر رو پیدا کنید و مشخصاتش رو توی کد زیر استفاده کنید...
یعنی برای هر صفحه با توجه به اینکه سورسش متفاوت هست باید کد جدیدی بنویسید...
Private Sub Command1_Click()
Dim inputs As Object
Dim i As Object
Dim j As Object
Set inputs = WebBrowser1.Document.getElementsByTagName("input")
For Each i In inputs
If i.Name = "password" Then i.value = "*********"
If i.Name = "email" Then i.value = "نام کاربری شما"
If Trim$(i.Value) = " ورود " Then Set j = i
Next
j.Click
Set i = Nothing
Set j = Nothing
Set inputs = Nothing
End Sub
https://barnamenevis.org/showthread.p...=1#post2299298