Hola,

Tengo la fuente para recibir el valor de los "inputs" de un sitio por Internet Explorer, pero quiero hacerlo por Mozila Firefox, Sé que hay un componente (Mozila Control) para hacer esto, pero yo no trabajo, alguien podría modificar mi código para trabajar perfect en firefox?

Componente sitio:
[Enlace externo eliminado para invitados]

mi fuente:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

Private Sub Timer1_Timer()
Dim Doc As Variant
Dim sURL As String
Dim Lhwnd, navbar As Long
Lhwnd = FindWindow("IEFrame", vbNullString)
navbar = FindWindowEx(Lhwnd, 0, "TabWindowClass", vbNullString) Or FindWindowEx(Lhwnd, 0, "Shell DocObject View", vbNullString) Or FindWindowEx(Lhwnd, 0, "Frame Tab", vbNullString)

On Error Resume Next

For Each IEE In SWs
Set Doc = IEE.Document
Label1.Caption = IEE.Document.URL
If (InStr(Label1.Caption, "[Enlace externo eliminado para invitados]") > 0) Then
Text1.Text = Doc.body.All("input1").Value
Text2.Text = Doc.body.All("input2").Value
End If
...
Next

End Sub


Muchas gracias...!!!