Private Sub InserimentoCredenziali()

        Dim uiAutomation = New CUIAutomation()

        Dim username As String = "s_rpaprod"
        Dim password As String = "8i-1sTLd"
        Dim chromePointer = IntPtr.Zero

        While chromePointer = IntPtr.Zero
            chromePointer = FindWindow("Chrome_WidgetWin_1", "contratti.amplifon.com - Google Chrome")
        End While

        While True
            Try
                Dim chromeElement = uiAutomation.ElementFromHandle(chromePointer)
                Dim chromeArray = chromeElement.FindAll(TreeScope.TreeScope_Descendants, uiAutomation.CreateTrueCondition())
                Dim nomeUtenteElement As IUIAutomationElement = Nothing
                Dim passwordElement As IUIAutomationElement = Nothing
                Dim accediElement As IUIAutomationElement = Nothing

                For i = 0 To chromeArray.Length - 1
                    Dim currentElement = chromeArray.GetElement(i)
                    Dim currentName = currentElement.CurrentName
                    Dim valuePattern = currentElement.GetCurrentPattern(10018)
                    Dim invokePattern = currentElement.GetCurrentPattern(10000)

                    If currentName IsNot Nothing Then
                        If (currentName.ToLower.Contains("nome utente") Or currentName.ToLower.Contains("user")) And valuePattern IsNot Nothing Then
                            nomeUtenteElement = currentElement
                        ElseIf (currentName.ToLower.Contains("password") Or currentName.ToLower.Contains("pass")) And valuePattern IsNot Nothing Then
                            passwordElement = currentElement
                        ElseIf (currentName.ToLower.Contains("accedi") Or currentName.ToLower.Contains("sign in")) And invokePattern IsNot Nothing Then
                            accediElement = currentElement
                        End If
                    End If
                Next

                Dim nomeUtentePattern = DirectCast(nomeUtenteElement.GetCurrentPattern(10018), IUIAutomationLegacyIAccessiblePattern)
                Dim passwordPattern = DirectCast(passwordElement.GetCurrentPattern(10018), IUIAutomationLegacyIAccessiblePattern)
                Dim accediPattern = DirectCast(accediElement.GetCurrentPattern(10000), IUIAutomationInvokePattern)

                nomeUtentePattern.SetValue(username)
                passwordPattern.SetValue(password)
                accediPattern.Invoke()
                Exit While
            Catch ex As Exception

            End Try
        End While

    End Sub