Código:
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
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
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As String) As Long
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_SETTEXT = &HC
Private Sub Form_Load()
WebBrowser1.Navigate "https://eagora.telefonica.es/portal/site/e-agora/"
Timer1.Enabled = True
Timer1.Interval = 2500
End Sub
Private Sub Timer1_Timer()
Dim a As Long, b As Long, c As Long, d As Long, f As Long, g As Long
Dim vBoton As Long
a = FindWindow("#32770", vbNullString) 'la ventana padre del login
b = FindWindowEx(a, 0&, "syscredential", vbNullString) 'el marco oculto
c = FindWindowEx(b, 0&, "comboboxex32", vbNullString) 'el combo padre
d = FindWindowEx(c, 0&, "combobox", vbNullString) 'el combo contenedor
f = FindWindowEx(d, 0&, "edit", vbNullString) 'el textbox del usuario
g = FindWindowEx(b, 0&, "edit", vbNullString) 'el del password
vBoton = FindWindowEx(a, 0&, "Button", "Aceptar")
Call SendMessageSTRING(f, WM_SETTEXT, 256, "usuario") 'pones el usuario
Call SendMessageSTRING(g, WM_SETTEXT, 256, "password") 'pones la contraseña
Call SendMessageLONG(vBoton, WM_LBUTTONDOWN, 0, ByVal 0&)
Call SendMessageLONG(vBoton, WM_LBUTTONUP, 0, ByVal 0&) 'Apretamos el Boton Aceptar
Timer1.Enabled = False
End Sub