Visual Basic - ayuda

Life is soft - evento anual de software empresarial
   
Vista:

ayuda

Publicado por bruno (1 intervención) el 26/12/2011 03:12:01
Que tal amigos..

Necesito ayuda para una pequeña aplicación en vb6 con las siguientes características


1.- Que cuando el explorador Mozilla este abierto y en la pagina web del google u otra pagina cual sea, el cursor detecte el recuadro de "Buscar" y se mueva hasta ese control automáticamente o con un control.

2.- En si lo que necesito saber es si hay una funcion que detecte los controles dentro de una pagina web o un linck en las paginas web o si se puede hacer ..


Alguna idea sale saludos ……
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda

Publicado por Christian (666 intervenciones) el 26/12/2011 15:27:05
Bueno yo he hecho esas cosas de VB.NET usando el control WebBrowser (tambien disponible en VB 6).
Lo bueno de hacerlo con .NET es que te evitas llamadas a la API, por ejemplo para ejecutar un scrip solo llamas al metodo INVOKESCRIPT muy simple.

Ahora si tu intencion es hacerlo por fuera, esta mas complicado , se me ocurre como llamar al mozilla pero no como autocompletar , si me sale algo te aviso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda

Publicado por Christian (666 intervenciones) el 26/12/2011 18:10:19
Agrega la referencia a Microsoft Internet Controls
Fijate de encontrarle una alternativa al SendKeys del codigo, a veces funciona y otras no. La idea es simular el "Enter" despues de la palabra a buscar

--------------------------------------------------------------------------------------------------------------------------

Public WithEvents Obj_Explorer As InternetExplorer
Public Estado As Integer
Public Titulo As String
Private Sub Form_Load()
Set Obj_Explorer = New SHDocVw.InternetExplorer

Obj_Explorer.Visible = True
Obj_Explorer.Navigate "www.google.com"

End Sub

Private Sub Obj_Explorer_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Titulo = "Google" Then
Select Case Estado
Case Is = 0
Obj_Explorer.Document.GetElementById("lst-ib").InnerText = "Hola"
Estado = Estado + 1
Case Is = 1
Call SendKeys("{Enter}")
Estado = Estado + 1
End Select
End If
End Sub

Private Sub Obj_Explorer_TitleChange(ByVal Text As String)
Titulo = Text
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar