Отправить сообщение в профиле Instagram - PullRequest
0 голосов
/ 16 июня 2020

Я пытаюсь создать код макроса VBA, чтобы сообщение, переданное в коде, могло отправлять профиль, определенный в коде, каждому пользователю в нашем профиле.

Я пытаюсь сделать это, сначала выполнив поиск в профиле в Instagram, а затем нажав на опцию сообщения и отправив сообщение. Но я не могу отправить сообщение в профиль.

Код текстовой области HTML:

<div class="Igw0E IwRSH eGOV_ vwCYk ItkAi">                                                            
    <textarea clas="" style="height: 19px;" placeholder="Message..."> 
    </textarea>
 </div>

Sub MessageGalGadot()
    Url$ = "https://www.instagram.com/motos.22.nova/"
    Dim ie As New InternetExplorer, post As Object
    Dim WebUrl As String
    Dim i As Integer

    With ie
        .Visible = True
        .Navigate Url
        While .Busy = True Or .readyState < 4: DoEvents: Wend

        While post Is Nothing
            On Error Resume Next
            Application.Wait Now + TimeValue("00:00:001")
            Set post = .Document.querySelector(".fAR91.sqdOP.L3NKy._4pI4F._8A5w5 ")
            If Not post Is Nothing Then
                post.Click
                Set msg = .Document.querySelector(".Igw0E.IwRSH.eGOV_.vwCYk.ItkAi ")
                msg.Click
                ie.Document.getElementsByName(".Igw0E.IwRSH.eGOV_.vwCYk.ItkAi").Value = "123"
            Else:
                Debug.Print "trying again"
            End If
            On Error GoTo 0
        Wend

    End With
    Stop
    ie.Quit
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...