Differenze tra le versioni di "Controllare i link contenuti da una pagina web"
Da Gambas-it.org - Wikipedia.
(9 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | Per conoscere quali collegamenti | + | 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: | Mostriamo un semplice esempio pratico: | ||
− | + | Public Sub Form_Open() | |
− | + | ||
<FONT Color=gray>' ''Carica una pagina web:''</font> | <FONT Color=gray>' ''Carica una pagina web:''</font> | ||
− | + | WebView1.Url = "http://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 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 "\e[31m"; Mid(s, i, c - i) | ||
+ | i = InStr(s, "http", c + 1) | ||
+ | Wend | ||
− | + | End | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− |
Versione attuale delle 19:00, 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_Finish() ' 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 "\e[31m"; Mid(s, i, c - i) i = InStr(s, "http", c + 1) Wend End