rfvgy

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim AuthThread As New System.Threading.Thread(AddressOf DataAuth)
        AuthThread.IsBackground = True
        AuthThread.Start()
    End Sub
    Sub DataAuth()
        Invoke(Sub() WebBrowser1.Document.GetElementById("id_username").InnerText = "Login")
        Threading.Thread.Sleep(50)
        Invoke(Sub() WebBrowser1.Document.GetElementById("id_password").InnerText = "Password")
        Threading.Thread.Sleep(300)
        Invoke(Sub()
                   Dim buttons As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
                   For Each btn As HtmlElement In buttons
                       If btn.GetAttribute("classname") = "button-green" Then
                           btn.InvokeMember("Click")
                       End If
                   Next
               End Sub)
    End Sub