Visualizza wikitesto di 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 i Componenti ''gb.qt5'' e ''gb.qt5.webview''.

Mostriamo un semplice esempio pratico:
 Public Sub Form_Open()
  
 <FONT Color=gray>' ''Carica una pagina web:''</font>
  WebView1.Url = "https:/&#047;www.gambas-it.org"
  
 End
 
 
 Public Sub WebView1_Finish() <FONT Color=gray>' ''Quando la pagina web è stata completamente caricata, viene sollevato questo Evento''</font>
  
  Dim s As String
  Dim i, c As Integer  
 
  s = Lower(WebView1.GetHtml())
 
  i = InStr(s, "https", c + 1)
 
  While i > 0
    c = InStr(s, "\"", i + 1)
    Print "\e[31m"; Mid(s, i, c - i)
    i = InStr(s, "https", c + 1)
  Wend
   
 End