Allora, innanzitutto cliccate su Riferimenti... dal menù Progetto. Nella finestra che si aprirà selezionate "Microsoft HTML Object Library" e premete OK.
Ora create una nuova form e metteteci all'interno una TextBox e un CommandButton.
Chiamate la text dove uscirà il codice "pagecode", quella dove inserirete il nome del sito "txtPage" e il CommandButton "cmdCattura". Inserite poi il seguente codice
Private Sub cmdCattura_Click() Dim oggetto As New MSHTML.HTMLDocument Dim documento As MSHTML.HTMLDocument If pagecode.Text = "" Then Set documento = oggetto.createDocumentFromUrl(txtPage.Text, vbNullString) Do While documento.ReadyState <> "complete" DoEvents Loop pagecode.Text = documento.documentElement.outerHTML Set documento = Nothing Set oggetto = Nothing Else pagecode.Text = "" Set documento = oggetto.createDocumentFromUrl(txtPage.Text, vbNullString) Do While documento.ReadyState <> "complete" DoEvents Loop pagecode.Text = documento.documentElement.outerHTML Set documento = Nothing Set oggetto = Nothing End If modificata = True End Sub
Aggiungi un commento