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

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

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

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

Sub MessageGalGadot()
Url$ = "https://www.instagram.com/XYZ/"
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, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...