Acquisire il codice HTML di una pagina web

L'acquisizione del codice HTML di una pagina web può essere effettuata mediante almeno le due modalità appresso descritte.

Uso dei Componenti gb.net e gb.net.curl

Si potrà innanzitutto acquisire l'intero codice HTML di una pagina web, utilizzando i Componenti gb.net e gb.net.curl nel modo che segue: ^{[ Nota 1 ]}

Public mioHttp As NEW HttpClient As "mioHttp"  
Public stringa As String  
 

Public Sub Button1_Click()  
    
  inviaRichiesta  
 
End  
 

Public Sub inviaRichiesta()  
                         
  With mioHttp
    .URL = "http://www.pagina_web_da_caricare"           
    .Timeout = 15  
    .Get()
  End With
  
End  
 

Public Sub mioHttp_Read()  
  
 Dim sBuf As String  
   
  Wait
 
  IF Lof(mioHttp) THEN   
    Read #mioHttp, sBuf, Lof(mioHttp)  
    stringa = stringa & sBuf  
  Endif

End  
 

Public Sub mioHttp_Finished()
 
 Dim p, s As String  
 Dim i As Integer  
        
  Label1.Text = ("Pagina scaricata !")  
   
  Wait        
       
' la variabile stringa contiene la pagina html e viene visualizzata in una textarea:
   TextArea1.Text=stringa
       
   mioHttp.Close

End

Uso dell'oggetto WebView

Per poter utilizzare l'oggetto WebView, bisognerà attivare anche il Componente gb.qt4.webkit.
Verrà innanzitutto caricata la pagina web con la proprietà .Url dell'oggetto WebView. Successvamente si acquisirà il codice html di detta pagina mediante la proprietà .HTM:

Public Sub Form_Open()  
    
  WebView1.Url = "http://www.pagina_web_da_caricare"  
   
End  
 
' Quando la pagina web è stata completamente caricata dalla "WebView",
' viene sollevato questo evento:
Public Sub WebView1_Load()  
 
Dim s As String  
  
' Carichiamo nella variabile di tipo stringa il codice HTML della pagina web:
  s = WebView1.HTML
    
  Print s  
 
End

Note

[1] Il codice è stato proposto dall'utente fsurfing del forum del sito www.gambas-it.org.