En cliquant sur un lien qui contient une certaine chaîne dans VBS

Question

J'essaie d'exécuter un script vbs automatisé qui clique sur un lien sur une page. J'ai des choses de la forme:

Const READYSTATE_COMPLETE = 4 
Set IE = CreateObject("INTERNETEXPLORER.APPLICATION") 
IE.Visible = true 
IE.navigate ("http://mywebpage.com") 

Comment puis-je faire ensuite cliquer sur un lien sur cette page qui ne dispose pas d'une carte d'identité, mais est comme

<a href="link">ClickMe!</a> 

Merci!

Answer 1

Le long des lignes de

Dim LinkHref 
Dim a 

LinkHref = "link" 

For Each a In IE.Document.GetElementsByTagName("A") 
    If LCase(a.GetAttribute("href")) = LCase(LinkHref) Then 
    a.Click 
    Exit For ''# to stop after the first hit 
    End If 
Next 

Au lieu de LCase(…) = LCase(…) vous pouvez également utiliser StrComp(…, …, vbTextCompare) (voir StrComp() on the MSDN).