المساعة با الاداة WebBrowser

بعد اضافة

Microsoft HTML Object libary

اذا كان الصفحة تحتوي فروم تسجيل دخول اسم و كلمة سر

 Dim iDoc As HTMLDocument
    Dim Element As HTMLInputElement
    Dim LoginForm As HTMLFormElement
    On Error Resume Next
    Set iDoc = WebBrowser1.Document
    For Each Element In iDoc.All
        If Element.Type = "text" Then Element.Value = text1.text
        If Element.Type = "password" Then Element.Value = pass.text
    Next
    Set LoginForm = iDoc.Forms(0)
    LoginForm.submit

اذا كان حقل تكست واحد فقط انزع السطر

 If Element.Type = "password" Then Element.Value = pass.text

اذا كانت تحتوي على عدة حقول تكست وانت تستهدف حقل واحد منهم

غير هذا السطر

 If Element.Type = "text" Then Element.Value = text1.text

واجعله

 If Element.name = "اسم الحقل" Then Element.Value = text1.text

ملاحضة ...الفوق يوجد text لحقل وتستطيع تغييره ل textarea

طبعا الفوق pass.text هي تكستبوكس

وايضا يوجد في اخر الكود رقم 0 هو اذا كان او فورم في الصفحة اما ادا كان الثاني فاجعاه 1 وهكذا