Войти с помощью vba excel в instagram

Пользователь

Сообщений: 51 Регистрация: 24.10.2013

05.12.2017 22:31:37

Добрый день!

Прошу помощи. Мне нужно с помощью VBA Excel войти в Инстаграм.
Если зайти на сайт https://www.instagram.com/, то внизу есть ссылка "войти". Как на неё кликнуть с помощью vba excel? Возможно вопрос примитивный, но никак не разберусь.
Всем не безучастным заранее спасибо!
Вот мой код

Код

Sub Инстаграм()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("instagram.com")
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
    
    Debug.Print ie.document.getElementsByClassName("_g9ean").innertext
     
End Sub

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

05.12.2017 22:50:27

Доброе время суток.

Цитата
yegorovaleks написал: Мне нужно с помощью VBA Excel войти в Инстаграм

Может лучше через Instagram Platform API? Плюс, поискать примеры по MSXML2.XMLHTTP и работе с REST API

Doober

Пользователь

Сообщений: 2402 Регистрация: 09.04.2013

06.12.2017 02:11:48

Здравствуйте.

Код

Sub Инстаграм()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("instagram.com")
    Do Until ie.ReadyState = 4    'For STATE as COMPLETE
        DoEvents
    Loop
    For Each a In ie.document.getElementsByTagName("a")
        If a.innerText = "Вход" Then
            a.Click
            Exit For
        End If
    Next
End Sub

yegorovaleks Пользователь Сообщений: 51 Регистрация: 24.10.2013	#4 06.12.2017 11:41:41 Спасибо! Очень помогли!

Читают тему