Differenze tra le versioni di "Controllare i link contenuti da una pagina web"
Da Gambas-it.org - Wikipedia.
Riga 15: | Riga 15: | ||
Dim i, c As Integer | Dim i, c As Integer | ||
− | s = Lower(WebView1. | + | s = Lower(WebView1.GetHtml()) |
i = InStr(s, "http", c + 1) | i = InStr(s, "http", c + 1) |
Versione delle 06:09, 20 gen 2024
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() ' 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.GetHtml()) 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