[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم هذا شرح للكود
مع توضيح كيف يتم معرفة الـ ID الخاص بالزر Send

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        [color=#008000]'تشغيل المؤقت لمتابعة نتيجة الإرسال[/color]
        Timer1.Enabled = True
        [color=#008000]'مسح النتيجة السابقة[/color]
        Label1.Text = ""
        [color=#008000]'إسناد أحرف الكابتشا داخل المكان المخصص لها[/color]
        WebBrowser1.Document.GetElementById("recaptcha_response_field").Focus()
        WebBrowser1.Document.GetElementById("recaptcha_response_field").InnerText = TextBox3.Text
        [color=#008000]'هنا الجواب على سؤالك[/color]
        [COLOR=#008000]'وهو القيام بالبحث عن الزر
        'Send
        'بدلالة الكود الخاص به وهو هنا
        '<span class="ui-button-text">Send</span>
        'فإذا تم العثور عليه قام البرنامج بالضغط
        'عليه والخروج من الحلقة التكرارية[/COLOR]
        For U = WebBrowser1.Document.All.Count - 1 To 0 Step -1
            If WebBrowser1.Document.All.Item(U).InnerHtml <> "" AndAlso WebBrowser1.Document.All.Item(U).InnerHtml = "<span class=""ui-button-text"">Send</span>" Then
                WebBrowser1.Document.All.Item(U).Focus()
                WebBrowser1.Document.All.Item(U).InvokeMember("click")
                Exit For
            End If
        Next
    End Sub

بالتوفيق