Questione : cambiare la funzione

ciao esperti, voglio cambiare sotto la funzione di collegamento di scatto, collegamento che di scatto del
when non voglio aperto una nuova finestra (_blank), aprentemi soltanto possiedo la finestra (_self). cambiamento di aiuto del
anyone sotto la funzione o il suggerimento della qualunque altra funzione?
class= > " libero " del

> " del codeSnippet " del class= del

class= " lineNumbers " del

class= del

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:

>function notpretty WB_ClickLink (WB " del class= " del id= " codeSnippet836359 del

class= del

Risposta : cambiare la funzione

Ciao Gsamuk. Osservare qui:

funzione WB_ClickLink (WB: TWebbrowser; const LinkText: stringa): Booleano;
varietà
  HTMLDocument2: IHTMLDocument2;
  collegamenti: IHTMLElementCollection;
  Elemento: IHTMLElement;
  href: OleVariant;
  I: Numero intero;
cominciare
  HTMLDocument2: = WB.Document come IHTMLDocument2;
  collegamenti: = HTMLDocument2.Links;
  per la I: = 0 ai collegamenti. Lunghezza - 1 fa
  cominciare
    Elemento: = HTMLDocument2.Links.Item (I, 0) come IHTMLElement;
    se AnsiContainsStr (Element.innerText, LinkText) o AnsiContainsStr (Element.getAttribute (“href„, 0), LinkText) allora
    cominciare
      se AnsiContainsStr (Element.getAttribute (“obiettivo„, 0), “_blank ") allora
        WB.Navigate (Element.getAttribute (“href„, 0))
      altrimenti
        Element.Click;
      Risultato: = allineare;
      Rottura;
    estremità;
  estremità;
  Risultato: = falso;
estremità;