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