Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 27, 2010, 04:35:00 pm

Título: Dialogo Guardar Como
Publicado por: ANTRAX en Julio 27, 2010, 04:35:00 pm
Ejemplo del método ExecWb para abrir el cuadro de diálogo " Guardar página web "

Ejemplo del método ExecWb del control webBrowser del visual basic para poder abrir el cuadro de diálogo Guardar como para guardar la página web cargada en el control.

Vista del cuadro de diálogo para guardar la pagina web

Aparte de este cuadro de diálogo, hay muchas otras opciones que se pueden realizar con este método, como por ejemplo la de copiar un texto y pegarlo, imprimir la página web cargada, seleccionar texto, copiar , cortar , ver el cuadro propiedades de página web, y muchas otras, solo hay que hecharle un ojo a las constantes que se le pasan al primer parámetro del método ExecWb.

Para probar el ejemplo que permite Abrir el Cuadro de Diálogo Guardar Página web como ... , colocar en un formulario un Command1 y también un control WebBrowser llamado WebBrowser 1.

Nota: el control WebBrowser se encuentra bajo el nombre de Microsoft Internet Controls desde el menú Proyecto - Componentes de vb.

Código: Visual Basic
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4. 'Abrimos el cuadro de diálogo abrir Como para el WebBrowser
  5. WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0
  6. End Sub
  7.  
  8. Private Sub Form_Load()
  9.  
  10. Command1.Caption = " Guardar "
  11.  
  12. 'Navegamos a una página de ejemplo mediante el método Navigate
  13. MsgBox "Ejemplo que muestra como abrir el cuadro dialogo" & _
  14. "guardar como para un control WEbBrowser", vbInformation
  15.  
  16. 'Navegamos al cargar el formulario a la página de Google.
  17. WebBrowser1.Navigate "www.google.com"
  18.  
  19. End Sub
  20.  
  21. Private Sub Form_Resize()
  22.  
  23. ' esto es solo para redimensionar el control web
  24. WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight - Command1.Height
  25.  
  26. 'Posiciona el commandButton en el formulario
  27. Command1.Top = WebBrowser1.Height
  28. Command1.Left = ScaleWidth - Command1.Width
  29.  
  30. End Sub