Я пытаюсь создать код макроса 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