Autor
Ese es el código que uso para conseguir el Código de Fuente de una pagina HTML pero algunas webs tiene un gran código de fuente y entonces lo corta y no se ve completo, ademas el TextBox tiene scroll Vertical así que debería verse completo.
Me Pueden Ayudar.
Código:
Private Sub Command1_Click()
strUrl = txtURLbox.Text
'verificar si hay, al menos, 11 caracteres ("http://www.")
If Len(strUrl) > 11 Then
Screen.MousePointer = 15
txtNote.Text = Inet1.OpenURL(strUrl)
Screen.MousePointer = 0
Else
Screen.MousePointer = 0
txtNote.Text = "Introduzca un nombre de documento válido en el cuadro URL"
End If
Exit Sub
manejadorerror:
Screen.MousePointer = 0
txtNote.Text = "Error en la conexión con el URL (" & Err.Description & ")"
End Sub
Saludos, Dacan
En línea
