Доброго времени суток.
Ребята, помогите, пожалуйста, написать программу.
Открываю с помощью гиперссылки в ексель определенную страницу в интернете (браузер не определен) - здесь вопросов нет.
Мне нужно найти на этой странице кнопку "Send FREE message" и нажать ее, чтобы открылось новое диалоговое окно. В окне, которое откроется, нужно написать текст в поле для текста, например из ячейки B2, и нажать кнопку Send
Поиск и нажатие кнопки в интернете
Модератор: Naeel Maqsudov
Колега doober частично помог решить вопрос. Вот его код:
Этот код делает клик на кнопке "Send FREE message" и открывается нужное окно в новом окне. Хотелось бы, чтобы нужное окно открывалось вместо вкладки, на которой нажымается кнопка "Send FREE message". Подскажите, пожалуйста, как это сделать.
Код: Выделить всё
Sub Send_FREE_message()
Dim WebBrowser As Object
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.Visible = True
WebBrowser.Navigate "https://www.natashaclub.com/profile.php?ID=1000770574"
Do While Not (WebBrowser.ReadyState = 4)
DoEvents
Loop
For Each he In WebBrowser.Document.GetElementById("UnderPhotoLinkDiv").GetElementsByTagName("a")
he.Click
Exit For
Next
End Sub
Ребята, помогите найти ошибку в коде (нужно нажать кнопку "отправить"):
Вот кусок html-кода из IE:
Мой код не работает
Код: Выделить всё
Set he = WebBrowser.Document.body.all("Button")
For Each he In WebBrowser.Document.GetElementById("UnderPhotoLinkDiv").GetElementsByTagName("submit")
If he.Value = "Отправить" Then
he.Click
Exit For
End If
Next
Код: Выделить всё
<td align=right width=100%><input class=no type=submit value="Отправить></td>
</table>
</td></tr>
</table>
<input type=hidden name=SEND_MESSAGE value=YES></form>
</td></table>
</div>
<!-- end box Составить и отправить новое сообщение -->
<p></p></div>
<!-- CONTENT (Составить и отправить новое сообщение) [END] -->
Вот решение, предоставленное коллегой dooberom:
Код: Выделить всё
For Each he In WebBrowser.Document.GetElementsByTagName("input")
If he.Type = "submit" Then
If he.Value = "Отправить" Then
he.Click
Exit For
End If
End If
Next