Controllare i link contenuti da una pagina web

Per conoscere quali collegamenti ad altre pagine web 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 è stata 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=", "")
      Print Left(s, RInStr(s, "\""))
    Endif
  Next
  
End