Como se hace foco en un navegador ? - VB-MUNDO

Zion_Tm · #1 (**permalink**) 01-03-2007, 04:37:09

Hola, resulta que quiero hacer foco en una pagina web para luego mandar el sendkeys , como puedo hacerlo ?

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Función Api FindWindow para buscar el HWND
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Dim Handle As Long

Private Sub Form_Load()
Form1.WebBrowser1.Navigate "http://login.live.com/login.srf?id=2"
Sleep (2000)
    Handle = FindWindow(vbNullString, "Form1.WebBrowser1.Navigate")
End Sub

Si no tengo el foco en la pagina web, no puedo mandar teclas con sendkeys :smt089

acalanto · #2 (**permalink**) 01-03-2007, 04:57:48

Por lo que puedo comprender, el navegador lo tienes en tu propia aplicación, entonces:

Form1.WebBrowser.SetFocus

En todo caso, en la función FindWindow, lo que se tiene que poner como parámetro es el TITULO de la ventana y no el nombre del objeto.

Zion_Tm · #3 (**permalink**) 01-03-2007, 13:17:25

Buenas Acalanto, lo que quiero es que cuando carga la pagina web predeterminada, mediante un boton presionar la tecla "CLEAR" para borrar lo que esta escrito , luego la tecla "TAB" para pasar a la parte de la contraseña y luego la tecla " SHIFT" , se puede hacer ?? he leido algo de GetAsyncKeyState (vbKeyBack) y GetAsyncKeyState (vbKeyTab) pero no me funciona, tu sabes como ??

acalanto · #4 (**permalink**) 01-03-2007, 14:40:03

GetAsyncKeyState te devuelve el estado de las teclas alternativas del teclado (Alt-Shift-Ctrl) y de algunas específicas (BloqNúm-BloqDesp...). Estas últimas si pueden cambiar su estado por software, pero las primeras tienen que pulsarse para cambiarlo; al menos yo desconozco de que forma se puede hacer.

Al mergen, creo que sería bueno que aclares qué es lo que necesitas hacer en la aplicación, porque lo de pulsar por código la tecla CLEAR mediante un botón.... ....sinceramente, no comprendo demasiado.

De borrar el contenido y pulsar la tecla TAB para 'pasar a la parte de la contraseña' ..... y luego la tecla SHIFT para ...... de ésto ya no sé ni que decirte

Zion_Tm · #5 (**permalink**) 02-03-2007, 00:14:30

jejejej soy un poco enredado, Igualmente gracias por intentar ayudarme :smt006