[كود] تعديل - نسخة قابلة للطباعة

كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        WebBrowser1.Document.GetElementById("vb_login_username").InnerText = TextBox1.Text

        WebBrowser1.Document.GetElementById("vb_login_password").InnerText = TextBox2.Text

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.Links

        For Each webpageelements As HtmlElement In allelements

            If webpageelements.GetAttribute("Value") = "Login" Then

                webpageelements.InvokeMember("Click")

            End If



        Next

    End Sub