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.qt5.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 s As String
 Dim i, c As Integer  

 s = Lower(WebView1.HTML)

 i = InStr(s, "http", c + 1)

 While i > 0
   c = InStr(s, "\"", i + 1)
   Print Mid(s, i, c - i)
   i = InStr(s, "http", c + 1)
 Wend
  
End