[أسامة]

كود :

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

هذا الكود للدخول الى المنتدى الخاص لاكن يكتب اسم المستخدم و كلمة المرور لاكن لا يضغط دخول