Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: ..::Carlos::.. en Agosto 13, 2014, 10:11:08 pm

Título: ayuda con chrome o firefox
Publicado por: ..::Carlos::.. en Agosto 13, 2014, 10:11:08 pm

Buenas lo que yo quiero es para ver si me pueden ayudar de como poder yo leer los datos que estan dentro de un formulario con vb6 por ejemplo:
Con este codigo yo puedo leer lo que se va metiendo en la casilla de usuario de hotmail con IE quisiera saber como puedo hacer con chrome o ff .........Gracias

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


Dim SWs As New SHDocVw.ShellWindows
Dim IEE, fra As SHDocVw.InternetExplorer
Dim fDoc As HTMLDocument

Private Sub Form_Load()
On Error Resume Next
Dim Doc As Variant
Dim sURL As String
Dim Lhwnd, navbar As Long


 For Each IEE In SWs
 Set Doc = IEE.document

Text1 = Doc.body.All("i0116").Value

 Next


End Sub

Private Sub Timer1_Timer()
Form_Load
End Sub

Título: Re:ayuda con chrome o firefox
Publicado por: Albertomi en Agosto 15, 2014, 03:21:43 am

Estimado Carlos
 
Ha raíz de una necesidad que tengo de automatizar una aplicación que solo corre sobre Firefox o Chrome, me puse a investigar un poco sobre que hay al respecto. Es así como me tope con el proyecto Selenium automates browsers, te copio unos link que espero te puedan ser de ayuda.
 
How To Automate Firefox Or Chrome With Excel VBA And Selenium
  http://www.makeuseof.com/tag/how-to-automate-firefox-or-chrome-with-vba-and-selenium/ (http://www.makeuseof.com/tag/how-to-automate-firefox-or-chrome-with-vba-and-selenium/)
 
Selenium wrapper and fomatters for Visual Basic Application and Visual Basic Script
  https://code.google.com/p/selenium-vba/ (https://code.google.com/p/selenium-vba/)
 
Just a VBScript bindings for Selenium 2
http://htejera.users.sourceforge.net/vbswebdriver/index.html (http://htejera.users.sourceforge.net/vbswebdriver/index.html)
 
Web site Selenium
  http://docs.seleniumhq.org/ (http://docs.seleniumhq.org/)
 
 
Saludos, desde algún lugar de Lima-Perú

Título: Re:ayuda con chrome o firefox
Publicado por: Albertomi en Agosto 15, 2014, 03:50:17 am

Estimado Carlos
 
Adicionalmente hace tiempo atrás probé el siguiente control ActiveX pero algunas páginas no las carga, carga distorsionada o salta un mensaje de error. Te dejo el link para que lo pueda evaluar:
 
Mozilla ActiveX Control
  http://www.iol.ie/~locka/mozilla/control.htm (http://www.iol.ie/~locka/mozilla/control.htm)
 
Ve a componentes selecciona MozillaControl 1.0 Type Library, luego en un formulario MozillaBrowser más un CommandButton y copia las siguiente líneas de código:
 

Código: [Seleccionar]

  Sub Command1_Click()
    MozillaBrowser1.Navigate ("http://www.google.com")
  End Sub

Saludos, desde algún lugar de Lima-Perú