Mais de um objeto sem propriedades exclusivas na mesma tela: Como lidar com eles usando programação descritiva no QTP?

Suponha que você encontre a seguinte tela na aplicação que está testando:

Quando você inspeciona esses objetos, você percebe que eles não têm propriedades únicas (exclusivas), e você não consegue diferenciá-los utilizando a programação descritiva. O que fazer então?

Você pode usar o seguinte trecho de código para clicar no primeiro botão Add, por exemplo. (veja os comentários para obter detalhes sobre o código abaixo):

_______________________________________________________

'Define as características gerais dos objetos

Set objectDescription = Description.Create()

objectDescription("html tag").Value = "INPUT"

objectDescription("type"). Value = "button"

objectDescription("value"). Value = "Add"

'Define a página onde estão localizados os filhos (objetos propriamente ditos)

Set objectChild = Browser("Claris Browser").Page("index:=0").ChildObjects(ojectDescription)

'Se necessário, conte quantos objetos existem na página

'counter = objectChild.Count()

'Clica no primeiro objeto encontrado (índices variam de 0 até counter-1)

objectChild(0).Click()

'Aqui as variáveis vão ser desalocadas

Set objectChild = Nothing

Set objectDescription = Nothing

_______________________________________________________

Sinta-se à vontade para enviar perguntas ou sugestões.

Até breve!