Controllare i link contenuti da una pagina web

Per conoscere quali collegamenti a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'oggetto WebView, attivando il Componente gb.qt4.webkit.

Mostriamo un semplice esempio pratico:

Public Sub Form_Open()
  
' Carica una pagina web:
  WebView1.Url = "http://www.gambas-it.org"
  
End


Public Sub WebView1_Load()   ' Quando la pagina web è stata completamente caricata, viene sollevato questo evento
 
 Dim ss As String[]
 Dim s As String
  
  ss = Split(Lower(WebView1.HTML), " ", "", True)
  
  For Each s In ss
    If s Like "href=\"*" Then
      s = Replace(s, "href=", "")
' Mostra in console un collegamento individuato ad una pagina web esterna:
      Print Left(s, RInStr(s, "\""))
    Endif
  Next
  
End