elios81
22-12-2011, 11:34
Qualcuno ha idea di come poter salvare pagine complete di internet per mezzo di Visual Basic? Vorrei poter accedere tramite codice VB al comando "salva con nome" di Explorer o Mozzila per poter salavare la pagina e dirgli anche dove.
Ho elaborato questa mini procedura provando col sito di virgilio ma non va...puņ essere che sia anche completamente fuori strada.
Sub SalvaBrowser()
Dim TheBrowser As Object
Set TheBrowser = CreateObject("InternetExplorer.Application")
With TheBrowser
.Visible = True
.Navigate ("http://www.virgilio.it")
End With
SendKeys "prova" 'questa riga dovrebbe inviare la parola "prova" nella casella di testo di Virgilio ma non succede nulla...
SendKeys "^(S)" 'questa dovrebbe inviare la sequenza di tasti che mi apra la finestra "salva con nome" ma non va....
End Sub
se qualcuno sa aiutarmi...grazie
Ho elaborato questa mini procedura provando col sito di virgilio ma non va...puņ essere che sia anche completamente fuori strada.
Sub SalvaBrowser()
Dim TheBrowser As Object
Set TheBrowser = CreateObject("InternetExplorer.Application")
With TheBrowser
.Visible = True
.Navigate ("http://www.virgilio.it")
End With
SendKeys "prova" 'questa riga dovrebbe inviare la parola "prova" nella casella di testo di Virgilio ma non succede nulla...
SendKeys "^(S)" 'questa dovrebbe inviare la sequenza di tasti che mi apra la finestra "salva con nome" ma non va....
End Sub
se qualcuno sa aiutarmi...grazie