{VB6} Html Pagina Web ( SENZA INET MA CON WEBROWSER )

Sub SaveWebBrowser(WB As WebBrowser, ByVal FileName As String, _
Optional SaveAsPlainText As Boolean)
Dim Text As String, fnum As Integer

If SaveAsPlainText Then
Text = BW.Document.Body.innerHTML
Else
Text = BW.Document.documentElement.OuterHTML
End If

' salva in un file
fnum = FreeFile
Open FileName For Output As #fnum
Print #fnum, Text;
Close #fnum
End Sub