Это мой код:
Код: Выделить всё
Option Explicit
Sub DescargaInformes()
Dim ieApp As InternetExplorer
Dim ieDoc As Object
Dim ieTable As Object
Dim clip As DataObject
Dim oHTML_Element As Object
'creamos nueva instancia del IE y vamos a la web
Set ieApp = New InternetExplorer
With ieApp
.Navigate "https://mediamarkt.zendesk.com/access/unauthenticated"
.Visible = True
End With
'esperamos a que la web esté cargada
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set ieDoc = ieApp.Document
'rellnamos los datos de login y pass
With ieDoc
.getElementById("user_email").Value = "user"
.getElementById("user_password").Value = "pass"
End With
'esperamos a que la web esté cargada
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set ieDoc = ieApp.Document
End Sub
Это (я думаю) код, который показывает пользователя и передает идентификаторы:
Код: Выделить всё
Correo electrónico
Contraseña
Подробнее здесь: https://stackoverflow.com/questions/562 ... ript-login
Мобильная версия